excel - 如何使用户窗体中的两个文本框互斥

Question

我在用户表单中有两个文本框。

我需要如果用户在一个文本框中输入了一些数字，然后将光标放在另一个文本框中，则第一个文本框数据被删除，反之亦然。

如果一个文本框中有数据，我可以锁定另一个文本框，作为一种解决方法。

我试图复制用于删除值的锁定方法，但它不起作用。

Sub checkTB()

If ConversionForm.Controls("UnitFromEntry").Text <> "" Then
    ConversionForm.Controls("UnitToEntry").Locked = True
Else

    ConversionForm.Controls("UnitFromEntry").Locked = True
End If
End Sub

我在文本框的更新前事件中调用了这个 sub。

Private Sub UnitFromEntry_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Call checkTB
End Sub

标签： excelvba

Answer 1

尝试这个

Private Sub UnitToEntry_Enter()
    UnitToEntry.Locked = False
    UnitFromEntry.Locked = True
    UnitFromEntry.Text = ""
End Sub

Private Sub UnitFromEntry_Enter()
    UnitFromEntry.Locked = False
    UnitToEntry.Locked = True
    UnitToEntry.Text = ""
End Sub