Excel 搜索范围如果为空，则提示用户按单元格进行Intup

我有一系列的信息，想在保存前检查一下。我在公式中遇到问题，无法提示用户哪个单元格是空的，然后提示他们输入正确的信息。我认为这是因为我将单元格定义为一个范围，或者我遗漏了其他内容。一旦输入框弹出，我试图通过将单元格偏移到左侧来通知用户他们丢失了哪些数据。左边的单元格是他们需要输入的数据类型（如日期或名称）。该偏移单元也不会显示在输入框的消息中

For Each CheckCell In Sheets("Sheet1").Range("J5:J17").Cells
        If Len(Trim(CheckCell.Value)) = 0 Then
           Cellcheck.Value = Application.InputBox("Please Enter Data for" & CheckCell.Offset(Rowoffset:=0, Columnoffset:=-1).Value, "Mission Info")
        End If
    Next CheckCell

---

第三行应该是

CheckCell.Value…

，而不是

Cellcheck.Value…

：

For Each CheckCell In Sheets("Sheet1").Range("J5:J17").Cells
    If Len(Trim(CheckCell.Value)) = 0 Then
       CheckCell.Value = Application.InputBox("Please Enter Data for " & CheckCell.Offset(Rowoffset:=0, Columnoffset:=-1).Value, "Mission Info")
    End If
Next CheckCell

---

更正拼写错误

Sub dural()
    For Each checkCell In Sheets("Sheet1").Range("J5:J17").Cells
        If Len(Trim(checkCell.Value)) = 0 Then
           mesage = "Please Enter Data for " & checkCell.Address(0, 0)
           checkCell.Value = Application.InputBox(Prompt:=mesage, Type:=1)
        End If
    Next checkCell
End Sub

---

更改类型以符合您的要求。

第三行是CheckCell而不是Cellcheck…谢谢！我想我盯着它看了很久。运行该程序时，输入框不会显示代码的Checkcell.offset部分的任何文本。该单元格在中确实有一个值。我关闭了文件并重新打开了它，现在它工作得很好！谢谢我想返回该单元格的值，而不是Checkcell.address（0,0）。但当我将其更改为checkcell.value时，消息框中的内容将变为空白。你完全正确！！InputBox表示哪个单元格需要值（显示地址），用户在该InputBox中键入的内容将进入该单元格@Gary的学生根据Mark在问题中所说的，他试图将

CheckCell

左侧单元格的内容放入InputBox提示符。要使此答案符合该要求，您需要将第4行更改为：

mesage=“请为”&checkCell.Offset（0，-1）。Value&“单元格中”&checkCell.Address（0，0）

。