| 名前付き範囲(名前定義)を付け加えたり、削除したり、変更できる。 @定義 Dim myname1 As String, myRng As Range myname1 = "修理テーブル" Set myRng = Worksheets("修理データ").Range("A1:F9") ThisWorkbook.Names.Add myname1, myRng A1:F9に修理テーブルの名前を定義している。 A参照範囲変更 ThisWorkbook.Names.ReferTo("修理テーブル") , Range("A2:F10") 参照範囲をA2:F10へ変更。 B名前定義の削除 ThisWorkbook.Names.ReferTo("修理テーブル").Delete |