VBA 的問題,試了很久一直沒法解決 求助?

2017-01-28 4:44 pm
Sub 投信買賣公式()
Sheets("投信彙整").Select
AA = 10
BB1 = 6 '=F
BB2 = 10 '=J
XX = 1
Do While XX <= 3
Cells(6, AA) = "=VLOOKUP($A6,法人買賣! R1C" & BB1 & ":R2000C" & BB2 & ",3,FALSE)" '=VLOOKUP($A6,法人買賣!F1:J2000,3,FALSE)原來的公式
AA = AA + 1
B1 = B1 + 5
B2 = B2 + 5
XX = XX + 1
Loop
End Sub
請教先進 以上這段巨集哪裡錯誤了 執行到 Cells(6, AA) = "=VLOOKUP($A6,法人買賣! R1C" & BB1 & ":R2000C" & BB2 & ",3,FALSE)"
一直出現錯誤,而中斷執行。

麻煩賜教 謝謝
更新1:

致 CHENG 謝謝您賜復 但小弟初學,不知如何錄製,在說明一下我的需求 這段巨集 =VLOOKUP($A6,法人買賣!A1:C200,3,FALSE) VLOOKUP 函數在巨集內使用時, $A6 與 A1:C200 希望用變數,要如何寫

更新2:

致 CHENG 謝謝您賜復 但小弟初學,不知如何錄製,在說明一下我的需求 這段巨集 =VLOOKUP($A6,法人買賣!A1:C200,3,FALSE) VLOOKUP 函數在巨集內使用時, $A6 與 A1:C200 希望用變數,要如何寫

更新3:

感謝 John 大大 您的功力了得 複製您修正的巨集 (Cells(6, 10) = "=VLOOKUP(RC1, 法人買賣!R[-5]C[-4]:R[1994]C, 3, FALSE)" 一執行就過關了,非常高興,但是我還必須用功弄清楚您修改的涵義。 再次 致謝

更新4:

也謝謝 Cheng 大大的回覆

回答 (2)

2017-01-29 11:23 am
✔ 最佳答案
假如我明白妳在做什麼,這程是錯的,妳可以直接打上去試,一定出錯。
如果妳唔明白,就須要多一點時間解釋。祝妳好運,唔明再問啦。

如要用 FormulaR1C1 format,我相信,條程式應該係咁的。

' The lookup_value is $a6 (RC1) and table_array is f1:j2000 (r[-5]c[-4]:r[1994]c) 留意,任何一個數值改變條程式都會唔同。

Cells(6, 10) = "=VLOOKUP(RC1, 法人買賣!R[-5]C[-4]:R[1994]C, 3, FALSE)"
2017-01-28 6:45 pm
錄製加入該公式的巨集就知道那裡錯


收錄日期: 2021-05-03 13:51:52
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20170128084421AA9wwqG

檢視 Wayback Machine 備份