[[20121205211137]]　『Ｃ列の住所でＭＡＰＦＡＮの地図を検索したい』（初心者）　ページの最後に飛ぶ

『Ｃ列の住所でＭＡＰＦＡＮの地図を検索したい』（初心者）

 先日、下記のコードでＣ３列に書いた住所をＭＡＰＦＡＮの地図で位置表示する
 ことができることを教えて頂きました。
　=HYPERLINK("http://link.mapfan.com/link.cgi?ADDR=" &C3,"地図表示(MAPFAN)")
 今回はＣ列に住所を並べ、あるセルを選択しマクロを起動すると、該当の位置を
 ＭＡＰＦＡＮ上に表示したいと考えました。
 いろいろ検索等してみたのですが、見つかりませんでした。どうすればいいいでしょう か。
 グーグル地図の場合は教え頂いたり、検索で
 Ｅ列に住所を書き
 下記で可能となっています。
 Sub グーグル地図へ()
 Dim URst1 As String
 If ActiveCell.Column = 5 Then
 Range("A1").Value = ActiveCell.Value
 URst1 = "http://maps.google.co.jp/?hl=ja&q=" & Range("A1").Value
 With CreateObject("InternetExplorer.Application")
   .Navigate URst1
   .Visible = True
 End With

 Else
 MsgBox "Ｅ列の住所を選択して下さい"
  End If

 End Sub

 ＵＲＬを書き換えたふだけではエラーになってしまいます。
 よろしくお願いします。

ハイパーリンクで出来ることをなんでわざわざマクロで？

 ご意見、ありがとうございます。処理の起動を絶えず、同じボタンで
 やりたいと考えました。
 たとえば（ＭＡＰＦＡＮでの検索）というボタンです。
 住所のセルを選択して（ＭＡＰＦＡＮでの検索）ボタンをクリック
 するとＭＡＰＦＡＮが開く・・・という風にしたいと考えました
 （初心者）

ハイパーリンクならセルクリックだけですが。
一動作増やす意図が理解できない。

 ご意見、ありがとうございます。
 具体的に各列にはいろんな種類のデータが入っています。
 １行～３行まで、複数のボタンがすでに作成してあります。
 そこに（ＭＡＰＦＡＮでの検索）というボタンを作成したいと考えています
 １行～３行は作業ボタンの領域で使っています。
  すべての操作をボタン操作でやりたいと考えました。
 ４行以下はデータ領域、１～３行はボタン操作領域としたいと考えました。
 ご理解して頂けるでしょうか　
 できましたらＨＮを記載して頂けるとうれしいです
 （初心者）

 その時選択しているセルの住所で、というだけなら、
 次のようなコードで出来ましたよ。
　
 Sub test20121206()
     Dim URst1 As String
     URst1 = "http://link.mapfan.com/link.cgi?ADDR=" & ActiveCell.Value
     With CreateObject("InternetExplorer.Application")
       .Navigate URst1
       .Visible = True
     End With
 End Sub
　
（みやほりん）

 みやほりんさん、ありがとうございました。
 できました。
 他のサイトの地図検索でも確認してみます。
 （初心者）2012：1206-20:22

コメント返信：

[ 一覧(最新更新順) ]

[[20121205211137]] 『Ｃ列の住所でＭＡＰＦＡＮの地図を検索したい』（初心者） ページの最後に飛ぶ

[[20121205211137]]　『Ｃ列の住所でＭＡＰＦＡＮの地図を検索したい』（初心者）　ページの最後に飛ぶ