Excel2007です。下記のように、テーブル1があります。

質問

Excel2007です。下記のように、テーブル1があります。

列0　列1　列2　列3　列4
行1　　1　　2　　　3　　　8
行2　　3　　4　　　6　　　4
行3　　2　　2　　　4　　　2

列0～列4は、テーブルの見出しです。（列０と書いてあるところが、A1セルです。）
マクロで、行１・行２・行３のいずれかの行の列１～列３のセルを選択したいのです。
行１・行２・行３のいずれを選択するかは、動的に与えようと思います。

どのようにすれば、それができるかが質問です。
列は、構造化参照します。[列1]とか[列3]というのを使って指定したいと思います。

試しに、行を固定（[行2]）して、以下のコードを実行させようとしたら、エラーが出ます。
Sub Macro1()
Range("A3").Select
Range("テーブル1[[#This Row],[列1]:[列3]]").Select
End Sub

エラーは「実行時エラー'1004'　'Rangeメソッドは失敗しました:'_Global'オブジェクト」

[#This Row]というのはどのような使い方をするものなのでしょうか。

回答No.2

myRange · ベストアンサー

テーブルを使ったことはないの何ですが、
ヘルプなどをチラッと眺めてみると
[#ThisRow]はＶＢＡでいうところのActiveCellとは違うようです。

試しに、セルに[#ThisRow]を使った参照式を入力してみてください。
（例えば、【行２】と【列３】の交点の値（６）を取得する参照式）
当方の言わんとしていることが分かると思います。

------------------------------------------------
【結論】
[#ThisRow]は手動で参照式を入力するセルの行のことなので
それを表す方法のないＶＢＡでは使用できない
------------------------------------------------

それを踏まえて、、、
＞データの行を選択するのは、見出し名を使うやり方はできないんでしょうか

見出し名を使うとしたら部分的使用になるでしょう
例えば、

＞Range("テーブル1[[#This Row],[列1]:[列3]]").Select

Intersect(ActiveCell.EntireRow, Range("テーブル1[[列1]:[列3]]")).Select

●あくまでもこれはヘルプなどからの当方の理解ですので参考程度ということで。。。
以上です。

お礼

ご回答ありがとうございます。

回答No.1

hallo-2007

>[#This Row]というのはどのような使い方をするものなのでしょうか
エクセルのVBAでは使いませんね。
ActiveCell.Row のことでしょうかね。
テーブル１とはシート名でしょうか
であれば
Sheets("テーブル１").Range("B" & ActiveCell.Row & ",D" & ActiveCell.Row).Select
とか
Range("B" & ActiveCell.Row & ",D" & ActiveCell.Row).Select
だけでも？
http://excelvba.pc-users.net/fol2/2_1.html
等が参考になるかと思います。

補足

ご回答ありがとうございます。

>テーブル１とはシート名でしょうか

デザインリボンのプロパティのテーブル名に「テーブル1」と表示されているので、
テーブル１はテーブルのはずですが。

Range("テーブル1[[#Headers],[列1]:[列3]]").Select
このようなコードなら、問題なく、見出し部分（列1・列2・列3）が選択されるんです。
見出し部分ではなくて、データの行を選択するのは、見出し名を使うやり方ではできないんでしょうか。