OptionButton1.2.3がうまく動かない

質問

セルA1,B1,C1に1、2、3のいずれかを選択して記入させられるマクロを作成したく、以下のようなマクロを試作しましたが期待どうりに行きません。添削いただけると幸甚です。UserForm1(UF1)に３つのComandButton(CB)を設置し、CB1にUF2が、CB2にUF3が、CB3にUF4がそれぞれ表示(.Show)され、UF2,3,4には其々３つのOptionButton(OB)と１つのCBを設け、UF2に次のコードを記載:
OB1.Value=True Then→Range(“A1”)=1
OB2.Value=True Then→Range(“A1”)=2
OB3.Value=True Then→Range(“A1”)=3
UF3、UF4ではA1替えてB1、C1にします。
するとUF2/CB1(A1)はコマンド実行でOB1.2.3の選択ができA1に1、2、3を取得させられるのですが、UF3/CB2(B1)とUF4/CB3(C1)は動作してくれないんです。
UF2,3,4コード同等なのに、何故？？？
添削または貴方なりのマクロ記載頂ければ有り難く宜しくお願い致します。

回答No.1

kkkkkm · ベストアンサー

正しく作成されていれば、希望通りの動作をします。
記載している正確なコードや実態が見れないので予想です。
コードをコピペしていると思いますが、コマンドボタンをダブルクリックしてそこにコードをコピペするのではなく、CommandButton1_Click()の部分までコピペしたとしたら、フォームのコマンドボタンのオブジェクト名が違うのではありませんか。