主题：[求助]检查所有表中单元格值不得为空如何写代码

Dim flag As Boolean = False
For Each r As Row In Tables("原料采购入库通知明细").Rows
    For Each c As Col In Tables("原料采购入库通知明细").Cols
        If c.Name <> "备注" AndAlso r.IsNull(c.Name) Then
            msgbox(c.Name & " 列 第" & r.index + 1 & "行"   & " 未输入")
            flag = True
            Exit For
        End If
    Next
    If flag Then
        Exit For
    End If
   
Next

If flag = False Then
    msgbox("执行保存操作")
End If