1234
返回列表 上一主題 發帖

[發問] Excel抓取多筆資料

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 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

qaqa3296

帖子
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: 5Rank: 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

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 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

准提部林

帖子
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: 5Rank: 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

cowww

帖子
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: 5Rank: 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

qaqa3296

帖子
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

qaqa3296

帖子
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

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
1234
返回列表 上一主題