VBAについて。セルにあわせてマクロを変更したい。

質問

VBAを使い、yahooの路線検索を閲覧しています。

出発地　目的地
府中 桜上水 【ボタン】
新宿 御徒町 【ボタン】

日暮里　巣鴨　　【ボタン】

A列のセルを出発地
B列のセルを目的地
にそれぞれ入力しています。
C列の【ボタン】を押すとマクロが動くようにしたいと思っています。

下記のマクロの『Range("")』の部分を
3行目の【ボタン】をクリックしたら
『Range("A3")』
『Range("B3")』
に

4行目の【ボタン】をクリックしたら
『Range("A4")』
『Range("B4")』
に・・・

としたいと思っています。
200行近くあるので、ひとつひとつマクロを作成するのはとても大変で、色々と調べたのですが、どうにも解らず、助けを求めにきました。

また…
【ボタン】に関しても、特に意味はなく、使いやすいかなと思った程度ですので、同じような使い方をしている方で、便利にしようする方法などありましたら教えていただければと思います。
-------------------------------------------------------------------
Sub 路線検索()

Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://transit.yahoo.co.jp/"
Do While objIE.Busy = True

DoEvents
Loop
objIE.Document.all("from").Value = Range("A2").Value
objIE.Document.all("to").Value = Range("B2").Value
objIE.Document.all.tags("input").Item(17).Click

End Sub

-------------------------------------------------------------------

回答No.3

Yosha

>同じような使い方をしている方で、便利にしようする方法などありましたら

私個人の好みでよく使う方法です。 目的のシートのみに有効にしたいときに使います。

エクセル自体に、新しいコマンドボタンを張り付けると、いろいろ不都合なことがあります。

具体的には、目的のシートの最上段＝１行目の高さを少し高くして、そこにコマンドボタンを配置し、２行目で「ウィンドウ枠の固定」をします。　これで以下の行をスクロールしてもボタンの位置は動きません。　

コマンドボタン（オブジェクト）名は　“決定”　など適当な名前を付けます。　

コードの一例

当該シートのオブジェクトに

　　Private Sub 決定_Click()
　　　　Dim Cel As Range
　　　　For Each Cel In Selection
　　　　　　路線検索 Selection.Row
　　　　Next
　　End Sub

とを書き込む。　

標準モジュールのコードを少し書き換えます。

　　Sub 路線検索(nRow As Long)

として、選択した行番号を受けます。

　　Range("A2").Value　⇒　Range("A" & nRow).Value
　　Range("B2").Value　⇒　Range("B" & nRow).Value

とします。

これで、シートを目的の行まで、スクロールし１行または複数行を選択する（行のみ必要ですので、列はどこでも構いません）し、“決定ボタン”　を押せばよい。