エクセルのオプションボタンについて

質問

エクセルVBAの初心者です。
ブックAのSheet1にコントロールツールボックスよりオプションボタンを使って、OptionButton1にA室、OptionButton2にB室、OptionButton3にC室という名前をつけて作成しました。この３つのオプションボタンの内いずれかを選択した時に、別のブックBのSheet1のセルA1に転記したいのですが、VBAを使って転記をすることはできるでしょうか？
分かりにくい説明で申し訳ありませんが、宜しくお願い致します。

回答No.3

mitarashi

A No.1です。
イベントプロシージャに書かなくても動作します。ただその場合は、OptionButton1.value=TRUEなら、転記するといった処理が必要になりますので、念のためお知らせします。
できるかな？これでもいけるかな？と思ったら、まず手を動かしてみるのが上達の早道だと思います。

お礼

親切に教えていただきありがとうございました。いろいろ試してみようと思います。

回答No.2

mitarashi

A No.1です。
Private Sub OptionButton1_Click()
With Workbooks("BookB.xls").Sheets("Sheet1")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = OptionButton1.Caption
End With
End Sub
でいかがでしょうか。

補足

ご回答ありがとうございます。上記の記述大変参考になりました。ただ、今ひとつ解決できないことがあります。今、ブックAの中に登録ボタンがあり、そのボタンを押すとブックＢに転記するようになっています。上記の記述は、登録ボタンを押した時のマクロ内（Sub 登録()）内に記述してもいいのでしょうか？初歩的な質問ですいません。Private SubとSubの使い方を今いち理解していないのがいけないと思うのですが、まったく別ものと思っていいのでしょうか？

回答No.1

mitarashi

オプションボタン上の右クリックメニューから、「コードの表示」を実行すると、VBEで下記コードが表示されます。これが、オプションボタンをクリックしたときのイベントプロシージャとなりますので、この中に行いたい処理を記述します。
Private Sub OptionButton1_Click()

End Sub
3個程度なら、OptionButton1～3 それぞれについて記述して下さい。
でもって、何を転記したいのでしょうか。
Workbooks("BookB.xls").Sheets("Sheet1").Range("a1").Value = OptionButton1.Value
で良いのですか？

補足

ご回答ありがとうございます。説明不足で申し訳ありません。
やりたいことは、ブックAにデータ入力用のシート（フォームをシートで表現した感じ）を作成し、登録ボタンを押すとブックBの各項目列にブックAで入力されたデータを転記し、転記されたらブックAのデータシートはクリアされ、次のデータ入力を待つような感じにしたいのです。その項目の中に今回質問させていただいた、オプションボタンで選択できるような箇所を作りました。普通のセルに入力したものは転記できたのですが、オプションボタンで選んだものを転記することができませんでした。特に転記するとTRUEとかの表示でCaptionの値ではないものが転記されてしまうので悩んでいます。あとは、データをどんどん入力していくので、その都度オプションボタンで選択したもは、1件目のデータの時はA1、2件目のデータはA2というように、どんどん下に転記していくようにできればと思っています。勝手言って申し訳ありませんが宜しくお願い致します。