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

[µo°Ý] ¦r¦ê¦ì¸m­pºâ°ÝÃD

[µo°Ý] ¦r¦ê¦ì¸m­pºâ°ÝÃD

½Ð°Ý¦p¦ó±NAÄæ¦r¦ê1ªº¦ì¸m¶¶§Ç¿é¥X¦ÜBÄæ¡AAÄæ¦r¦êAªº¦ì¸m¶¶§Ç¿é¥X¦ÜCÄæ¡A¨Ã¥Î;²Å¸¹¤À¹j(¦p¤U¦C»¡©ú)¡CÁÂÁ¤j®aªºÀ°¦£!
A1 100010A01A0        B1 1;5;9        C1 7;10
A2 001A010A1100A  B2 3;6;9;10  C2 4;8;13
¤p«Ä

Function zz(x, y)
For i = 1 To Len(x)
    If Mid(UCase(x), i, 1) = UCase(y) Then a = a & ";" & i
Next
zz = Mid(a, 2)
End Function
¦Û©w¨ç¼Æ.zip (8.6 KB)

TOP

¦^´_ 2# ikboy
«D±`ÁÂÁ±zªºÀ°¦£^_^
¤p«Ä

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD