新しい列が間に追加される可能性がある場合のオフセットの設定方法

Question

私は、ボタンの探索（クリック）に基づいて、特定のセルを検索結果の値で更新する必要があるシナリオを持っています。 検索ボタンTopLeftCellプロパティとオフセット（）メソッドは、値が

With Sheets("Test").Shapes("btnSearch").TopLeftCell 

    .Offset(0, -4).Value = searchResult 

End With 

コピーされたセルに到達するために使用されるが、要件が存在することを、これらの細胞の間に後添加したすべての列がある場合その後、再び

を変更する必要がありますオフセットは、我々は我々が

の間で列を追加/削除してもオフセット法を心配する必要がないように、このケースを処理する方法はありますのでご注意くださいこれらのセルは、動的にインクリメントされるExcelのリスト/グリッドの一部です。

Answer 1

ただ、これをテストし、それが働いた：

With Sheets("Test") 

    Dim resCol As Long 
    'change myHeader to defined header and row number as needed 
    resCol = .Rows(1).Find("myHeader").Column 

    Dim resRow As Long 
    resRow = .Shapes("btnSearch").TopLeftCell.Row 

    .Cells(resRow, resCol).Value = searchResult 

End With