for文の行の列値を選択する方法は？

Question

過去に私のn00bishの質問をしてくれてありがとう、私は広範な研究をして答えを見つけた別の質問があります。

テーブルの行をループして特定の列の値を選択しようとしていますが、この時点でその値をMsgBoxに入れていますが、繰り返し試行が繰り返し失敗しました。

Dim id As Range 
Dim trtype As Range 

set id = Activesheet.Range("Table1[Column1]") 

For Each r In id 
    r.Select 
    Set trtype = .Range(Cells(.ActiveRow, "Column5")) 
    MsgBox trtype.Value 
Next r 

これは trtype = .Range(Cells(.ActiveRow, "Column5")が強調表示された行と "型の不一致" を返します。

この作品を作成する方法についてのご意見はありますか？

Answer 1

私はそれは次のようにして動作するようになった：

For Each r In id 
    r.Select 
    trtype = Selection.Text 
    MsgBox trtype 
Next r 

設定を使用するときの議論に私を導いたセットについての答えを右のトラックに私を取得するためのおかげで、と発見それはオブジェクトのみであり、文字列は.Textで設定しなければならなかった。.Value

Answer 2

あなたはラインで設定した単語を逃しました：

trtype = .Range(Cells(.ActiveRow, "Column5")) 

trtypeは（Excelの組み込みオブジェクトを指すすなわち1）オブジェクト変数です。 VBAルールは、SETを使用して割り当てる必要があるということです。

長年にわたり、これは私の最も一般的なVBAエラーでした！