セル番地関係マクロ
エクセルは表なので座標番地が大事になって来ます。
セルひとつひとつに住所があるようなものですね。
・セルの位置をセル番地で表示
Sub sell_iti()
Dim s As String ’文字変数設定
gyou = ActiveCell.Row
retu = ActiveCell.Column
s = Cells(gyou, retu).Address ' "$A$1"
Cells(gyou, retu) = s
Cells(1, 1) = s ’A1セルにも表示
Cells(2, 1) = gyou ’A2に行数表示
Cells(3, 1) = retu ’A3に列数表示
End Sub
行や列を数字で取得するさい下の2種類を結構使っています。
gyou = ActiveCell.Row ’行数を 整数変数
retu = ActiveCell.Column ’列数を 整数変数
行数や列数でなく座標を表示させるには
s = Cells(gyou, retu).Address ' "$A$1"
のように
.Addressを使うようです。
ここで、A1セルの時に"$A$1"のように絶対座標で表示されるようです。
マクロでさらに上手く使うにはどうしたら良いか研究したいと思います。