帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-8-18 17:46 | 只看該作者

如何在VBA中寫入EXCEL公式？

如題，我想利用VBA在儲存格中寫入公式，如=VLOOKUP(A3,SHEET1!A:M,3,FALSE)
但由於A3中的3，想以變數代入
所以我是這樣寫的：
Do while CONDITION1
　　Sheet2.Cell(x,"A")="=VLOOKUP(A" & X & ",DDE!A:M,3,FALSE)"
loop
結果偵錯卻說必須是陳述式結尾，請問怎麼寫比較好？請先進指點一二~感謝

樓主熱帖

不進則退

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-8-18 18:36 | 只看該作者

Sheet2.Cell(x,"A")="=VLOOKUP(A" & X & ",DDE!A:M,3,FALSE)"

學海無涯_不恥下問

TOP

solely

中學生 Rank: 2

帖子: 92
主題: 18
精華: 0
積分: 195
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 女
來自: 台北
註冊時間: 2010-8-15
最後登錄: 2011-8-11

3^#

發表於 2010-8-18 20:43 | 只看該作者

Sheet2.Cell(x,"A")="=VLOOKUP(A" & X & ",DDE!A:M,3,FALSE)"
Hsieh 發表於 2010-8-18 18:36

等號兩邊都是Sheet2!A，不是會造成循環參照?!

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2010-8-18 21:39 | 只看該作者

回復 3# solely

會的, 應該是樓主自行解決後沒回來了

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-8-18 21:40 | 只看該作者

回復 3# solely
那就看你的公式到底是要做怎樣參照
這只針對你語法錯誤做解答
你的A2公式是要參照A?
?是你要知道的變數帶入

學海無涯_不恥下問

TOP

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

6^#

發表於 2010-8-18 22:26 | 只看該作者

本帖最後由 mnsmrtl 於 2010-8-18 22:33 編輯

不知道是不是不能打太長…
.Cells(x,4)="=if(vlookup(A" & x & ",DDE!$A: $M,4,false)=vlookup(A" & x & ",DDE!$A: $M,9,false),"不破",
(vlookup(A" & x & ",DDE!$A: $M,9,false)/vlookup(A" & x & ",DDE!$A: $M,3,false)-1)*100"
我是寫成這樣，它回覆訊息是「編繹錯誤，必須是陳述式結尾」，如果直接key在儲存格應該是：
=if(vlookup(a3,DDE!$A: $M,4,false)=vlookup(A3,DDE!$A: $M,9,false),"不破",
(vlookup(A3 ,DDE!$A: $M,9,false)/vlookup(A3,DDE!$A: $M,3,false)-1)*100)
反白的地方在「"不破"」這裡…
不知道是公式本身有錯，還是在vba寫的時候弄錯了…

感謝各位幫忙，小弟已經找到問題了，在「"不破"」處必須用""不破""才行，已經解決了^^~不勝感激^^

不進則退

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2010-8-18 23:32 | 只看該作者

本帖最後由 Hsieh 於 2010-8-18 23:37 編輯

回復 6# mnsmrtl

錄製一個有包含"的公式就知道問題出在哪裡了
"=if(vlookup(A" & x & ",DDE!$A: $M,4,false)=vlookup(A" & x & ",DDE!$A: $M,9,false),""不破"",(vlookup(A" & x & ",DDE!$A: $M,9,false)/vlookup(A" & x & ",DDE!$A: $M,3,false)-1)*100"

學海無涯_不恥下問

TOP