| 
    
     |  | >If Me.Controls("combobox2").Value = "4月" Then >  Cells(co, i + cou) = Me.Controls("CheckBox" & i).Value
 >  If Me.Controls("CheckBox" & i).Value Then
 >     Cells(co, i + cou).Value = "○"
 >  Else
 >     Cells(co, i + cou).Value = "×"
 >  End If
 ElseIf Me.Controls("combobox2").Value = "5月" Then
 >  Cells(co, i + cou + 12) = Me.Controls("CheckBox" & i).Value
 >  If Me.Controls("CheckBox" & i).Value Then
 >     Cells(co, i + cou + 12).Value = "○"
 >  Else
 >     Cells(co, i + cou + 12).Value = "×"
 >  End If
 ElseIf Me.Controls("combobox2").Value = "6月" Then
 >  Cells(co, i + cou + 24) = Me.Controls("CheckBox" & i).Value
 >  If Me.Controls("CheckBox" & i).Value Then
 >     Cells(co, i + cou + 24).Value = "○"
 >  Else
 >     Cells(co, i + cou + 24).Value = "×"
 >  End If
 >          ・
 >          ・
 >          ・
 >
 End If
 >
 >Next i
 
 
 |  |