返回列表 上一主題 發帖

[發問] 表單儲存格自動下拉更新

回復 10# Hsieh


謝謝板大!!!

我不知道有這種功能耶

超級方便!!!!

又長了知識了  :  )   謝謝

TOP

小第剛剛學, 唔知咁樣得唔得(兩個FILE都要放係C:\TEMP)

Test.zip (141.68 KB)

TOP

回復 12# rc_chc

謝謝rc_chc大

這個方法也不錯

簡單明瞭

我又學到了一些

謝謝 : )

TOP

最近在試EXCEL裡的公式

本身我使用的是2007但是因為使用者的版本
我都會存成2003


可是在做不同EXCEL檔案的公式比對時候
都會出現

相容性的警告提醒

不知這意思是不是我如果用2003開
經過公式比對的值有字元限制
如果資料多一點就會出錯???

本身是2007我也不知怎麼做這方面的測試

想問問大大這主要會影響什麼???

TOP

因為是由EXCEL 2007 存舊版本格式, 所以"如果"檔案內有資料是超過 255個字元時才會有問題

那個只是提提你相容性警告語, 並不是指此檔案一定有問題

TOP

test.rar (12.55 KB) 回復 8# li_hsien
在testB>>sheet1>>>[b1]寫公式" =counta(A:A)  "
在testA>>sheet1>>>[b1]寫公式" =]='C:\Users\Administrator\Desktop\test\[testB.xls]Sheet1'!$B$1  "       
在thisworkbook的module寫ruxia
在module1寫ruxia               
Private Sub Workbook_Open()                       
Sheets("sheet1").Activate                       
Macro1                       
End Sub                       
                       
Sub Macro1()                       
   n = [b1]                        
    Range("A2:A" & n).FillDown                       
End Sub                       
open testB,添加A欄內容,close testB
open testA會自動生成你要的效果了
lmh

TOP

test.rar (12.55 KB) 回復 9# li_hsien


在testB>>sheet1>>>[b1]寫公式" =counta(A:A)  "
在testA>>sheet1>>>[b1]寫公式" =]='C:\Users\Administrator\Desktop\test\[testB.xls]Sheet1'!$B$1  "        
在thisworkbook的module寫ruxia
在module1寫ruxia               
Private Sub Workbook_Open()                        
Sheets("sheet1").Activate                        
Macro1                        
End Sub                        
                        
Sub Macro1()                        
   n = [b1]                        
    Range("A2:A" & n).FillDown                        
End Sub                        
open testB,添加A欄內容,close testB
open testA會自動生成你要的效果了
lmh

TOP

test.rar (12.55 KB) 回復 1# li_hsien

在testB>>sheet1>>>[b1]寫公式" =counta(A:A)  "
在testA>>sheet1>>>[b1]寫公式" =]='C:\Users\Administrator\Desktop\test\[testB.xls]Sheet1'!$B$1  "        
在thisworkbook的module寫如下
在module1寫如下         
Private Sub Workbook_Open()                        
Sheets("sheet1").Activate                        
Macro1                        
End Sub                        
                        
Sub Macro1()                        
   n = [b1]                        
    Range("A2:A" & n).FillDown                        
End Sub                        
open testB,添加A欄內容,close testB
open testA會自動生成你要的效果了
lmh

TOP

不好意思,論壇轉到page2,我以為沒有輸入,所以重複發了2次,Sorry
lmh

TOP

其實可以更簡化不用於testB 檔內更改
只要於testA檔內直加 =COUNTA('C:\Temp\[testB.xls]sheet1'!A$1:A$65536)

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題