1
    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 は上の行にある必要があります。

少し混乱しますが、どんな助けでも大歓迎です!ありがとう!

4

1 に答える 1