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

[¤w¸Ñ¨M][µo°Ý]µ{¦¡Â²¤Æ-°}¦C-VBA ¡A´M§ä¬Y¤¸¯À¬O§_¦s¦b°}¦C¤¤¡C

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-12 20:10 ½s¿è

³o¼Ë¦n¹³¤]¥i¥H
  1. Sub ½m²ßÅã¥Ü°}¦C¦ì¸m()

  2. Dim A, B, i, k

  3. A = Array("¤@", "¤­", "¤K")
  4. B = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»")

  5.     For i = 0 To UBound(B)
  6.         If A(k) = B(i) Then
  7.            MsgBox " Aªº " & A(k) & " ¦b B ªº ²Ä " & i & " ­Ó"
  8.            If k <= UBound(A) Then k = k + 1
  9.         Else
  10.            MsgBox " B ªº ²Ä " & i & " ­Ó" & " ¬O " & B(i)
  11.         End If
  12.     Next i
  13.    
  14. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD