返回列表 上一主題 發帖

如何在VBA中寫入EXCEL公式？

mnsmrtl

帖子
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
結果偵錯卻說必須是陳述式結尾，請問怎麼寫比較好？請先進指點一二~感謝
收藏 分享
不進則退

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
2#
發表於 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

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題