excel - 验证内容 - 不允许用户输入 - 给出无效数据报告

Question

我正在尝试编写一个程序来执行以下步骤:

在单元格 M2 时，检查列之前所有单元格的内容
同一行中的 M

如果同一行中 M 列之前的任何单元格为空，请执行
不允许用户在单元格 M2 中输入任何值。而是给了一条消息
向用户提供关于空数据的信息。

在缺失数据的单元格 N2 中创建报告(第一行
excel 的列中包含数据标题)

目前遇到的问题:
无限循环-我认为当再次触发清除内容循环时会导致此问题

我不确定连接代码是否良好。

下面的程序:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$M$2" Then    
MsgBox "1"    
Call MyMacro    
End If    
End Sub


Sub MyMacro()

'If [OR(ISBLANK(A2:L2))] Then
If ISBLANK(A2) Then
MsgBox "2"
Range("N2").Select
ActiveCell.Value = N2.Value + A1.Value
'Range("M2").ClearContents
'MsgBox "3"

'this the message that pops up if any cell in the range is blank
End If

End Sub

感谢您提前回复...

Answer 1

另一个不使用宏的选项是使用自定义公式在 M 列中使用数据验证
=counta(A2:L2)=12
和自定义错误消息“A 到 L 列中的空白单元格”。

这当然不会给您丢失的单元格，但是您可以使用此数组公式获得第一个单元格(使用 ctrl+Shift+enter 输入)
=IFERROR(ADDRESS(ROW(),MATCH(TRUE,A2:L2="",0)),"")