- 帖子
- 2842
- 主題
- 10
- 精華
- 0
- 積分
- 2898
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-4-28
|
自訂函數//
Function GetSerial(ST$)
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
c17//公式
=GetSerial(A17)
|
|
發表於 2023-4-21 14:32
| 
