|
あー・・確かにそのコードではそうなりますね・・。すいません、ループの部分を
> For Each C In Range("F4:AP4")
> If C.Text = Stm Then Sc = C.Column
> If Sc > 0 Then
> If Not IsEmpty(Cells(Rc, Sc).Value) Then
> MsgBox "その時間帯は入力済みです", 48: Exit Sub
> End If
> End If
> If C.Text = Etm Then Ec = C.Column: Exit For
> Next
> If Sc = 0 Or Ec = 0 Then
> Flg = True: GoTo ELine
> End If
↓
For Each C In Range("F4:AP4")
If C.Text = Stm Then
Sc = C.Column
ElseIf C.Text = Etm Then
Ec = C.Column: Exit For
End If
Next
If Sc = 0 Or Ec = 0 Then
Flg = True: GoTo ELine
End If
If WorksheetFuction _
.CountA(Range(Cells(Rc, Sc), Cells(Rc, Ec))) > 0 Then
MsgBox "その時間帯は入力済みです", 48: Exit Sub
End If
と、変更してみて下さい。
|
|