excel vba¦p¦ó§ì¨ú¸ê®Æ»PªÅ¦ì¬d¸ß
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
excel vba¦p¦ó§ì¨ú¸ê®Æ»PªÅ¦ì¬d¸ß
¿ûªO.zip (920.48 KB)
§Ú·Q±Nsheets("Àx¦ì")CÄ椽¦¡§ï¦¨vba¦p¦ó°µ? |
|
|
|
|
|
|
- ©«¤l
- 1440
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1464
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-9-30
|
¦^´_ 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 |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 2# «pÁy¥Öªº¾Ç¥Í
·PÁ«ü¾É ^^ |
|
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 3# aassddff736
½Ð±Ð¤@¤U¦pªGn¶}±ÒÀɮצ۰ʧó·sÀx¦ì½s¸¹ ¦p¦ó³]©w |
|
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 2# Andy2483
½Ð±Ð¤@¤U¦pªGn¶}±ÒÀɮצ۰ʧó·sÀx¦ì½s¸¹ ¦p¦ó³]©w |
|
|
|
|
|
|
- ©«¤l
- 1440
- ¥DÃD
- 40
- ºëµØ
- 0
- ¿n¤À
- 1464
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Excel 2010 & 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2020-7-15
- ³Ì«áµn¿ý
- 2024-9-30
|
¦^´_ 5# aassddff736
ÁÂÁ«e½ú¦^´_
¦bThis WorkBook ¼Ò²Õ¤U¥H°Æµ{¦¡°õ¦æ
¶}±ÒÀɮצ۰ʧó·sÀx¦ì½s¸¹ :
Private Sub Workbook_Open()
Call TEST
End Sub |
|
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
|
|
|
|
|
- ©«¤l
- 70
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 27
- §@·~¨t²Î
- win
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2024-2-3
- ³Ì«áµn¿ý
- 2024-6-13
|
¦^´_ 6# Andy2483
·PÁ§Aªº¦^ÂÐ:handshake |
|
|
|
|
|
|