使用If语句清除单元格

Question

我正在创建一个用户表单来输入地址数据。我有一个地址名称的文本框，用于选择道路，街道等的组合框，以及用于奇数的4个数字框以及来自和来自的evens。

我得到的问题是让VBA清除“to”框的内容，如果数字已经输入到它们中，但用户将它们从“框”更改为“to”框之后的更多值。

这里是我目前拥有的代码：

Private Sub txtstreet_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    Select Case KeyAscii 
    Case 65 To 90 
    Case 97 To 122 
    Case 32 
    Case 127 
    Case Else 
     KeyAscii = 0 
    End Select 
End Sub 

Private Sub UserForm_Initialize() 
    roaddesciptor.List = Array("ROAD", "STREET", "WAY", "AVENUE", "DRIVE", "GROVE", "LANE", "GARDENS", "PLACE", "CRESENT", "CLOSE", "SQUARE", "HILL", "CIRCUS", "MEWS", "VALE", "RISE", "ROW", "MEAD", "WHARF") 
    roaddesciptor.ListIndex = 0 
End Sub 

Private Sub txtaddoddfrom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    Select Case KeyAscii 
    Case 48 To 57 
    Case Else 
     KeyAscii = 0 
    End Select 
End Sub 

Private Sub txtaddoddfrom_AfterUpdate() 
    If txtaddoddfrom.Value < txtaddoddto.Value Or txtaddoddto = "" And txtaddoddfrom.Value Mod 2 = 1 Then Exit Sub 
    If txtaddoddfrom.Value Mod 2 <> 1 Or txtaddoddfrom.Value > txtaddoddto.Value Then txtaddoddfrom = "" 
    'Else: txtaddoddfrom = "" 
End Sub 

Private Sub txtaddoddto_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    Select Case KeyAscii 
     Case 48 To 57 
     Case Else 
      KeyAscii = 0 
    End Select 
End Sub 

Private Sub txtaddoddto_AfterUpdate() 
    If txtaddoddto.Value Mod 2 = 1 And txtaddoddto.Value >= txtaddoddfrom.Value Then Exit Sub 
    If txtaddoddto.Value Mod 2 <> 1 Or txtaddoddto.Value < txtaddoddfrom.Value Then txtaddoddto = "" 
End Sub 

Private Sub txtaddevenfrom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    Select Case KeyAscii 
    Case 48 To 57 
    Case Else 
     KeyAscii = 0 
    End Select 
End Sub 

Private Sub txtaddevenfrom_AfterUpdate() 
    If txtaddevenfrom.Value < txtaddevento.Value Or txtaddevento = 0 And txtaddevenfrom.Value Mod 2 <> 1 Then Exit Sub 
    If txtaddevenfrom.Value Mod 2 = 1 Or txtaddevenfrom.Value > txtaddevento.Value Then txtaddevenfrom = "" 
End Sub 

Private Sub txtaddevento_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    Select Case KeyAscii 
    Case 48 To 57 
    Case Else 
     KeyAscii = 0 
    End Select 
End Sub 

Private Sub txtaddevento_AfterUpdate() 
    If txtaddevento.Value Mod 2 <> 1 And txtaddevento.Value >= txtaddevenfrom.Value Then Exit Sub 
    If txtaddevento.Value Mod 2 = 1 Or txtaddevento.Value < txtaddevenfrom.Value Then txtaddevento = "" 
End Sub 

Answer 1

要澄清一下，您要添加代码的“从”框中的更新后事件，如果新的，将清除“收件人”框中“发件人”箱号比“收件人”箱号大。

如果您将以下代码行添加到您的“From”框AfterUpdate事件中，它应该执行您想要的操作。除了您要清除“发件人”框而不是“收件人”框外，它与您已有的功能相同。

txtaddoddfrom.Value > txtaddoddto.Value Then txtaddoddto = "" 

Answer 2

这里有三个问题需要处理。

首先，你不能在字符串上使用数字运算符，这是一个空白字段。这是许多不同的方式来允许这一点。一种方法是(0 & "")。另一个是明确检查他们。我在调整你的代码时使用了两者。

其次，试图更改您即将选中的字段值失败。你必须包装Application.EnableEvents的陈述，试图成功。

最后，您正在切换“from”字段而不是“from”处理程序中的“to”字段。

这里有一个对你的处理器的固定：

Private Sub txtaddoddfrom_AfterUpdate() 
    If (0 & txtaddoddfrom) Mod 2 <> 1 Then txtaddoddfrom = "" ' If even (or ""), zap it 
    If txtaddoddfrom = "" Or txtaddoddto = "" Then Exit Sub 'If was even or blank, done -> exit 
    Application.EnableEvents = False 
    If txtaddoddto < txtaddoddfrom Then txtaddoddto.Value = "" ' Otherwise compare and zap txtaddoddto if smaller 
    Application.EnableEvents = True 
End Sub 


Private Sub txtaddoddto_AfterUpdate() 
    If (0 & txtaddoddto) Mod 2 <> 1 Then txtaddoddto = "" ' If even (or ""), zap it 
    If txtaddoddto = "" Or txtaddoddfrom = "" Then Exit Sub 'If was even or blank, done -> exit 
    Application.EnableEvents = False 
    If txtaddoddfrom > txtaddoddto Then txtaddoddfrom = "" ' Otherwise compare and zap txtaddoddfrom if greater 
    Application.EnableEvents = True 
End Sub 

注：字段值可以通过使用.Value明确地进行访问，或含蓄离不开它。坚持使用一种形式或其他形式是一个好主意。