返回列表 上一主題 發帖

[發問] 程式碼

mei27

帖子
31 
主題
5 
精華
0 
積分
52 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
女 
來自
台中 
註冊時間
2013-7-22 
最後登錄
2015-3-23 
1# 跳轉到 »
發表於 2013-7-25 18:22 | 顯示全部帖子
回復 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

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題