返回列表 上一主題 發帖

[發問] 請問能否以變數取代程式碼

mygod0403

帖子
23 
主題
10 
精華
0 
積分
60 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-10-19 
最後登錄
2014-10-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-11 23:43 | 只看該作者

[發問] 請問能否以變數取代程式碼

大家好：
我的一段類似以下的程式碼
ActiveSheet.Cells(f, 4).FormulaR1C1 = "=IF(OR(RC[3]=1,RC[6]=""""),"""",1)"
想以變數這樣的方式來取代
然後在加以引用
不知可不可行
謝謝~~~
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-12-12 08:00 | 只看該作者
回復 1# mygod0403
是這樣嗎?
ActiveSheet.Cells(f, 4) =變數

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
151  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-7-1 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-12-12 08:25 | 只看該作者
回復 1# mygod0403


x = IIf(Cells(f, "G") = 1 Or Cells(f, "J") = "", "", 1)
Cells(f, 4) = x
學海無涯_不恥下問

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題