|
>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
|
|