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

[µo°Ý] ´£¨ú¦r¦ê¤º¼Æ¦r¤ñ¤j¤p

¦^´_ 6# hcm19522

R312-1¢X  --- ³oºØªº³Ì«á¤@¸`¦³¥i¯à»~§P!!!...12-1¬O¤é´Á

TOP

¸ê®Æ¤Ó¤Ö, µLªk¦hÅçÃÒ:
=CHOOSE((-LOOKUP(,-RIGHT(TEXT(,"[$"&B2&"]"),{1,2,3,4}))<=390)*SUM(N(-LOOKUP(1,-RIGHT(LEFT(B2,LEN(B2)-1),{1,2,3,4}))<={90,180}))+1,"",2,1)

TOP

Sub TEST_a1()
Dim Arr, i&, j%, TR, V1, V2
Arr = Range([b1], [b65536].End(xlUp))
For i = 2 To UBound(Arr)
    TR = Split(Arr(i, 1), "-"): Arr(i - 1, 1) = "": V = ""
    If UBound(TR) < 1 Then GoTo i01
    For j = 1 To Len(TR(0))
        If Mid(TR(0), j, 1) Like "#" Then V1 = Val(Mid(TR(0), j)): Exit For
    Next j
    If V1 = "" Or V1 > 390 Then GoTo i01
    V2 = Val(TR(UBound(TR)))
    Arr(i - 1, 1) = IIf(V2 > 180, "", IIf(V2 > 90, 2, 1))
i01: Next i
[c2].Resize(UBound(Arr) - 1) = Arr
End Sub

TOP

¦^´_ 12# samwang

MSGBOX "1" LIKE "#"
MSGBOX "1" LIKE "[0-9]"
MSGBOX "123" LIKE "###"  '¤T­Ó¼Æ¦r. ¤@­Ó#¬°¤@­Ó¼Æ¦r

MsgBox "A" Like "[A-Z]"  '¤j¼g
MsgBox "a" Like "[a-z]"  '¤p¼g
MsgBox "x" Like "[A-z]"  '¤j¤p¼g

MsgBox "7" Like "[0-9A-Z-/+]"  '¼Æ¦r_­^¤j¼g_²Å¸¹-/+

³¡¥÷»P¥¿«h¥ÎªkÃþ¦ü, ¦ý§Ú¹ï¥¿«h¤£¼ô, ¥u¯à´N©Òª¾ª±ª±~~

TOP

¦^´_ 14# samwang


¤¤¤å...¨S¦h¥h´ú¸Õ--¯S®í¦r/²Åé/¤é¥»¤¤¤å--·|¤£·|¦³§P¿ù,
©Ò¥H¤£¤Ó´±¥Î~~

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD