[已解决]问题求助，这个代码如何完成

Aкon · 发表于 2011-10-20 16:40

问题见附件请求大家帮忙完成一下，谢谢！

最佳答案

mxg825

2011-10-20 17:01

Private Sub TextBox1_Change()
On Error Resume Next
TextBox2 = VBA.Day(DateAdd("m", 1, CDate(Format(ComboBox1.Text, "YYYY-m"))) - 1) - TextBox1
End Sub

复制代码

fox8684 · 发表于 2011-10-20 16:48

你问题说得不清楚，ComboBox1内容只能选择固定的的几个选项，应该也用TextBox吧，这样可以输入任意年月。

Aкon · 发表于 2011-10-20 16:51

是可以输入不同的年月份的，不同的年月份总天数就不同了

Aкon · 发表于 2011-10-20 16:51

这个ComboBox1是设置好，选择用的

mxg825 · 发表于 2011-10-20 17:01

Private Sub TextBox1_Change()
On Error Resume Next
TextBox2 = VBA.Day(DateAdd("m", 1, CDate(Format(ComboBox1.Text, "YYYY-m"))) - 1) - TextBox1
End Sub

复制代码

Aкon · 发表于 2011-10-21 08:00

非常感谢mxg825老师多次出手相助，谢谢！

		自动登录	找回密码
密码			注册