- 帖子
- 31
- 主題
- 5
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 性別
- 女
- 來自
- 台中
- 註冊時間
- 2013-7-22
- 最後登錄
- 2015-3-23
|
回復 1# tinching
可能要這樣子才有辦法執行吧，不知道有沒有其他高手知道
sub test
If Cells(3, 2) <> "" Then
[m1] = "***" & Application.Text(Mid(Cells(3, 2), [a1], [a2]), 0)
Else: [m1] = ""
End If
end sub |
|
發表於 2013-7-25 18:22
| 