標題: excel vba如何抓取資料與空位查詢 [打印本頁]

---

作者: aassddff736    時間: 2024-2-3 13:22     標題: excel vba如何抓取資料與空位查詢

[attach]37399[/attach]
我想將sheets("儲位")C欄公式改成vba如何做?

---

作者: Andy2483    時間: 2024-2-5 11:06

回復 1# aassddff736


    謝謝前輩發表此主題與範例
後學藉此帖練習陣列與字典,學習方案如下,請前輩參考

Option Explicit
Sub TEST()
Dim Brr, Crr, Z, i&, s%, T$
Set Z = CreateObject("Scripting.Dictionary")
For s = 2 To 4
   Brr = Range(Sheets(s).[B3], Sheets(s).[A65536].End(3))
   For i = 1 To UBound(Brr)
      T = Format(Trim(Brr(i, 1)), "0000"): If T = "" Then GoTo i01
      If Z(T) = "" Then Z(T) = Brr(i, 2) & "" Else MsgBox T & "  重複": Exit Sub
i01: Next
Next
Crr = Range(Sheets(1).[B7], Sheets(1).[B65536].End(3))
For i = 1 To UBound(Crr)
   Crr(i, 1) = Z(Format(Trim(Crr(i, 1)), "0000"))
Next
Sheets(1).[D7].Resize(UBound(Crr)) = Crr
End Sub

---

作者: aassddff736    時間: 2024-2-9 09:02

回復 2# 厚臉皮的學生

感謝指導   ^^

---

作者: aassddff736    時間: 2024-2-9 10:43

回復 3# aassddff736

請教一下如果要開啟檔案自動更新儲位編號 如何設定

---

作者: aassddff736    時間: 2024-2-9 18:00

回復 2# Andy2483


    請教一下如果要開啟檔案自動更新儲位編號 如何設定

---

作者: Andy2483    時間: 2024-2-15 07:11

回復 5# aassddff736


    謝謝前輩回復
在This WorkBook 模組下以副程式執行
[attach]37413[/attach]

開啟檔案自動更新儲位編號 :
Private Sub Workbook_Open()
Call TEST
End Sub

---

作者: aassddff736    時間: 2024-2-15 21:31

回復 6# Andy2483

感謝你的回覆:handshake

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)