ElseIf numCol1 = numCol2 Then
Dim i As Integer
For i = 14 To 33
If Cells(i, 6) <> "" And Cells(i, 7) = "" Then
MsgBox "Please indicate if subs are allowed.", vbCritical
Cancel = True
Exit Sub
End If
Next i
Else
'do something
numCol1 = numCol2 の場合は有効です (これは各列の値の数をカウントするだけです)、Else ビットに移動する必要がありますが、各セルの隣のセルが入力されているかどうかを確認したい
例えば
2 2
Col1 Col2
Value1 Value1
Value2 Value2
これは有効です。各列の上の 2 は、各列に含まれる値の数です。
2 2
Col1 Col2
Value1 Value1
Value2 (blank)
(blank) Value2
カウントがまだ 2 であっても、これは有効ではありません。最後の値 2 は上の行にある必要があります。
少し混乱しますが、どんな助けでも大歓迎です!ありがとう!