Excel VBA スタンダード模擬問題　①　第19問　6章-5

次のコードは、セルを検索し見つかったセルを起点に1列右に”関東”を代入するマクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()
　Dim A As Range
　Set A = Range("A:A"). Find (What:="東京")
　If A Is Nothing Then
　　MsgBox "見つかりません"
　Else
　　A.【　①　】(0, 1) = "関東"
　End If
End Sub

正解

【　①　】offset

解説

見つかったセルを起点にし、周囲にある別のセルを操作する時はOffsetを使用します。
構文　基点セル.Offstt(行,列)
1列下へ、または１行右へは　１　を指定する
1列上へ、または１行左へは　－１(マイナス)を指定する
０は現在のセルの位置となります。

セル範囲を変更するResizeと似ているので違いを整理しますと、上下左右の値の増減は上記と同じですが、
・Offset　基点セルから、セルを指定する。基点セルの位置は(0、0)

・Resize　基点セルから、セル範囲を変更する。基点セルの位置は(１、1)　です。

Excel VBA スタンダード 6章セルの検索とオートフィルターの操作