指定セルから指定行列分先のセルを取得 

指定行列分ずらしたセルを返す

指定セルから指定された行数、列数移動した先にあるセルを返す。
シート情報が必要ならそれも引数に加えるといい。下記のソースは外部で定義されたシートを使用している。
オブジェクトだから戻り値設定のところにも「Set」がいるんだよね。よく忘れる。

'引数分ずらしたセルを返す
Function getShiftRange(argRange As Range, argRow As Integer, argCol As Integer) As Range
    Set getShiftRange = topSheet.Cells(argRange.Row + argRow, argRange.Column + argCol)
End Function

後で知ったけど、Range.Offset(行,列)を使えば同じことができる。
この関数は付加価値持たせないと不要になるな。



コメント