ªð¦^¦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 : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD