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

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

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

¦^´_ 11# ­ã´£³¡ªL

­ã¤j¡A½Ð±Ð¤@¤U Like "#"   ¬O¨ú¼Æ¦r¡A§Ú¬O¥ÎASCII§PÂ_¡A¨º¦pªG¬O¥u¨ú­^¤å¡A ­n¦p¦ó¼g Like ...
¥t¥~³oºØ¼gªk­n¦p¦ó¬d¨ì©Ò¦³¬ÛÃö¸ê°T(¦p¯S®í²Å¸¹¡B­^¤å¤j¼g...)¡A
¦]¬°ASCII¦³¬ÛÃö¸ê°T¡A¥u­n§ä¨ì´N¥i¥HÂ^¨ú¬ÛÃö¦r¡AÁÂÁÂ

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

¦^´_ 13# ­ã´£³¡ªL


·PÁ­ã¤j«ü¾É¡A¥t¥~­è­ègoogle ¤@¤U¡A¤À¨É¦h¤@­Ó¤¤¤å¼gªk¡AÁÂÁ¡C

MsgBox "¤¤" Like "[¤@-Æ~]"    '¤¤¤å¦r

TOP

¦^´_ 10# ­ã´£³¡ªL

Á¤F   ²¨©¿¤F
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 14# samwang


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

TOP

¥»©«³Ì«á¥Ñ wayne0303 ©ó 2021-6-21 16:22 ½s¿è

¦^´_ 10# ­ã´£³¡ªL


·PÁ­ã¤j¬Û§U¡I

TOP

¦^´_ 16# hcm19522


ÁÂÁÂh¤j~

TOP

¦^´_ 17# ­ã´£³¡ªL


¤¤¤å...¨S¦h¥h´ú¸Õ--¯S®í¦r/²Åé/¤é¥»¤¤¤å--·|¤£·|¦³§P¿ù
>> ¸g¹L´ú¸Õ¡A¯uªº¦³°ÝÃD¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD