コマンドボタンを押すとホームページやメールを開く方法

2018年2月21日2026年8月22日

コマンドボタン押したらホームページが開いたり、メールが送れたら便利だと思いませんか？

オリジナル入力フォームを作ったら、使い方についての説明を用意しなくてはいけません。

取扱説明書ってほどのものを作る程度でもないので、WEB上にアップしておけば書き換えも簡単ですし、いつでも見られますよね。

そう思ったので、コマンドボタンを押したら、指定したWEBが開いたり、メールが送れたら便利じゃないかなって思ったので、実践してみました。

コマンドボタンにハイパーリンクを設定する

ハイパーリンクとは、ホームページなどのリンク先が設定されている文字列や図形の事です。

ホームページなどでよく見かけるハイパーリンク先をクリックすると、設定されているリンク先にジャンプすることができます。（別ページでホームページが開く）

リンク先には、ホームページやメールアドレスやエクセルブック内の別シートなどを設定することができますよね。

ここでは、ユーザーフォームに配置しているコマンドボタンを押すとホームページが開いたり、メール送信ができるようにする設定をします。

ハイパーリンクを実行するにはHyperlink.Followメソッドを使いますが、WorkbookオブジェクトのFollowHyperlinkメソッドを使うと、たった1行書くだけでコマンドボタンに登録できます。

リンク先ホームページはこのサイトのHome（https://tripbowl.com/excel-vba/）とします。

ホームページを開く　VBAコード

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:=”https://tripbowl.com/excel-vba/”
End Sub

解説

ホントにたったこれだけなんでホームページが開きます。

次にメールソフトを立ち上げましょう。

メール宛先をこのサイトのメールアドレス（info@tripbowl.com）を入力してメールソフトを立ち上げます。

メールソフトを立ち上げる VBAコード

Private Sub CommandButton2_Click()
ActiveWorkbook.FollowHyperlink Address:=”mailto:info@tripbowl.com”
End Sub

解説

ボウリングのリーグ戦成績表のメインメニュー画面では、【マニュアル】ボタンにこのFollowHyperlinkメソッドを設定しています。

VBAコード

Private Sub CommandButton5_Click()
ActiveWorkbook.FollowHyperlink Address:=”リンク先URL”
End Sub

エクセルシートに操作説明を延々と書き込むよりも、あらかじめ用意したウェブページにリンクさせておく方が、項目ごとに探しやすく、後からの修正も簡単です。

ただしこの方法はネット接続環境が整っている場合に限られる点は注意してください。

とりっぷぼうる

ポイントは、メールアドレスの前に【mailto:】をつけるだけです。
それでは、住所録入力フォームに戻りましょう