表單儲存格自動下拉更新 - Excelㄧ般區

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

1^# 跳轉到 »

發表於 2013-12-7 03:21 | 顯示全部帖子

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

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

2^#

發表於 2013-12-7 03:25 | 顯示全部帖子

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

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

3^#

發表於 2013-12-7 03:29 | 顯示全部帖子

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

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

4^#

發表於 2013-12-7 03:34 | 顯示全部帖子

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

lmh