一款带农历的日历

一指禅62

blonger0 发表于 2020-7-22 18:26
点选日期的时候提示“下标越界“，怎么解决呀？

从代码中分析不出出错原因。

1. Private Sub lblDay_Click()
   
2.     'ActiveCell.Value = CDate(lblDay.Tag)
   
3.     UserForm1.Caption = CDate(lblDay.Tag)
   
4.     If Month(t) <> Month(CDate(lblDay.Tag)) Then
   
5.         t = CDate(lblDay.Tag)
   
6.         Call AddDate
   
7.     End If
   
8. End Sub

复制代码

7259

ggmmlol 发表于 2018-11-4 22:25
我这里开始也是这样报错，自己改好了。

UserForm1.Caption = CDate(Split(x, " ")(1))   

这一步报错  信息是 type mismatch  不知道如何解决

7259

UserForm1.Caption = gltonl(CDate(lblDay.Tag))

为什么在这个一步提示报错  Type mismatch