excel - 确保表格行中的所有单元格都被填充的宏

Question

我在 Excel 中有一个表格，我想确保如果用户在一行中至少填写一个单元格，他们也必须填写该行中的所有其他单元格。

我试图在下面为它创建 VBA 代码。基本上，它是说，如果我的表格第 7 行中的任何字段填写了某些内容，则检查表格中的第一个单元格是否有空白。我将复制/粘贴代码，以便检查该行中的其他单元格是否也已填写。

当我尝试运行它时，它显示“对象不支持此属性或方法”。有人能帮助我吗？

Sub blank()
If Range("H7:Q7").CountA >= 1 Then
    If Cells(7, 8).Value = "" Then
MsgBox "Condition Type cannot be blank"
'I will repeat for the other columns in the row as well. 
    End If
End If
End Sub

Table

Answer 1

你有正确的想法；这是正确的语法:

If Application.WorksheetFunction.CountA(Range("H7:Q7")) > 0 Then
    MsgBox "something is there"
End If