将来の参照（VBA）のためにActiveCellから範囲を割り当てる方法

Question

後で使用するために、変数にActiveCellを割り当てようとしています。それは私にタイムアウトエラーを与える。

コードは以下のとおりですが、一般的に変数に変数を動的に割り当てる方法はわかりません。

Sub findCells() 
Dim topCell As Integer 
Dim left_Cell As Integer 

Set refCell = Range(ActiveCell) 

refCell.End(xlUp).Select 
topCell = ActiveCell.Value 
MsgBox topCell 
refCell.End(xlToLeft).Select 
leftCell = ActiveCell.Value 
MsgBox leftCell 

End Sub 

Answer 1

多分次のコードのようなものを使用できます。 Select、ActiveCellから離れて、可能な限り修飾されたRangeを使用しようとするとよいでしょう。

Option Explicit 

Sub findCells() 

Dim topCell As Long 
Dim leftCell As Long 
Dim refCell As Range 

Set refCell = ActiveCell 

topCell = refCell.End(xlUp).Value ' <-- gets the value of the top cell 
topCell = refCell.End(xlUp).Row ' <-- gets the row number of the top cell 
MsgBox topCell 

leftCell = refCell.End(xlToLeft).Value ' <-- gets the value of the column to the left 
leftCell = refCell.End(xlToLeft).Column ' <-- gets the column number of the column to the left  
MsgBox leftCell 

End Sub