[410.xls]



' [mjSumple] のコード
'■■ オプションボタンの選択結果をラベルの文字列を取得し変換する ■■
'
'

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



' [frmSumple] のコード

Private Sub cmdInput_Click()

    If optBtn1.Value = True Then
        Sheets("Title").Range("G10").Value = optBtn1.Caption
    End If
    
    If optBtn2.Value = True Then
        Sheets("Title").Range("G10").Value = optBtn2.Caption
    End If
    
    Unload frmSumple
End Sub