空格提示

ddz79101

老师！我希望对左侧有数据，而右侧无数据的空单元格，提示。写有代码，但代码却全运行了一遍，且未发现提示。请老师看看。谢谢！

test_test_test

需求不明，爱莫能助

Peny2020

Cells(i, 6) Like " " 改成 IsEmpty(Cells(i,6))

autohotey

这样？

1. 
   
2. Sub cs()
   
3.     Dim ws As Worksheet
   
4.     Set ws = ThisWorkbook.Sheets("Sheet3")
   
5.     Dim lastRow As Long
   
6.     lastRow = ws.Cells(ws.Rows.count, "E").End(xlUp).Row
   
7.     For i = 5 To lastRow
   
8.         If ws.Cells(i, 5).Value = "C" And ws.Cells(i, 6).Value = "" Then
   
9.             MsgBox "第 " & i & " 行，E 列值为'C'时，F 列是空值。"
   
10.             ws.Cells(i, 6).Interior.Color = vbRed
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码

ddz79101

Peny2020 发表于 2024-10-22 16:29
Cells(i, 6) Like " " 改成 IsEmpty(Cells(i,6))

老师！修改了，结果仍和未改前一样。

ddz79101

test_test_test 发表于 2024-10-22 14:02
需求不明，爱莫能助

老师！5列和6列的非空单元格须一致，不一致（即都要有信息，5列为“c"，6列为数字）则提醒

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, j&, r&
   
    With [A4].CurrentRegion
        .Interior.Color = xlNone
        ar = .Value
        For i = 2 To UBound(ar)
            If CBool(Len(ar(i, 5))) And CBool(Len(ar(i, 6))) Then
                If IsNumeric(ar(i, 5)) Then
                    If Not IsNumeric(ar(i, 6)) Then MsgBox "第" & .Rows(i).Row & " 行不一致": .Rows(i).Interior.Color = vbRed
                Else
                    If IsNumeric(ar(i, 6)) Then MsgBox "第" & .Rows(i).Row & " 行不一致": .Rows(i).Interior.Color = vbRed
                End If
            Else
                If CBool(Len(ar(i, 5))) Xor CBool(Len(ar(i, 6))) Then
                    MsgBox "第" & .Rows(i).Row & " 行不一致": .Rows(i).Interior.Color = vbRed
                End If
             End If
        Next i
    End With
        
    Beep
End Sub

gwjkkkkk

不知道理解 对不对？

ddz79101

autohotey 发表于 2024-10-22 17:11
这样？

谢谢老师！运行成功！符合我原意

ddz79101

gwjkkkkk 发表于 2024-10-22 19:50
不知道理解 对不对？

谢谢老师！运行成功！我也许没有表述清楚，我的意思是2列单元格以第5列为准，要求第5列填内容了，第6列也要有内容，第6列无内容，则提示，至于内容是否一致，则不考虑。