Question

我想通过使用旋钮来更改文本框的数据值数据写在excel表中......你能解释一下吗？语法我应该使用或者你能告诉我一个例子吗？

感谢您的建议

让马克

Private Sub SpinButton1_Change()
'Range("G15").Value = SpinButton1.Value

Dim I As Integer


For I = 2 To 10 Step 1
TextBox2.Value = Ws.Range("A"& I)
   Next

Answer 1

使用以下代码我给出了一个很好的结果，但为什么我需要一个msgbox？没有msgbox它就不起作用......奇怪......

 Private Sub SpinButton1_Change()

Dim I As Integer

For I = 2 To 10 Step 1
MsgBox ("La valeur de la Textbox" & I & " est de " & TextBox2)
ComboBox1.Value = Ws.Range("A" & I)
ActiveCell = Me.ComboBox1.Value
TextBox2.Value = Ws.Range("B" & I)
TextBox3.Value = Ws.Range("C" & I)
TextBox4.Value = Ws.Range("D" & I)
TextBox5.Value = Ws.Range("E" & I)
TextBox6.Value = Ws.Range("F" & I)
TextBox7.Value = Ws.Range("G" & I)
TextBox8.Value = Ws.Range("H" & I)
TextBox9.Value = Ws.Range("I" & I)

'Range("G15").Value = SpinButton1.Value
Next

VBA Spinbutton增量值文本框

1 个答案: