[已解决]请老师帮忙用VBA根据日期判断当月的天数

腾冲阿尔法

请老师帮忙用VBA根据日期判断当月的总天数。谢谢！ 用VBA根据日期显示当月天数.rar (16.1 KB, 下载次数: 2)

2017-3-30 10:49 上传

点击文件名下载附件 http://www.excelpx.com/forum.php?mod=attachment&aid=NDE1NTk2fDIyZDViN2I5OGM4Zjg3NDQ3NWFjM2U2ZTk0N2IwMDE3fDE3MTQxOTE4MDU%3D&request=yes&_f=.rar

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-3-30 11:22

Private Sub TextBox1_Change()
If IsDate(TextBox1) Then
TextBox2 = Day(DateSerial(Year(TextBox1), Month(TextBox1) + 1, 0))
Else
  TextBox2 = ""
End If
End Sub

Private Sub UserForm_Activate()
TextBox1.Text = Date - 1
TextBox2 = Day(DateSerial(Year(TextBox1), Month(TextBox1) + 1, 0))
End Sub

跳转到最佳答案楼层

大灰狼1976

Private Sub TextBox1_Change()
If IsDate(TextBox1) Then
TextBox2 = Day(DateSerial(Year(TextBox1), Month(TextBox1) + 1, 0))
Else
  TextBox2 = ""
End If
End Sub

Private Sub UserForm_Activate()
TextBox1.Text = Date - 1
TextBox2 = Day(DateSerial(Year(TextBox1), Month(TextBox1) + 1, 0))
End Sub

腾冲阿尔法

大灰狼1976 发表于 2017-3-30 11:22
Private Sub TextBox1_Change()
If IsDate(TextBox1) Then
TextBox2 = Day(DateSerial(Year(TextBox1), M ...

谢谢老师，问题完美解决。