[µo°Ý] ¤£³W«h¤å¦r,¨ú¼Æ¦rÅçºâ

PJChen

¤j¤j¦n,

½Ð°Ý¦pªþ¹ÏJPG©Ò¥Ü,¯à§_¨ú¥X()¤¤ªº¼Æ¦r,°µ¥[´î?()¤¤ªº¼Æ¦r,¨S¦³¤@©wªº³W«h

¤U¸ü (105.78 KB)

2023-4-17 14:05

¼t°Ó¸ê®ÆÅçºâ.rar (7.58 KB)

¤U¸ü¦¸¼Æ: 10

2023-4-17 14:12

PJChen

¦^´_ 2# Andy2483


·PÁÂ,
³o­Óµ{¦¡¤Ó¯«©_¤F,¤£¦Pªº²Õ¦X³£¥i¥Hºâ±o¥X¨Ó~~


½Ð°Ý³o¬q¯àÀ°§Ú¸Ñ»¡¤@¤U¶Ü?
For i = 65 To 122: .Replace Chr(i), "", 2: Next

PJChen

¦^´_ 8# Andy2483
½Ð°Ý¦Û­q¨ç¼Æ­n«ç»ò¦bµ{¦¡¤¤¨Ï¥Î?
°õ¦æ¤@ª½¥X²{ "½sö¿ù»~"
¥²¶·¬OEnd sub

PJChen

¦^´_ 10# Andy2483
±z¦n,
§Ú§âµ{¦¡©ñ¶iÀɮפ¤¤F,­ã¤jªºµ{¦¡ÁÙ¬OµLªk¹Bºâ,
½ÐÀ°§Ú¬Ý¤U¸Ó«ç»òÅý¥¦°õ¦æ?
~~·PÁÂ~~
¸ê®ÆÅçºâ.rar (17.02 KB)

¤U¸ü¦¸¼Æ: 4

2023-4-26 22:23

PJChen

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

­ã¤j¦n,
½Ð±Ð¦Û©w¸q Function GetSerial(ST$),µ{¦¡»P­n­pºâªºÀɮשñ¦b¤@°_,´N¥i¥H­pºâ,
¦ý¦]¬°§Ú¬O§âµ{¦¡»P­pºâÀɤÀ¶}¦s©ñ,¦ý§Ú°µ¤F«ü©w¤´¬OµL§@¥Î??

Function GetSerial(ST$)
Dim Sh As Worksheet, W As Workbook
Set W = Workbooks("¥X³f¤å¥ó_PO.xlsx"): Set Sh = W.Sheets("½c¸¹­pºâ"): Sh.Activate

Dim a, Tr, V1%, V2%, S%
If InStr(ST, "(") = 0 Then ST = "(" & ST
ST = Split(Replace(ST, ")", ""), "(")(1)
For Each a In Split(ST, ",")
    Tr = Split(a & "-" & a, "-")
    V1 = Val(StrReverse(Mid(Val(StrReverse(Tr(0) & 1)), 2)))
    V2 = Val(StrReverse(Mid(Val(StrReverse(Tr(1) & 1)), 2)))
    If V1 + V2 <> 0 Then S = S + Abs(V2 - V1) + 1
Next a
If S > 0 Then GetSerial = S Else GetSerial = ""
End Function