- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-27
|
2#
發表於 2016-5-20 21:48
| 只看該作者
自訂函數：（只預設序號從１∼３０００）- Function GetNo(xStr$) As String
- Dim Ar(0 To 3000), A, i%, N1, N2, T, TT$
- For Each T In Split(xStr, ",")
- A = Split(0 & Trim(T) & "~0~0", "~")
- For i = A(0) To A(1)
- Ar(i) = 1
- Next
- Next
- For i = 1 To 3000
- If Ar(i) = 1 Then
- If N1 = "" Then N1 = i Else N2 = i
- Else
- If N1 <> "" Then TT = TT & "," & N1 & IIf(N2 = "", "", "-" & N2)
- N1 = "": N2 = ""
- End If
- Next
- GetNo = Mid(TT, 2)
- End Function
=GetNo(A2)
字串太長可能造成錯誤結果∼∼
|
|
發表於 2016-5-20 10:18
| 
