Excel VBA宏來搜索一列，並在列值彈出消息顯示行

Question

我正在尋找一些幫助創建一個Excel宏，將在同一行的空白和列B爲空白的單元格A列然後在打開工作簿時顯示一個彈出消息框，顯示列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