シート上のハイパーリンクを数える
シートのハイパーリンクを数えるマクロ~3行マクロ 51回
ハイパーリンクの数をかぞえたい
ワークシート上のセルにハイパーリンクが設定されている場合、データが多いと、数えるのがたいへんです。
ハイパーリンクが設定されているかどうかは、一見わからないこともあります。
マクロを使うと、ハイパーリンクの数をかんたんに数えることができます。
(サンプルファイルは、こちらから 3行マクロ51回サンプルデータ)
Excelバージョン:
Debug.Printメソッドで情報を得る
今回は、Debug.Printという命令を使います。
これは、VBAのプログラムでさまざまな情報をイミディエイトウィンドウに出力する命令です。
サンプルのシートのハイパーリンクの数を数えます。
アクティブシートハイパーリンクは、ActiveSheet.Hyperlinksで、
Countプロパティを使い、対象となるコレクションに含まれるオブジェクトの数を返します。
これは、VBAのプログラムでさまざまな情報をイミディエイトウィンドウに出力する命令です。
サンプルのシートのハイパーリンクの数を数えます。
アクティブシートハイパーリンクは、ActiveSheet.Hyperlinksで、
Countプロパティを使い、対象となるコレクションに含まれるオブジェクトの数を返します。
イミディエイトウィンドウの表示方法
イミディエイトウィンドウを表示するには、メニューの表示ボタンからイミディエイトウィンドウ を選択します。
あるいは、Ctrl + G キー 。
あるいは、Ctrl + G キー 。
ハイパーリンクを数えるコードは、
Sub ハイパーリンクを数える() Debug.Print ActiveSheet.Hyperlinks.Count End Subコードを実行すると、
結果がイミディエイトウィンドウに表示されます。
わざわざマクロのコードを作成しなくてみ、直接イミディエイトウィンドウに記述することができます。
その際は、
その際は、
?activesheet.hyperlinks.countのように、省略して書くこともできます。