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

s13030029

·Q½Ð°Ý­n¦p¦ó¤ñ¹ï¾ã¦C¸ê®Æ¬O§_¦³¦s¦b¸ê®Æ®w¤¤

¤U¸ü (24.39 KB)

2022-2-9 10:50

samwang

¦^´_ 1# s13030029


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

s13030029

¦^´_ 2# samwang

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

ªþÀÉ
¤U¸ü¦¸¼Æ: 8

2022-2-9 15:02

samwang

¦^´_ 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

s13030029

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

samwang

¦^´_  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"

s13030029

¦^´_ 6# samwang

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