返回列表 上一主題 發帖

[發問] Excel抓取多筆資料

回復 19# qaqa3296

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

    謝謝前輩一起學習,待cowww上傳新情境範例後,後學再試解看看,屆時再一起討論學習
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 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 於 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 於 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

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

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

TOP

回復 25# 准提部林


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

TOP

回復 20# Andy2483

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

新的檔案
晨會報表.zip (231.29 KB)

TOP

回復 22# qaqa3296


    qaqa3296前輩的範例裡有很詳細的心得註解,勤學的程度不輸Andy,邀請前輩研究27樓範例情境,與 cowww前輩研討解決方案
後學有點事要忙
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

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

回復 27# cowww

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

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

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

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

附上檔案

晨會報表.zip (257.47 KB)

TOP

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

回復 27# cowww

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

On Error Resume Next

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

晨會報表.zip (257.18 KB)

TOP

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