Excel VBA 超初心者です…苦戦しています。

質問

なかなか進めれず苦戦しています。
http://okwave.jp/qa/q3743796.html

上記で質問されている方法をVBAで処理したいのですが、良い方法を教えて頂けますでしょうか。初心者なのでなるべく詳しく教えて頂けますと助かります。宜しくお願いします。

回答No.1

imogasi

本来、エクセル（の質問）では、ブックーシートーセルを意識して質問すべきなのだ。
＞AファイルのセルA1には任意の値を入力可能で
なんて、関連（前）質問での書き方は、それなりの質問者であることを示すとおもう。
ブック１のＳｈｅｅｔ１のセルＡ１に、文字列が入力してあり、それはブック２のシート名を表すという場合の例ならば、下記を参考にしてみては。
ーーー
下記を作ってテストしてみる。
例　ブック・シート・データ
ーー
ブック１のブック名
シート名指定
シート名
Sheet１
セルＡ１の値
２７年業績
ーーー
ブック２のブック名
シート名指定
シート名
２７年業績
セルＢ２の値
12345
---
コード
標準モジュールに
Sub test01()
Set wb1 = Workbooks.Open("シート名指定")
x = wb1.Worksheets("Sheet1").Range("A1")
MsgBox x
y = Workbooks("シート参照").Worksheets(x).Range("B2")
MsgBox y
End Sub
ーー
実行すると
12345
がメッセージボックスで出る。
ーーー
上記のブック１にあるデータを、ブック１を開かないで、採りたいという内容の質問が時々あり、エクセル４．０マクロという、昔の時代（エクセル９５以前）の旧式の関数（一種のプログラム）で採ればできるという回答が出たものだ。Ｇｏｏｇｌｅで「エクセル４．０マクロ」で検索。
ＶＢＡでやる場合はＩＮＤＩＲＥＣＴ関数などを使って、策を弄す必要はなく、「ブック名」や「シート名」を「変数」に一旦入れて、それを引数＝パラメータとして使うことで素直な記述（処理）ができる。これがＶＢＡを使う利点です。
しかし、ブック名・シート名・セル番地の変数化して利用は、エクセルＶＢＡについては、相当経験を積まないと、使うことに不安を感じると思う。
質問者の場合、＞初心者なので、らしいから、慣れる必要があると思う。
またエクセル４．０マクロには、凝らないほうがよいと思う。

補足

質問内容が不足しておりすみません。以前に別の方が質問されている内容で、VBAの処理方法を知りたくリンクを貼らせて頂きました。仕入管理をしたく、例）としては、B2に仕入先名（仕入先は複数あり）をリストより表示し、B5に仕入商品名を入力表示すると、別ブックで作成している仕入商品一覧（仕入先毎に商品一覧シートあり）から自動的に単価が表示されるようにし、登録ボタンをクリックすると、元々作成している別シートの其々の仕入シートに蓄積されるようにしたいです。
VLOOKUP関数を利用し、一つのシートを参照する方法は分かるのですが、それ以外の方法やVLOOKUP関数を使用せずにVBAで良い方法があるか教えて頂けますでしょうか。