Question

我正在寻找一些帮助，创建一个Excel宏，它将为非空白单元格的A列搜索，同一行的空白列B，然后在打开工作簿时显示弹出消息框，显示行的信息包含A列中的名称但在B列中没有任何信息以提醒人们完成工作表上的项目。

这有可能吗？如果有人请帮助我们使用代码来完成这项工作。

非常感谢

Answer 1

根据你告诉我的内容，这是我能提供的。运行它将找到第一个出现的位置，其中列A不为空，而列B缺少文本。然后，您可以让用户填写，再次运行以检查更多内容。

Sub checkcolumns()
Dim i As Long

'100 is the last row you want to check. Change accordingly

For i = 1 To 100       
    'Change Sheet1 to your worksheet name
    If ActiveWorkbook.Worksheets("Sheet1").Range("A" & i).Value <> "" And ActiveWorkbook.Worksheets("Sheet1").Range("B" & i).Value = "" Then
        MsgBox "Row " & i & " is missing a value in column B!", vbExclamation, "Missing value!"
        Exit Sub
    End If
Next i

MsgBox "Search complete, all values are in place!", vbInformation, "Success!"
End Sub

要在一条消息中显示所有内容：

Sub checkcolumns()
Dim i As Long
Dim message As String

For i = 1 To 100
    If ActiveWorkbook.Worksheets("Sheet1").Range("A" & i).Value <> "" And ActiveWorkbook.Worksheets("Sheet1").Range("B" & i).Value = "" Then
        message = message + "Row " & i & " is missing a value in Column B! "
    End If
Next i

MsgBox message, vbInformation, "Success!"
End Sub

Excel VBA宏用于搜索列并根据列值在弹出消息中显示行

1 个答案: