我实际上熟悉如何禁用文本框或复选框,但我在这里看到的是一个基于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函数吗?尝试了一些东西,但没有成功。请帮忙
答案 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