excel vba¦p¦ó§ì¨ú¸ê®Æ»PªÅ¦ì¬d¸ß

aassddff736

¿ûªO.zip (920.48 KB)

¿ûªO
¤U¸ü¦¸¼Æ: 4

2024-2-3 13:14

§Ú·Q±Nsheets("Àx¦ì")CÄ椽¦¡§ï¦¨vba¦p¦ó°µ?

aassddff736

¦^´_ 6# Andy2483

·PÁ§Aªº¦^ÂÐ:handshake

Andy2483

¦^´_ 5# aassddff736


    ÁÂÁ«e½ú¦^´_
¦bThis WorkBook ¼Ò²Õ¤U¥H°Æµ{¦¡°õ¦æ

¤U¸ü (48.99 KB)

2024-2-15 07:09

¶}±ÒÀɮצ۰ʧó·sÀx¦ì½s¸¹ :
Private Sub Workbook_Open()
Call TEST
End Sub

aassddff736

¦^´_ 2# Andy2483


    ½Ð±Ð¤@¤U¦pªG­n¶}±ÒÀɮצ۰ʧó·sÀx¦ì½s¸¹ ¦p¦ó³]©w

aassddff736

¦^´_ 3# aassddff736

½Ð±Ð¤@¤U¦pªG­n¶}±ÒÀɮצ۰ʧó·sÀx¦ì½s¸¹ ¦p¦ó³]©w

aassddff736

¦^´_ 2# «pÁy¥Öªº¾Ç¥Í

·PÁ«ü¾É   ^^

Andy2483

¦^´_ 1# aassddff736


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

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