マクロ内で開いた別ファイルにあるリストを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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
vlookup関数の引数を変数で指定することはできますか?
Excel(エクセル)
-
エクセル VBA VLOOKUP
Excel(エクセル)
-
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
-
4
VLOOKUP関数:別シートにある参照範囲が変動する場合
Access(アクセス)
-
5
ピボットテーブルでの毎回可変するデータの最終行までの範囲を指定したいです。
PowerPoint(パワーポイント)
-
6
excel vbaでvlooupの変数がわかりません。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
エクセルのxls形式からxlsx形式...
-
ファイルの保存場所を変えたら...
-
ファイルを開かずにマクロを実行
-
フォルダ内のexcelファイルを順...
-
vlookup関数の引数を変数で指定...
-
エクセルのシートの数を数えた...
-
Accessのaccdbファイルを起動で...
-
複数のエクセルファイルに対し...
-
フォルダ内のブック全部にパス...
-
【Excel VBA】ファイル名が一...
-
<ACCESS VBA -> EXCEL>getObjec...
-
エクセルのマクロについて教え...
-
エクセル(マクロ)のファイル...
-
VBAでワークブックの名前を変数...
-
LTSpiceにLMV358-Nのモデルを入...
-
データ参照先が別ファイルの場...
-
エクセルVBAについて
-
エクセルマクロ 異なるファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
VBAでワークブックの名前を変数...
-
エクセル(マクロ)のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセル 複数ファイルの一括...
-
エクセルのシートの数を数えた...
-
【マクロ】名前を保存する際に...
-
【Excel VBA】ファイル名が一...
-
ファイルを開かずにマクロを実行
-
accessフォルダを移動したらフ...
-
フォルダ内のブック全部にパス...
-
vlookup関数の引数を変数で指定...
-
Excel VBA でファイルが開かれ...
-
ファイルの保存場所を変えたら...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
エクセルマクロ 異なるファイ...
-
データ参照先が別ファイルの場...
おすすめ情報