- 帖子
- 31
- 主題
- 0
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2016
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2016-10-4
- 最後登錄
- 2017-10-17
 
|
2#
發表於 2016-12-29 00:22
| 只看該作者
- Function convert1(str As String) As String
- Dim arr(1 To 114), brr(1 To 114)
- For j = 1 To 114
- arr(j) = Format(j - 4, "#00.")
- Next j
- arr(1) = "A.": arr(2) = "B.": arr(3) = "C.": arr(4) = "D."
- For j = 1 To 114
- brr(j) = "甲" & j
- Next j
- For j = 1 To 114
- If InStr(str, arr(j)) > 0 Then
- t = IIf(t = "", brr(j), t & "." & brr(j))
- End If
- Next j
- convert1 = t
- End Function
|
|
發表於 2016-12-29 09:54
| 
