オプションボタンで選択したセルにキー入力出来ない他

質問

UserForm1を配置しその中にOptionButtonを２つ配置しまして、
OptionButton1をクリックした時は、a1セルに東京と表示した後カーソルをb1セルに移動させて、
そのB1セルに数字をキー入力する。
OptionButton2をクリックした時は、a1セルに大阪と表示した後カーソルをb1セルに移動させて、
そのB1セルに数字をキー入力するマクロをつくりました。
'----------------------------
Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub OptionButton1_Click()
Range("a1").Value = "東京"
Range("b1").Activate
End Sub

Private Sub OptionButton2_Click()
Range("a1").Value = "大阪"
Range("b1").Activate
End Sub
'----------------------------
動かしてみて、下記２点を改良したいのですが
１、OptionButtonをクリック後、数字キーを押してもb1セルに表示されません、b1セルをマウスでクリック後キー入力すると入力した数字が表示されます。マウスでクリックしなくてもキー入力出来る　　　ようにしたい
２．ファイルを保存終了後、再度開いたときオプションボタンの丸印が２つ共○になっているが、前回終了時に選んだオプションボタンに●がついた状態で表示させたい

以上　よろしくお願いします

回答No.2

uruz · ベストアンサー

１）既に回答が付いてますが.....
AppActivate Application.Caption
の替わりに
Application.Visible = True
でも可能です。

２）こちらはNo.1さんと考え方が違っていて、シートの"a1"セルの状態でセットしています。
"東京"でも"大阪"でもない時は○の状態で起動します。
Private Sub UserForm_Initialize()
Debug.Print Range("a1").Value
If Range("a1").Value = "東京" Then
OptionButton1.Value = True
End If
If Range("a1").Value = "大阪" Then
OptionButton2.Value = True
End If
End Sub

お礼

uruz様
回答有難うございました
順調にうごいています
感謝です

回答No.1

watabe007

>１、OptionButtonをクリック後、数字キーを押してもb1セルに表示されません、
UserFormがアクティブになっているのでExcelをアクティブにしてやる必要があります。
Private Sub OptionButton1_Click()
　　Range("a1").Value = "東京"
　　Range("b1").Activate
　　AppActivate Application.Caption
End Sub
Private Sub OptionButton2_Click()
　　Range("a1").Value = "大阪"
　　Range("b1").Activate
　　AppActivate Application.Caption
End Sub
>前回終了時に選んだオプションボタンに●がついた状態で表示させたい
オプションボタンの状態を、どこかに記録保存してやる必要があります
とりあえずTerminateイベントを使ってセルH1に記録してみました。
Private Sub UserForm_Terminate()
　　If Me.OptionButton1 = True Then
　　　　Range("H1").Value = True
　　Else
　　　　Range("H1").Value = False
　　End If
End Sub
>●がついた状態で表示させたい
UserForm起動にInitializeイベントでセルH1の状態を読み
オブションボタンに>●を付けます
Private Sub UserForm_Initialize()
　　If Range("H1").Value = True Then
　　　　Me.OptionButton1 = True
　　Else
　　　　Me.OptionButton2 = True
　　End If
End Sub

お礼

watabe007様
お教えのコードで実行しまして問題が解決しました
説明も解りやすかったです
有難うございました