ULALA'Sブログ

< 新しい記事

新着記事一覧(全353件)

過去の記事 >

2020年08月31日

VBAスタンダード学習12[Offset]

テーマ：プログラミングあれこれ(231)

カテゴリ： VBA

今回は、対象のセルの操作ではなく、
対象のセルを基点として、 相対的に
セルの移動を行う関数 を見てみる。

①Offset

下記画像の通り、C32セルを起点として、
Offset関数がどのように働くかを見てみる。

ソース

Sub getOffset ()
Range ("C32"). Offset ( -1, -1 ). Value = "(-1, -1)" ' 左上
Range Offset ( -1, 0 ). Value = "(-1, 0)" ' 上
Range ("C32"). Offset ( -1, 1 ). Value = "(-1, 1)" ' 右上

Range ("C32"). Offset ( 0, -1 Value = "(0, -1)" ' 左
Range ("C32"). Offset ( 0, 0 ). Value
Range ("C32"). Offset ( 0, 1 ). Value = "(0, 1)" ' 右

Range ("C32"). Offset ( 1, -1 ). Value = "(1, -1)" ' 左下
Range ("C32"). Offset ( 1, 0 ). Value = "(1, 0)" ' 下
Range ("C32"). Offset ( 1, 1 ). Value = "(1, 1)" ' 右下

End Sub

結果

Offsetの引数は、、、

第1引数：行数
第2引数：列数

基点からそれぞれどの程度移動するかを
行、列で指定することで指定範囲のRange
オブジェクトが返却される。

尚、以下のように
エクセルの位置を超えた指定を行うとエラーになる。
javaのようにIndexOutOfBounds的なエラーではないので、
ソースの複雑さによってはエラー特定が難しくなる、、

Range("C32"). Offset (1, -99999 ).Value = "(1, -99999)" ' 左下

また、ソース例だと
RangeしかOffset指定していないが

 Cells (32, 3). Offset ( 1, 1 ). Value = "(1, 1)" ' 右下

のように、Cells指定も可能。

Offsetは実務でも使うシーンが多いので
試験対策の為だけでなく、理解しておくと良いかと思う。

お気に入りの記事を「いいね！」で応援しよう