趣味のエクセルで当てよう!ロト・ナンバーズ

当選狙いで、ナンバーズ4をメインにロト、ビンゴ5などの各種データリストや、それらの分析用エクセルVBAなどについて書いてます。

セル番地関係マクロ

エクセルは表なので座標番地が大事になって来ます。
セルひとつひとつに住所があるようなものですね。




・セルの位置をセル番地で表示
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"のように絶対座標で表示されるようです。


マクロでさらに上手く使うにはどうしたら良いか研究したいと思います。


変数 知らなかった本当の使い方