在excel中用vba的Forms.SpinButton命令调节这个序号12-07-006

你这是三段序号，还不知道是怎么一种进位规则

看着有点象日期值，如果是这样，那么spinbutton 的min为1，max 为31，调节后取得spinbutton.value 再格式化成你需要的序号格式。如果还需要进位，那你根据你的规则来设定吧

Private Sub SpinButton1_SpinUp()

TextBox1.Text = TextBox1.Text + 1

End Sub

Private Sub SpinButton1_SpinDown()

TextBox1.Text = TextBox1.Text - 1

End Sub

一个是递增 一个是递减

你更改的是数据类型不对 ,DateValue(Textbook1.Text ) 这句你转成日期当然不对了。

---