返回列表 上一主題 發帖

[發問] Excel抓取多筆資料

qaqa3296

帖子
45 
主題
7 
精華
0 
積分
102 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2016 
閱讀權限
20 
註冊時間
2019-4-27 
最後登錄
2024-5-9 
1# 跳轉到 »
發表於 2023-7-4 20:19 | 顯示全部帖子
回復 18# cowww

大家一起學習，我在想

Brr = Range([專案!Z1], [專案!Z65536].End(3))

這個是比對"Tool No."，有相同才加星

所以是
Brr = Range([專案!E1], [專案!E65536].End(3))

另外我想問Andy2483大大

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

TOP

qaqa3296

帖子
45 
主題
7 
精華
0 
積分
102 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2016 
閱讀權限
20 
註冊時間
2019-4-27 
最後登錄
2024-5-9 
2#
發表於 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

qaqa3296

帖子
45 
主題
7 
精華
0 
積分
102 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2016 
閱讀權限
20 
註冊時間
2019-4-27 
最後登錄
2024-5-9 
3#
發表於 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 
最後登錄
2024-5-9 
4#
發表於 2023-7-9 09:08 | 顯示全部帖子
本帖最後由 qaqa3296 於 2023-7-9 09:11 編輯

回復 27# cowww

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

On Error Resume Next

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

晨會報表.zip (257.18 KB)

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題