返回列表 上一主題 發帖

[發問] 程式碼

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2015-9-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-7-25 17:11 | 只看該作者

[發問] 程式碼

[M1] = "=IF(R3C2<>"""",""****""&MID(R3C2,1,20),"""")" 請教各位，小弟想將此程式碼的「1」改為=A1的值，「20」=A2的值。請賜教！
收藏 分享

tinching

帖子
38 
主題
18 
精華
0 
積分
115 
點名
0  
作業系統
xp 
軟體版本
office xp 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-5-11 
最後登錄
2015-9-29 
5#
發表於 2013-7-25 21:05 | 只看該作者
謝謝解答，可以用了。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-7-25 19:59 | 只看該作者
回復 1# tinching
你會用 IF(R3C2
那套進去就好了
  1. M1] = "=IF(R3C2<>"""",""****""&MID(R3C2,r1c1,r2c1),"""")"
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2013-7-25 19:54 | 只看該作者
本帖最後由 stillfish00 於 2013-7-25 19:57 編輯

回復 1# tinching
[M1] = "=IF(R3C2<>"""",""****""&MID(R3C2," & [A1] & "," & [A2] & "),"""")"

P.S:假設你code是放在工作表內，且A1，A2都確定為正常值不用另外判斷。

TOP

mei27

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

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題