- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24

|
2#
發表於 2015-8-26 16:48
| 只看該作者
Function zz(x, y)
For i = 1 To Len(x)
If Mid(UCase(x), i, 1) = UCase(y) Then a = a & ";" & i
Next
zz = Mid(a, 2)
End Function
自定函數.zip (8.6 KB)
|
|