[[20151015110214]]　『コマンドボタンにURL埋め込み』（wish）　ページの最後に飛ぶ

『コマンドボタンにURL埋め込み』（wish）

コマンドボタンをクリックするとURLにジャンプさせたいのですが

Private Sub cmb郵便番号検索_Click()

    Me.cmb郵便番号検索.HyperlinkAddress = "http://www.post.japanpost.jp/zipcode/"

End Sub

間違っているみたいで・・・HyperlinkAddress←ここがダメみたいなのですがどうしたらいいでしょうか？初心者ですみません

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 WEBブラウザはデフォルトのでいいなら、↓でいけます。

 CreateObject("Shell.Application").ShellExecute "http://www.post.japanpost.jp/zipcode/"
（カリーニン） 2015/10/15(木) 11:13

 なお、ファイルやフォルダを起動するのにも使えます。

 CreateObject("Shell.Application").ShellExecute "パス"

 MSオフィス関連のファイルは別ですが。
（カリーニン） 2015/10/15(木) 11:15

 ThisWorkbook.FollowHyperlink Address:="http://www.post.japanpost.jp/zipcode/"
 ではどうか？
（ねむねむ） 2015/10/15(木) 11:17

ありがとうございます。助かりました。

ほんとに初心者ですみません・・・
（wish） 2015/10/15(木) 11:18

 もっとやるならこんなのでも。

 Dim prefnum As Integer
  prefnum = 13 '東京の場合
  CreateObject("Shell.Application").ShellExecute "http://www.post.japanpost.jp/cgi-zip/zipcode.php?pref=" & prefnum
（カリーニン） 2015/10/15(木) 11:22

コメント返信：

[ 一覧(最新更新順) ]

[[20151015110214]] 『コマンドボタンにURL埋め込み』（wish） ページの最後に飛ぶ

[[20151015110214]]　『コマンドボタンにURL埋め込み』（wish）　ページの最後に飛ぶ