Question

我正在尝试执行beforesave事件，如果两个给定单元格中的一个为空，则不允许用户保存。到目前为止我设法做的是连接第13列（M）和第A4列。

我想要做的是将事件应用于两个范围和行的组合，A4-A19和M4-M19。这样：如果A4不为空并且M4为空，则会出现一个msgbox并阻止保存等等.A5-M5，A6-M6 ......直到A19-M19。如果两个相应的单元格同时为空，则应该可以保存。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim i As Integer, MyWb As Object
    i = 13
    Set MyWb = ThisWorkbook.Sheets("Planning").Cells
    Do While MyWb(4, i).Value <> ""
    i = i + 1
    Loop
    If i = 13 Then
        If ThisWorkbook.Sheets("Planning").Range("A4") <> "" Then
            MsgBox ("You will need to enter topics before saving"), vbCritical
            Cancel = True
        End If
    End If
End Sub

根据Wolfie的代码，我设法获得了我想要的东西，只为A列添加了一个If not isempty并替换了19而不是13。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim plansht As Worksheet
Set plansht = ThisWorkbook.Sheets("Planning")

' Loop over rows
Dim rw As Integer
For rw = 4 To 19
    ' Test if both the A and M column in row "rw" are blank
    If Not IsEmpty(plansht.Range("A" & rw)) And plansht.Range("M" & rw).Value = "" Then
        MsgBox ("You will need to enter topics before saving"), vbCritical
        Cancel = True
    End If
Next rw

End Sub

Answer 1

试试这个：

For i = 4 to 19
    If ThisWorkbook.Sheets("Planning").Range("A" & i) <> "" AND _
       ThisWorkbook.Sheets("Planning").Range("M" & i) <> ""  Then
          MsgBox("Hey bro you didn't wrote properly on line " & i)
          Cancel = True

Next i

Answer 2

您可以遍历行，只需测试A和M列，以测试它们对于给定行是否都是空白的。请参阅以下代码......

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim plansht as Worksheet
Set plansht = ThisWorkbook.Sheets("Planning")

' Loop over rows
Dim rw as Integer
For rw = 4 to 13  
    ' Test if both the A and M column in row "rw" are blank
    If plansht.Range("A" & rw).Value = "" And plansht.Range("M" & rw).Value = "" Then
        MsgBox ("You will need to enter topics before saving"), vbCritical
        Cancel = True   
    End If    
Next rw

End Sub

修改

您的编辑建议您希望某些不同的单元格组合为空。以下是针对不同结果的If陈述的一些示例

' If BOTH are empty If plansht.Range("A" & rw).Value = "" And plansht.Range("M" & rw).Value = "" Then ... If IsEmpty(plansht.Range("A" & rw)) And IsEmpty(plansht.Range("M" & rw)) Then ... ' If EITHER is empty If plansht.Range("A" & rw).Value = "" OR plansht.Range("M" & rw).Value = "" Then ... If IsEmpty(plansht.Range("A" & rw)) Or IsEmpty(plansht.Range("M" & rw)) Then ... ' If BOTH are NOT empty If plansht.Range("A" & rw).Value <> "" And plansht.Range("M" & rw).Value <> "" Then ... If Not IsEmpty(plansht.Range("A" & rw)) And Not IsEmpty(plansht.Range("M" & rw)) Then ...

请注意，当您开始介绍具有多个条件的Not时，逻辑很快就会难以解释。你可以使用括号用Not对条件进行分组，但是你可以在逻辑上得到这样的含义：

If Not IsEmpty(plansht.Range("A" & rw)) And Not IsEmpty(plansht.Range("M" & rw)) Then ... If Not (IsEmpty(plansht.Range("A" & rw)) Or IsEmpty(plansht.Range("M" & rw))) Then ...

在保存事件之前，需要帮助同时循环两个单元格

2 个答案: