ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

VBA ¦p¦ó¤ñ¹ï¾ã¦C¸ê®Æ???

VBA ¦p¦ó¤ñ¹ï¾ã¦C¸ê®Æ???

·Q½Ð°Ý­n¦p¦ó¤ñ¹ï¾ã¦C¸ê®Æ¬O§_¦³¦s¦b¸ê®Æ®w¤¤
Â^¨ú.PNG
2022-2-9 10:50

¦^´_ 1# s13030029


½Ðªþ¤WÀɮשM»¡©ú¦p¦ó¤ñ¹ï§e²{µ²ªG¡AÁÂÁÂ

TOP

¦^´_ 2# samwang

¥i¥Îmsgbox¦^µª¦s¤£¦s¦b´N¦n
Book1.rar (11.45 KB)

TOP

¦^´_ 3# s13030029

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, xD, T$, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
    T = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4) & Arr(i, 5)
    xD(T) = i
Next
Arr = [g1].CurrentRegion
For i = 2 To UBound(Arr)
    T = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4) & Arr(i, 5)
    If xD(T) > 0 Then MsgBox T & "¦s¦b"
Next
End Sub

TOP

¦^´_ 4# samwang
·Q¦A½Ð±Ð¤@¤U
¦pªG¦s¦bªº¸Ü¡A¯àÅã¥Ü¬O¦b¸ê®Æ®w¤¤ªº²Ä´X¦C¶Ü?
·PÁÂ~~

TOP

¦^´_  samwang
·Q¦A½Ð±Ð¤@¤U
¦pªG¦s¦bªº¸Ü¡A¯àÅã¥Ü¬O¦b¸ê®Æ®w¤¤ªº²Ä´X¦C¶Ü?
·PÁÂ~~
s13030029 µoªí©ó 2022-2-9 16:41



If xD(T) > 0 Then MsgBox T & ": ¦s¦b²Ä" & xD(T) & "¦C"

TOP

¦^´_ 6# samwang

­ì¨Ó¦p¦¹~
·PÁ±z~

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD