VBAマクロで特定の文字を相対座標で複数セルへ記入

質問

ＶＢＡ初心者です。
google検索してみても、イマイチ解らなかったので教えてください。

例として、マクロを実行させると、現在選択中のセル（ここではA1）に
１を入力し、隣のセル（B1）に0を入力できるようなマクロをつくり
ボタン化しようと思っているのですが
肝心のマクロがまだ理解出来てなくて困ってます。
一応、自分でやってみたりしたくて試してはいるのですが
単純に、カーソル移動で
Range("A1").Offest (+1.0)　　　　　　;右隣のセルへ移動
これではダメなんですよね？

回答No.1

hallo-2007 · ベストアンサー

>現在選択中のセル
現在アクティブなセルという事で
Activecell.Value=1
Activecell.Offset(0,1).Value=0
と云った感じで使います。

お礼

すみません、自己解決しました。
ActiveCell.Offset(0, 2).Select
こうすればいいんですね。
解りやすい解説ありがとうございます。

補足

ありがとうございます。表題の件はこれでokなのですが、
最後に0の右隣へカーソルをもって行きたい場合、どうなりますか？