最近の個人的流行：シートのことは、シートオブジェクトに書くことにする

例えば、Sheet1のテーブルについて、データ範囲を選択したいとき。
昔は、こんな風に書いていた。

標準モジュール

Sub test_old()
    Dim Tb As ListObject
    Set Tb = Sheet1.ListObjects(1)
        Tb.DataBodyRange.Select
End Sub

シート１にある一つ目のテーブル（ListObject）を、変数Tbにセットする。

しかし最近、シートのことは、シートオブジェクトに書けばいいじゃないかと思うようになった。こんな感じだ。

シートモジュール

Public Property Get Tb()
    Set Tb = Me.ListObjects(1)
End Property

標準モジュール

Sub test_now()
    Sheet1.Tb.DataBodyRange.Select
End Sub

結果として行数が多くなってしまっているが、「何かしっくりくる」という極めて定性的な理由から、最近の個人的流行となっている。

という訳で明日にはもう、気が変わって別のこと喋ってるかも。

参考まで。