Excel抓取多筆資料 - Excel程式區 - 麻辣家族討論版版

qaqa3296

中學生 Rank: 2

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2026-4-16

30^# 跳轉到 »

發表於 2023-7-9 09:08 | 只看該作者

本帖最後由 qaqa3296 於 2023-7-9 09:11 編輯

回復 27# cowww

突然想到遇到錯誤就加個跳過錯誤就好

On Error Resume Next

附上加上略過錯誤後的檔案

晨會報表.zip (257.18 KB)

TOP

qaqa3296

中學生 Rank: 2

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2026-4-16

29^#

發表於 2023-7-8 22:45 | 只看該作者

本帖最後由 qaqa3296 於 2023-7-8 22:55 編輯

回復 27# cowww

抱歉"異動表排序"文件792行有"#VALUE"的錯誤訊息，功力不足無法排除錯誤，導致程式會卡住，所以我手動刪除了那行

新的檔案看過之後，都是欄位改變，所以修正一些位置範圍，並修正了最後一筆不顯示問題，看看是不是你想要的顯示效果

至於你的異動表排序文件多了B、C欄，不知用途，所以略過了

剛剛發現我在改範圍時，備註沒有修改，所以跟程式的實際範圍有些不同，如需看備註學習時，請自行修改備註範圍

附上檔案

晨會報表.zip (257.47 KB)

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

28^#

發表於 2023-7-8 16:37 | 只看該作者

回復 22# qaqa3296

qaqa3296前輩的範例裡有很詳細的心得註解,勤學的程度不輸Andy,邀請前輩研究27樓範例情境,與 cowww前輩研討解決方案
後學有點事要忙

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

27^#

發表於 2023-7-8 16:15 | 只看該作者

回復 20# Andy2483

真是抱歉
上禮拜家裡有事情，所以都只上半天班
由於每個單位使用的機台號碼樣式都不一樣，最後統一選擇使用A欄位的機台號碼樣式
機台號碼.PNG

新的檔案

晨會報表.zip (231.29 KB)

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

26^#

發表於 2023-7-8 15:15 | 只看該作者

回復 25# 准提部林

謝謝前輩提攜

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

25^#

發表於 2023-7-8 14:55 | 只看該作者

使用[陣列]做上/下行比對,
資料範圍須多加一行,
但迴圈要減一, for i=2 to ubound(arr) - 1, 不然會跳出錯誤

若使用range則無此問題!!!

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

24^#

發表於 2023-7-8 09:57 | 只看該作者

本帖最後由 Andy2483 於 2023-7-8 10:05 編輯

回復 22# qaqa3296

謝謝前輩
2.第二個問題
Brr = Range([專案!D1], [專案!D65536].End(3))
這行如果要修改成，程式自己判斷今天日期的月份，假設是"7月"就去找"7月"的工作表，該如何修改？
後學建議如下:
Application.Goto Sheets(Format(Date, "m月")).[A1]
Brr = Range([D1], [D65536].End(3))

這是儲存格游標跳到今天月份工作表, 再框列當下工作表的儲存格到Brr陣列的方法

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

23^#

發表於 2023-7-8 09:14 | 只看該作者

本帖最後由 Andy2483 於 2023-7-8 09:21 編輯

回復 22# qaqa3296

謝謝前輩
使用16樓的程式碼，會缺一個註解沒有列出!!

請將 Brr = Range(Sh.[E1], Sh.[A65536].End(3))
改為Brr = Range(Sh.[E1], Sh.[A65536].End(3)(2))

請將 Brr = Range([異動表排序!E1], [異動表排序!A65536].End(3))
改為 Brr = Range([異動表排序!E1], [異動表排序!A65536].End(3)(2))

這是初學者才會犯的錯,後學沒有做到觀前顧後
有逐列不同值比較時一定要考慮到最後有效列沒有與下一列作比較

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

qaqa3296

中學生 Rank: 2

帖子: 45
主題: 7
精華: 0
積分: 102
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2016
閱讀權限: 20
註冊時間: 2019-4-27
最後登錄: 2026-4-16

22^#

發表於 2023-7-7 22:35 | 只看該作者

回復 21# Andy2483

cowww大大沒有再提供檔案，所以只好由我先發問了

1.
我跟他都是使用Andy2483 16樓的程式碼，所以他可能也有相同問題，只是他沒有發現？會缺一個註解沒有列出

我直接附上說明圖片

2. 第二個問題
Brr = Range([專案!D1], [專案!D65536].End(3))

這行如果要修改成，程式自己判斷今天日期的月份，假設是"7月"就去找"7月"的工作表，該如何修改？

我是直接

currentMonth = Format(Date, "m月")
' '取今天月份資料

Brr = Range(["[" currentMonth"]" !D1], ["[" currentMonth"]"!D65536].End(3))

完全不給過...底下又有For i = 1 To UBound(Brr)迴圈，功力不夠想不出來如何修改，希望有人可以幫忙解答

附上測試檔案由cowww提供的檔案+Andy2483 16樓的程式碼修改

TEST.zip (418.45 KB)

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

21^#

發表於 2023-7-5 07:47 | 只看該作者

回復 19# qaqa3296

"異動表排序"會少最後一筆資料，該如何修正，我看迴圈都有跑滿，但是會少最後一筆(沒有任何備註)

謝謝前輩一起學習,待cowww上傳新情境範例後,後學再試解看看,屆時再一起討論學習

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

[發問] Excel抓取多筆資料

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]