回答編集履歴
1
誤字修正
answer
CHANGED
|
@@ -21,19 +21,19 @@
|
|
|
21
21
|
ActiveSheet.ListObjects(1).ListRows(1).Range(3).Address
|
|
22
22
|
```
|
|
23
23
|
|
|
24
|
-
実は下記のように列見出しで参照することも可能です。
|
|
24
|
+
実は下記のようにテーブル名と列見出しで参照することも可能です。
|
|
25
25
|
|
|
26
|
-
```
|
|
26
|
+
```vba
|
|
27
27
|
'「氏名」列の1行目のデータ
|
|
28
28
|
ActiveSheet.ListObjects("テーブル名").ListColumns("氏名").Range(2).Address
|
|
29
29
|
```
|
|
30
30
|
|
|
31
31
|
ちょっと記述が長いという場合は、下記のような書き方もできます。
|
|
32
32
|
|
|
33
|
-
```
|
|
33
|
+
```vba
|
|
34
34
|
Range("テーブル1[名前]")(1).Address
|
|
35
35
|
```
|
|
36
36
|
|
|
37
|
-
注：ListColumnsの場合は見出し行も含むが、Range("テーブル1[名前]")の場合はデータ
|
|
37
|
+
注：ListColumnsの場合は見出し行も含むが、Range("テーブル1[名前]")の場合はデータ範囲のみのようです。
|
|
38
38
|
|
|
39
39
|
これらの参照法は、見出し行の列名で参照するので、列を追加したり削除して列位置が変更されてもコードを変更する必要はありません。
|