excel怎么根据日期弹窗VBA代码excel弹出日期选择

发布网友发布时间：2024-09-17 09:48

共1个回答

热心网友时间：2024-11-16 10:10

使用如下三段代码可实现：
Private Sub Workbook_Open()If Worksheets(1).Cells(10000, 1) > \"\" And Worksheets(1).Cells(10000, 1) <= Date ThenMsgBox 1End IfEnd SubPrivate Sub CommandButton1_Click()UserForm1.ShowEnd SubPrivate Sub CommandButton1_Click()UserForm1.HideIf IsDate(UserForm1.TextBox1.Text) ThenCells(10000, 1) = UserForm1.TextBox1.TextElseMsgBox \"请输入正确日期\"UserForm1.ShowEnd IfEnd Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com