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.5

Yosha · ベストアンサー

No.3 です。　訂正します。

　路線検索 Selection.Row　⇒　路線検索 Cel.Row

回答No.4

okormazd

質問のように２００個ボタンを配置して、どれかのボタンを押せば、その行のデータで実行するように、Range(ba).Valueとかにはできて、標準モジュールのコードは短くできる。
しかし、
各ボタンについてクリックイベントを書かなければならなくて、結局同じようなコードを書く羽目になって、質問のようにするのは面白くない。
他の回答者のように１つのボタンで処理するようにした方がいいと思う。

クリックイベントは下記。
Private Sub CommandButton1_Click()
r = Selection.Row
路線検索
End Sub

標準モジュールは、

モジュールで宣言
Public r As Long

from,toを下記に直す。
objIE.Document.all("from").Value = Cells(r, 1).Value
objIE.Document.all("to").Value = Cells(r, 2).Value

これで、どこかの行を選択して、ボタンをクリックすればその行のデータを処理する。

回答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

とします。

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

回答No.2

web2525

目的地と出発地をリスト表示にして常に2行目だけで実行するようにしたら問題ないのでは?

目的地と出発地の組み合わせが毎回固定ならばA列とB列を一つにする
例
A2セルを【府中⇒桜上水】として
B2セルに=LEFT(A2,FIND("⇒",A2)-1)
C2セルに=MID(A2,FIND("⇒",A2)+1,100)
としてマクロのセル指定をそれぞれ Range("B2")と Range("C2")にする。

と言うか路線検索なら毎回、目的地・出発地を入力する方が実用的なのでは?

回答No.1

n-jun

例えば。

・ボタンを１つにする
・検索したい行のＡ列をアクティブ（選択）にしておく
・ボタンを押す
＞objIE.Document.all("from").Value = Range("A2").Value
＞objIE.Document.all("to").Value = Range("B2").Value
objIE.Document.all("from").Value = ActiveCell.Value
objIE.Document.all("to").Value = ActiveCell.Offset(,1).Value

とか？
⇒２００行だとアクティブにしてからマクロを実行した方が楽かな？
ボタンだとスクロールさせる分だけ大変かも。

お礼

おそくなりました！
とても参考になりました。
ありがとうございます☆