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

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 182
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

22^#

發表於 2013-12-9 09:20 | 只看該作者

回復 19# mhl9mhl9

另外請問mhl9大

ruxia是什麼意思呀???

專有名詞嗎? 還是語法的一種??

li_hsien

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 182
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

21^#

發表於 2013-12-9 08:20 | 只看該作者

回復 19# mhl9mhl9

謝謝mhl9大

這方式不錯耶!!!

簡單

換個角度來想

不用一直執著在如何轉換

也謝謝rc_chc大的簡化

: )

rc_chc

小學生 Rank: 1

帖子: 22
主題: 1
精華: 0
積分: 23
點名: 0
作業系統: Win7
軟體版本: Office 2003
閱讀權限: 10
性別: 男
註冊時間: 2013-11-24
最後登錄: 2015-5-14

20^#

發表於 2013-12-7 15:09 | 只看該作者

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

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

19^#

發表於 2013-12-7 03:34 | 只看該作者

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

lmh

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

18^#

發表於 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

17^#

發表於 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

16^#

發表於 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