vba 突发奇想的方法用不了？

yyqfeng

Public TB As Integer

Private Sub SpinButton1_Change()
TextBox3.Value = Me.SpinButton1.Value
TB = TextBox3.Value
End Sub

Private Sub UserForm_Initialize()
TextBox2 = Year(Date) & "/" & Month(Date) & "/" & TB
End Sub

为什么TextBox3格子里的数字可以调节。在TextBox2最后的一位天数调不动是怎么会事？
是实现不了吗？

yyqfeng

自己解决了，哈哈！！！
Public TB As Integer

Private Sub SpinButton1_Change()
    ChangeTextBox2
   TB3 = Me.SpinButton1.Value
   TB = TB3
End Sub

Private Sub ChangeTextBox2()
TextBox2 = Year(Date) & "/" & Month(Date) & "/" & TB
End Sub