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

[µo°Ý] ¸ê®Æ¤ñ¹ï°ÝÃD

[µo°Ý] ¸ê®Æ¤ñ¹ï°ÝÃD

¥H¤U¬O§Ú¼gªºµ{¦¡»P¹Ï¤ù
²Ä¤@µ§¸ê®Æµ{¦¡·|¤ñ¹ï¤F¡A¦p¦óÅý¥L¦Û°Ê¦b¤ñ¹ï¤§«áªº¸ê®Æ©O?



Sub ¤ñ¹ï¸ê®Æ()
Dim i, j As Integer
i = 1
Do
i = i + 1

If Range("A" & i) = "" Then Exit Do 'ªÅ¥Õ¸õ¥X
If Range("F2") = Range("A" & i) And Range("G2") = Range("B" & i) Then Range("I2") = "OK" Else Range("I2") = "NO"

End
Loop

End Sub

Sub AZ1011()
Dim xR As Range, xD
Set xD = CreateObject("Scripting.Dictionary")
'¥H¢Ï¢ÐÄæ­È¬°KEY¯Ç¤J¦r¨åÀÉ¡@
For Each xR In Range([A2], [A65536].End(xlUp))
¡@¡@xD(xR & xR(1, 2)) = ""
Next
¡@
'¥H¢Ô¢ÕÄæ­È¬°KEY¤ñ¹ï¬O§_¦s¦b©ó¦r¨åÀÉ¡@
For Each xR In Range([F2], [F65536].End(xlUp))
¡@¡@If xD.Exists(xR & xR(1, 2)) Then xR(1, 4) = "OK" Else xR(1, 4) = "NO"
Next
End Sub

TOP

TO ­ã´£³¡ªL
¤j¤j¥i¥H½Ð°Ý¤@¤U
¦pªG§Ú­n¤ñ¹ï§ó¦h¸ê®Æ¡A¨Ò¦p¨Ì·Ó§Ú¨º­Ó¹Ï¦b¦h¤ñ¸û¤@¶µÃþ§O¡A¬O¤£¬O¼W¥[¤U­±¬õ¦r³¡¤À?
¦ý¬O§Ú­×§ï§¹¡A«o·|¥X²{¤Þ¼Æ¿ù»~¡A¬O­n¤ñ¹ï3µ§¸ê®Æ­n¦³¥t¥~ªº¼gªk?
xD(xR & xR & xR (1, 2, 3)) = ""
If xD.Exists(xR & xR & xR(1, 2, 3))

TOP

¦^´_ 3# mark761222


xD(xR & xR(1, 2) & xR(1, 3)) = ""

³] xR ¬° A2, xR(1, 2) «h¬° B2, xR(1, 3) ¬°C2

TOP

§ÚÀ´¤F! ·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD