Excel的Visual Basic - 執行一個命令，如果在同一列中的兩個單元格填充

Question

我的第一篇文章在這裏，所以我會盡量使其儘可能簡潔。

我需要將一些功能添加到無法使用數據驗證的電子表格中。所以我需要它在Visual Basic中。

代碼需要在C4：SH5範圍內的工作表更改上運行（因此只有2行，但有很多列）。如果兩行填充在同一列，那麼我需要執行一個邏輯到msgbox。

例如：

C4 & C5 <> "" then msgbox 

C4 = "" AND C5 <>"" then do nothing 

C4 <> "" AND C5 = "" then do nothing 

Answer 1

這是一種方法來做到這一點：

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim myCol As Range 

For Each myCol In Worksheets("sheet1").Range("C4:SH5").Columns 
    If myCol.Cells(1, 1) <> "" And myCol.Cells(2, 1) <> "" Then 
    MsgBox "Both " & myCol.Cells(1, 1).Address & " and " & myCol.Cells(2, 1).Address & " are not empty" 
    End If 
Next myCol 

End Sub 

基本上遍歷在指定範圍內的列，並應用條件在每列中的單元格。