シートのハイパーリンクを数えるマクロ~3行マクロ 51回

ハイパーリンクの数をかぞえたい

ワークシート上のセルにハイパーリンクが設定されている場合、データが多いと、数えるのがたいへんです。
ハイパーリンクが設定されているかどうかは、一見わからないこともあります。
マクロを使うと、ハイパーリンクの数をかんたんに数えることができます。

(サンプルファイルは、こちらから 3行マクロ51回サンプルデータ

Debug.Printメソッドで情報を得る

今回は、Debug.Printという命令を使います。
これは、VBAのプログラムでさまざまな情報をイミディエイトウィンドウに出力する命令です。
サンプルのシートのハイパーリンクの数を数えます。
アクティブシートハイパーリンクは、ActiveSheet.Hyperlinksで、
Countプロパティを使い、対象となるコレクションに含まれるオブジェクトの数を返します。

イミディエイトウィンドウの表示方法

イミディエイトウィンドウを表示するには、メニューの表示ボタンからイミディエイトウィンドウ を選択します。
あるいは、Ctrl + G キー 。
For Each~Nextステートメント
ハイパーリンクを数えるコードは、
Sub ハイパーリンクを数える()
    Debug.Print ActiveSheet.Hyperlinks.Count
End Sub
    
コードを実行すると、
シートのハイパーリンクを数えるマクロマクロ2
結果がイミディエイトウィンドウに表示されます。
シートのハイパーリンクを数えるマクロマクロ3
わざわざマクロのコードを作成しなくてみ、直接イミディエイトウィンドウに記述することができます。
その際は、
?activesheet.hyperlinks.count    
    
のように、省略して書くこともできます。
シートのハイパーリンクを数えるマクロマクロ4
スポンサーリンク
スポンサーリンク