当想单击相邻的切换按钮并将其设置为TRUE时,我想使切换按钮返回其FALSE状态无济于事。当一个切换为真时,将显示几个文本框,允许用户输入数据。完成后,用户使用命令按钮将数据发送到工作表。我想要的是,当一个切换处于 TRUE 状态时,另一个切换必须保持 FALSE,直到单击这将使前一个按钮成为 FALSE。这是用户表单的代码和图像
Private Sub Tractor_Click()
If Me.Tractor.Value = False Then Exit Sub
Me.Trailer.Value = False
If Tractor.Value = True Then
Unitnumber.Visible = True
AengineSN.Visible = True
tractorunit.Visible = True
Tbaengine.Visible = True
Submittractor.Visible = True
End If
End Sub
Private Sub Trailer_Click()
If Trailer.Value = True Then
If Me.Trailer.Value = False Then Exit Sub
Me.Tractor.Value = False
Unitnumber2.Visible = True
BengineSN.Visible = True
CengineSN.Visible = True
PowerendSN.Visible = True
TransmissionSN.Visible = True
TorqueconverterSN.Visible = True
RadiatorSN.Visible = True
trailerunit.Visible = True
Tbbengine.Visible = True
Tbcengine.Visible = True
Tbpowerend.Visible = True
Tbtransmission.Visible = True
Tbtorqueconverter.Visible = True
Tbradiator.Visible = True
Submittrailer.Visible = True
End If
End Sub
你正在使代码比它需要的复杂一些:
Option Explicit
Private Sub Tractor_Click()
Unitnumber.Visible = Tractor.Value
tractorunit.Visible = Tractor.Value
Unitnumber2.Visible = Not Tractor.Value
trailerunit.Visible = Not Tractor.Value
End Sub
Private Sub Trailer_Click()
Unitnumber.Visible = Not Trailer.Value
tractorunit.Visible = Not Trailer.Value
Unitnumber2.Visible = Trailer.Value
trailerunit.Visible = Trailer.Value
End Sub
一些注意事项:
在
Trailer_Click
您可以调用Tractor_Click
而不是重复相同的显示/隐藏逻辑。@wqw 另一种选择是创建一个由每个 Click 事件调用的方法。