セル値を行番号と列番号として使用

Question

次のコードを使用して、MyRowとMyColの交点にあるセルを選択しています。現在の値はMyRow：6とMyCol：4です。これはD6を選択する必要があります。私はそれが失敗したところで、最後の行の正しい構文を取得することはできません

：

Sub SelectCS() 
    Dim MyRow As Integer 
    Dim MyCol As Integer 
    MyRow = Sheet1.Range("a4").Value 
    MyCol = Sheet1.Range("a5").Value 
    Range((MyRow), (MyCol)).Select 
End Sub 

Answer 1

Range(Integer, Integer)は有効なコールではありません。あなたは代わりにCellsを使用する必要があります：あなたは、行と列を表現するためにそれらを使用している場合、あなたはおそらくLongとしてMyRowとMyColを宣言する必要があり

Cells(MyRow, MyCol).Select

注意を。あなたはalso avoid using the globalRangeオブジェクトでなければなりません（これはSheet1のため、Sheet1.CellsまたはSheet1.Rangeでなければなりません）。これがUI用でない限り、おそらくSelectを使用しないでください。

Answer 2

Public Sub SelectCS() 
    Dim MyRow As Integer 
    Dim MyCol As Integer 
    MyRow = Range("A1").Value 
    MyCol = Range("B1").Value 
    Cells(MyRow, MyCol).Select 
End Sub