Private Sub CommandButton1_Click() Dim i As Long Dim strResult As String Dim wb As Workbook Set wb = ThisWorkbook '-------------------------------------------------------- 'オプションボタンの状態を確認する For i = 1 To 3 If Controls("Optio…