マクロ内で開いた別ファイルにあるリストをVLookupで参照するマクロを作っています。
固定のファイルで行う場合には以下の内容で動いています。
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],'070801.xls'!R1C1:R2430C6,6,FALSE)"
このファイル名[070801.xls]とセル範囲(行数がファイルによって違う)のを変数で渡す必要があります。
#細かい部分は割愛しています。
Workbooks.Open Filename:=Fname, ReadOnly:=True 'ファイル読み込み
Range("A1").CurrentRegion.Select 'データ全体選択
Selection.SpecialCells(xlCellTypeLastCell).Select '最終行検出
endRcell = ActiveCell.Row
********ここの間に入る処理
********多分「Range(Cells(1, 1), Cells(endRcell, 6))」など
ThisWorkbook.Activate
Range("H2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],?????,6,FALSE)"
↑ここに指定する変数
2カ所について、どのように指定すればよいのか分かりません。
色々試してみたのですが・・・・
よろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ka_na_deです。
変数にしたいという質問でしたね。
これで、どうでしょう?
Sub test2()
Dim Rng As Range
Set Rng = Workbooks("070801.xls").Worksheets("Sheet1").Range("A1:F2430")
ActiveCell.Value = _
WorksheetFunction.VLookup(ActiveCell.Offset(, -4).Value, Rng, 6, False)
End Sub
No.1
- 回答日時:
これでどうですか?
見やすくするために、 _ で、改行を繰り返していますが、
1行でも結構です。
ActiveCell.Value = _
WorksheetFunction.VLookup( _
ActiveCell.Offset(, -4).Value, _
Workbooks("070801.xls").Worksheets("Sheet1").Range("A1:F2430"), _
6, _
False)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
フォルダ内のexcelファイルを順...
-
エクセル 複数ファイルの一括...
-
フォルダ内のブック全部にパス...
-
新規 xlsmファイルにする方法...
-
エクセルのマクロについて教え...
-
エクセル(マクロ)のファイル...
-
VBAでワークブックの名前を変数...
-
vlookup関数の引数を変数で指定...
-
エクセルファイルを開く時、関...
-
accessフォルダを移動したらフ...
-
エクセルマクロで不特定なファ...
-
Excel VBA でファイルが開かれ...
-
エクセルのxls形式からxlsx形式...
-
【マクロ】名前を保存する際に...
-
VBA 新規にエクセルを開き既存...
-
Accessのaccdbファイルを起動で...
-
複数のエクセルファイルに対し...
-
VBA EXCELファイル選択⇒指定セ...
-
エクセルVBA 上書き保存禁止と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
【マクロ】名前を保存する際に...
-
VBAでワークブックの名前を変数...
-
エクセルマクロで不特定なファ...
-
【マクロ】読取専用のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセルのシートの数を数えた...
-
フォルダ内のexcelファイルを順...
-
エクセル(マクロ)のファイル...
-
vlookup関数の引数を変数で指定...
-
エクセル 複数ファイルの一括...
-
ファイルを開かずにマクロを実行
-
フォルダ内のブック全部にパス...
-
【Excel VBA】ファイル名が一...
-
ファイルの保存場所を変えたら...
-
vba初心者です。 質問です。 毎...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
Excel VBA でファイルが開かれ...
-
エクセルマクロ 異なるファイ...
おすすめ情報