[409.xls]



' [mjSumple] のコード
'■■ オプションボタンの選択結果を所定の文字列に変換する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
   'デフォルトの値を設定
    frmSumple.optBtn1.Value = True
    
   'フォームの表示
    frmSumple.Show
End Sub



' [frmSumple] のコード

Private Sub cmdInput_Click()
    
    Select Case optBtn1.Value
    
    Case True
        Sheets("Title").Range("G10").Value = "既婚"
    Case False
        Sheets("Title").Range("G10").Value = "未婚"
    End Select
    
    Unload frmSumple
End Sub