文本框值,用于根据条件禁用复选框

时间:2017-09-05 20:56:22

标签: excel excel-vba vba

我实际上熟悉如何禁用文本框或复选框,但我在这里看到的是一个基于DOB自动计算的年龄文本框。见下面的代码:

Private Sub TextDOB_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.TextDOB.value) Then
Me.TextAge.value _
= Age(CDate(Me.TextDOB.value), Date)
Else
Me.TextAge.value = "Invalid entry"
End If
End Sub

上述代码的结果是“27年9个月” 现在进一步根据这一点,我必须在员工年龄大于58的情况下禁用养老金复选框。

我可以在userform中使用excel中的left函数吗?尝试了一些东西,但没有成功。请帮忙

1 个答案:

答案 0 :(得分:0)

Private Sub TextAge_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Left(Me.TextAge.value, 2) >= 58 Then
    Me.CheckPEN.value = False
    CheckPEN.Enabled = False
Else:
    CheckPEN.Enabled = True
End If
End Sub