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

Excel-VBA VBA

スポンサーリンク


波乗りアヒル
波乗りアヒル

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

人に頼まれてエクセルVBAのユーザーフォームを使って、オリジナル入力フォームを作ってあげると、使い方についての説明を用意しなくてはいけません。

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

波乗りアヒル
波乗りアヒル

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

スポンサーリンク


スポンサーリンク

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

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

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

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

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

FollowHyperlinkを使う

ユーザーフォームに配置されたコマンドボタンを押したらリンク先を開くにはFollowHyperlinkを使います。

では、実際に使っているコードを書いてみます。

【説明書】ボタンは、CommandButton1。

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

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:=”https://tripbowl.com/excel-vba/”
End Sub
  1. コマンドボタン1をおしたら
  2. ハイパーリンク先のURLはhttps://tripbowl.com/excel-vba/にする
  3. マクロ終了

これで、ユーザーフォームに配置したコマンドボタン1を押すと、リンク先に登録したhttps://tripbowl.com/excel-vba/を開くことができます。

波乗りアヒル
波乗りアヒル

では次にメールが開くようにするコードを書いてみます。

転記実行ボタンは、CommandButton2。

リンク先ホームページはこのサイトのメールアドレス(info@tripbowl.com)とします。

Private Sub CommandButton2_Click()
ActiveWorkbook.FollowHyperlink Address:=”mailto:info@tripbowl.com”
End Sub
  1. コマンドボタン2を押したら
  2. ハイパーリンク先のURLはメールの宛先info@tripbowl.comでメールソフトを開く
  3. マクロ終了

これで、ユーザーフォームに配置したコマンドボタン2を押すとリンク先に登録したinfo@tripbowl.comにメールが送れるようにメールソフトが立ち上がります。

波乗りアヒル
波乗りアヒル

ポイントは、メールアドレスの前に【mailto:】をつけるだけです。

とっても簡単なので使ってみてはいかがですか?

各コントロールまとめて転記シリーズ

ユーザーフォームを使うと配置したコントロール(テキストボックスやラベルなど)とセルとの間で値のやり取りが多くなります。

よく使うのでまとめてみました。

値の場所転記したい場所説明ページ
セルの値ラベル名VBAコード
セルの値テキストボックスの値VBAコード
セルの値コマンドボタンの表示名VBAコード
セルの値セルの値VBAコード
テキストボックス入力値セルの値VBAコード
波乗りアヒル
波乗りアヒル

成績表作成には知っておきたいExcel-VBAもくじ

ボウリングハンデキャップのつけ方
HDCPの種類はリーグのルールにより複雑に ボウリングの成績表(リーグ戦)で必ず必要になるのが、ハンデキャップ(HDCP)です。 ボウリングご予約の時に一番多く使われているのが、女性にだけハンデキャップをつけてあげることが多いですね。 だいだい何点ぐらいのハンデキャップが多いの?
ボウリングリーグ対戦表の数字を名前に自動変換する方法
リーグ戦の対戦表をエクセルで作る時、数字で表されている番号を名前に自動的に変換できると作業時間が短くなり効率的ですね。たった2つのエクセル関数を使うだけで、簡単にできるんです。今回の回戦数を入力するだけで一発変換完了。もちろんお客様にスケジュール対戦表として渡すことも簡単ですよ。
人数に応じてリーグ対戦表を自動選択する方法
複数の表があり、条件に合った表を選んで、さらにセルの値を選んで数字を名前に自動変換できると、とても便利なエクセルができますよね。ボウリングのリーグ対戦表も人数により表が異なるので、参加人数が決まったら、自動的に表を選んで対戦番号がこれも自動的に参加者名に変換されると便利で作業効率がアップして時間短縮になりますよ。
波乗りアヒル
波乗りアヒル

エクセルの勉強お疲れ様です。ちょっとひと休みしませんか?