在vba中如何使用工作表函数

更具体地说，我想用这个公式

---

=IF（AK3此代码是自解释的。根据需要修改它

Sub timval()
If TimeValue(Range("A1").Text) < TimeValue("11:45:00 PM") Then
    Range("B1") = True
Else
    Range("B1") = False
End If
End Sub

Sub-timval（）
如果时间值（范围（“A1”）.Text）小于时间值（“11:45:00 PM”），则
范围（“B1”）=真值
其他的
范围（“B1”）=假
如果结束
端接头

欢迎使用StackOverflow。请注意，这不是一项免费的代码编写服务。但我们渴望帮助其他程序员（和有志者）编写他们自己的代码。请阅读上的帮助主题。您可能还希望在这样做的同时获得徽章。之后，请使用您迄今为止编写的VBA代码更新您的问题，以便完成任务您希望实现。我们将在这里等待您。随时准备帮助您完成代码。@Sona123请将答案标记为正确。这就是您在SO向您致谢的方式：）