ランタイムエラー

Question

Hellowすべての式のステートメントに変数を挿入した後、オリジナルの記録文の下に動作します：

Dim lastrow, prodflow As String 

lastrow = Range("C65536").End(xlUp).Row  'Determine last row where data ends 

Range("G2:G" & lastrow).Formula = "=VLOOKUP(LEFT(RC[-1],FIND(""-"",RC[-1],1)+4),'[Process Flows.xlsx]TABLE_X'!R1C1:R999C70,14,FALSE)" 

をしかし、私は、変数prodflowでTABLE_Xを交換しようとしたとき、実行時エラーが私の式文で発生します。

Dim lastrow, prodflow As String 

lastrow = Range("C65536").End(xlUp).Row  'Determine last row where data ends 
prodflow = Cells(2, 2)      'Read value in cell B2 and store as string 

Range("G2:G" & lastrow).Formula = "=VLOOKUP(LEFT(RC[-1],FIND(""-"",RC[-1],1)+4),'[Process Flows.xlsx]" & prodflow & "'!R1C1:R999C70,14,FALSE)" 

私が問題にしているグーグルと同様の質問にすべての答えは、私がやっていることは正しいことを指摘しています。私が逃しているものは他にありますか？ありがとうございました！

Answer 1

は、式文字列を作成し、その後範囲式に代入してみ：

DIM F = "= A + B"

RANGE。 FORMULA = F

immidiate窓からFの結果を取得し、Excelでそれを確認...それはそれはあなたのコードで動作するはず動作するかどうか。