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

[µo°Ý] ½Ð±Ð»yªk??

[µo°Ý] ½Ð±Ð»yªk??

[a1],[b1]¬°¤å¦r¡A°²¦p b1§t¦³a1¥ô·N¤T­Ó¦r«h.......  »yªk?? ­^¤å¤£°Ï¤À¤j¤p¼g
¨Ò¦p
a1=2a§A3§Ú¥L7  b1=§A7­nA4¥h8¨ºùØ   
a1¤T­Ó¦r"a§A7" ¦bb1ùØ­±

¦^´_ 1# t8899

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

Sub test()
Dim a, b, xD, T$, c, j&
Set xD = CreateObject("Scripting.Dictionary")
a = [a1]: b = [b1]
For j = 1 To Len(a)
    T = UCase(Mid(a, j, 1)): xD(T) = 1
    T = LCase(Mid(a, j, 1)): xD(T) = 1
Next
For j = 1 To Len(b)
    T = Mid(b, j, 1): If xD(T) = 1 Then c = c & T
Next
MsgBox c
End Sub

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD