Question

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

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

Answer 1

您的第三行应该是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

Answer 2

更正拼写错误

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

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

搜索范围如果每个单元格为空白提示用户Intup

2 个答案: