|
▼Jaka さん:
>>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
ありがとうございました。
ElseIfと、Else・・・EndIfの使い分けが今ひとつ理解できてませんでした。
|
|