初心者です。
ほんとに迷宮にはいっていまい、提示のコードもめちゃめちゃですが
ご回答頂ける方はいらっしゃいますでしょうか・・・
マクロのコード記載のある "A.xle" ファイルの"報告書"シートのE2セルに
外部ファイル(一覧.xls)からVLOOKで値をひっぱってきて入力させたいです。
Vlookで入力させたい値が複数あるので、一気にできたらと思っているのです。
Private Sub CommandButton111_Click()
Dim wb1 As Workbooks
Dim 範囲 As Range
Dim 列番号 As Range
Dim 検索値 As Range
Range("E2") = TextBox1.Value
Set wb1 = Workbooks.Open("\\192.168.~\~\一覧.xls")
Set 範囲 = \\192.168.~\~\一覧.xls 状況!A3:P3000 ←ここに外部ファイルを設定したいのですが、どう記述すればよいかわかりません。
列番号 = 11
検索値 = (Worksheets("報告書").Range("E2"))
Range("D3").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
Unload Me
End Sub
どうぞ、ご教授宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
変数の指定の仕方がめちゃくちゃですよ。
取り合えず、動くようにだけですがPrivate Sub CommandButton111_Click()
Range("E2") = TextBox1.Value
Workbooks.Open("\\192.168.~\~\一覧.xls")
Set 範囲 = Sheets("状況").Range("A3:P3000")
Thisworkbook.Activate
列番号 = 11
検索値 = (Worksheets("報告書").Range("E2"))
Range("D3").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
Unload Me
End Sub
ではいかがでしょうか?
だた、やりたいことは D3セルに
=VLOOKUP(E2,'\\192.168.~\~\[一覧.xls]状況'!A3:P3000,11,FALSE)
と入れておけば大丈夫だと思うのですが。
取り合えず、位置のファイルを開いた状態でVLOOKUP関数のウィザードに従って
式を組み立ててみてください。
その後、一覧のファイルは閉じて動きを試してみてください。
この回答への補足
ありがとうございます!無事に動きました。
同じファイルが100以上あり、範囲であるファイルが期ごとに変わる事から
PERSONAL.xlsに保存しようと思ったのです。
もしよろしければ、vlookの値が入るD3セルがD4、D5
検索値がE2,E3・・・となる場合(textboxは考えず)
どのように繰り返しを組めば良いのでしょうか・・・
検索値を=で指定しているので、どうするかわかりません。
基本が出来てないので、応用が・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル 指定した文字列を含...
-
エクセルで同じ名前ごとの合計...
-
エクセルの関数SUBSTITUTEを、...
-
エクセルで一部除外した数字を...
-
Excelで自動的に並べ替えなんて...
-
エクセルで列内の同じIDの商品...
-
EXCEL VBA 指定範囲内で特定の...
-
Excel 複数キーワードの確認方法
-
エクセル マクロで列を連続し...
-
エクセルマクロでA欄に値があ...
-
エクセルVBA Unionはなぜ遅い?
-
Excelで数値→文字列変換で指数...
-
Excelで行ごとコピー、同じ行を...
-
テキストボックス内の文字のふ...
-
エクセルにおける、グラフの指...
-
エクセルでグラフタイトルが折...
-
エクセル
-
たくさん作った同じ設定のグラ...
-
Excelの関数について、特定の文...
-
PDFの一部を切り取って別のシー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル 指定した文字列を含...
-
エクセルで同じ名前ごとの合計...
-
エクセルVBA Unionはなぜ遅い?
-
エクセルの関数SUBSTITUTEを、...
-
桁数が混在する並び替えの方法
-
エクセルで一部除外した数字を...
-
EXCEL VBA 指定範囲内で特定の...
-
エクセルで列内の同じIDの商品...
-
エクセルで2列を検索し2列とも...
-
エクセル マクロで列を連続し...
-
EXCEL 指定した曜日に番号を振...
-
EXCELである列を上から順にチェ...
-
Excelで自動的に並べ替えなんて...
-
エクセルvba 一つ上の行を指定...
-
エクセル VLOOKUPが反映されない
-
エクセルマクロでA欄に値があ...
-
(続き)Excel2013で正しくソート...
-
ExcelVBA:列方向の並び替え O...
-
エクセルのマクロ教えてください。
-
エクセル 並び替え
おすすめ情報