返回列表 上一主題 發帖

[發問] VBA 儲存格帶入公式問題

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-8-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-19 15:39 | 只看該作者

[發問] VBA 儲存格帶入公式問題

請教高手
小弟自己寫的VBA 有帶公式到儲存格內
其中內容如下
Cells(23, 6) = "=IFERROR(VLOOKUP($C23,基本資料!$B:$S,4,0),"""")"

但小弟有很多格要寫
Cells(23, 6) = "=IFERROR(VLOOKUP($C23,基本資料!$B:$S,4,0),"""")"
Cells(24, 6) = "=IFERROR(VLOOKUP($C24,基本資料!$B:$S,4,0),"""")"
Cells(25, 6) = "=IFERROR(VLOOKUP($C25,基本資料!$B:$S,4,0),"""")"
.
.
.
.
請問有沒有簡便一點的寫法
用Do loop嗎
還是FOR NEXT 寫呢??
收藏 分享

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-4-19 15:55 | 只看該作者
回復 1# fantersy


    直接範圍給它就行了如下:
Range("F23:F30") = "=IFERROR(VLOOKUP($C23,基本資料!$B:$S,4,0),"""")"

TOP

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-8-2 
3#
發表於 2015-4-19 18:36 | 只看該作者
回復  fantersy


    直接範圍給它就行了如下:
Range("F23:F30") = "=IFERROR(VLOOKUP($C23,基本資料 ...
lpk187 發表於 2015-4-19 15:55



感謝lpk187 大的回覆
等會來測試看看~
感恩你^^

TOP

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-8-2 
4#
發表於 2015-4-19 18:37 | 只看該作者
回復  fantersy


    直接範圍給它就行了如下:
Range("F23:F30") = "=IFERROR(VLOOKUP($C23,基本資料 ...
lpk187 發表於 2015-4-19 15:55



    還沒有測~只是剛想到..
那公式裡的C23....不會跟著跳...不是很怪嗎?

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-4-19 19:38 | 只看該作者
回復 4# fantersy


    你測了就會知道，C23一定會跟著變

TOP

fantersy

帖子
132 
主題
35 
精華
0 
積分
179 
點名
0  
作業系統
Windows 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-12-24 
最後登錄
2024-8-2 
6#
發表於 2015-4-19 19:56 | 只看該作者
回復  fantersy


    你測了就會知道，C23一定會跟著變
lpk187 發表於 2015-4-19 19:38



    感謝lpk187 大大
剛測試完了..可以
原來還有這種寫法...
我剛用Range("F23:F30") .Select
結果跑不出來
後還用了大大的Range("F23:F30")  沒有加上Select 就可以了
而且還會自己跑....
感謝大大的幫忙^^

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題