標題: [發問] 程式碼 [打印本頁]

---

作者: tinching    時間: 2013-7-25 17:11     標題: 程式碼

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

---

作者: mei27    時間: 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

---

作者: stillfish00    時間: 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都確定為正常值不用另外判斷。

---

作者: GBKEE    時間: 2013-7-25 19:59

回復 1# tinching
你會用 IF(R3C2
那套進去就好了

1. M1] = "=IF(R3C2<>"""",""****""&MID(R3C2,r1c1,r2c1),"""")"

複製代碼

---

作者: tinching    時間: 2013-7-25 21:05

謝謝解答，可以用了。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)