スポンサーリンク

Excel-VBAコマンドボタンにホームページを開く設定をする方法

エクセルファイルの操作Excel-VBA

こんにちは、とりっぷぼうるです。

元々エクセルとは全く縁のない生活をしていましたが、人員不足などで少しでもデータ入力作業や集計作業を効率化するしか方法が無く、仕方がなくエクセルに取り組み始まました。

なぜならば、大きな会社ならば専用ソフトやクラウド上でデータ集計や管理を行うのでしょうけど、小さなところではそのようなお金もないのでエクセルで解決するしか方法が無いのですよね。

このような理由からエクセルに取り組み始めましたので、当然ながらエクセルの専門知識もなく、学校に通うこともできずにただ単にエクセルの書籍とにらめっこしながら取り組んでいます。

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

でも書籍のままだと実用的でないことが多く、VBAコードを組み合わせてみたら動いた!という実用例・体験談を書いています。

Excel-VBAの専門学校通学や・資格があるわけではありませんので、あくまでエラーにならずに動いてくれているVBAコードになりますので、掲載のVBAコードが同じように動く保証はできません。
実際に動いているエクセルは2009と2016です。
スポンサーリンク

ハイパーリンクでホームページを開く

「ボウリング成績表メインメニュー画面~LTBリーグ編」でも使用しているユーザーフォームに、配置しているコマンドボタンにホームページが開くように設定します。

このMENU画面の使い方などは、別のページで説明しているのでここでは省略します。

ボウリング成績表メインメニュー画面~LTBリーグ編
「ボウリング成績表~LTBリーグ編」の操作マニュアルです。作成しているエクセルファイルは公開しておりませんが、作成方法は掲載しております。エクセル関数とエクセルVBAの組み合わせなので、特別なソフトを使っているわけではありません。エクセル2007と2016では動作確認済みです。

ボウリングリーグ戦MENU~LTB編

この画面の【マニュアル】ボタンを押すと、ここにリンクするように設定されています。

エクセルの別シートに延々と説明書きをするよりも、ウェブサイトの方が項目別にリンクをつけておけばジャンプするので、探しやすいという利点がありますからね。

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

設定するためのExcel-VBAコードは難しいの?

たった1行よ

Followメソッドを使う

Followメソッドは、指定したハイパーリンクを実行させるためのものです。

では、MENU画面の【マニュアル】ボタンに書いてあるExcel-VBAコードをここに書き写します。

Private Sub CommandButton5_Click()
ActiveWorkbook.FollowHyperlink Address:=”https://tripbowl.net/category/manual/”
End Sub
  1. コマンドボタン5をクリックすると実行するマクロを記述
  2. ホームページを開くリンク先アドレスはhttps://tripbowl.net/category/manual/
  3. マクロ記述終了

これで、「ボウリング成績表メインメニュー画面~LTBリーグ編」のマニュアルが開くようになっています。

【注意】ただし、ネット接続環境が整っている場合です。

Excel-VBAもくじへ

コメント