已解决：求助 用循环批量修改一组文本框的数值

chrish

求助：左边的5个文本框，用循环修改文本框的数值，每个文本框的数值都加5，最终的结果是， 15， 25， 35 ， 45，  55.

谢谢大家指点



我的代码如下，但是是错误的。。 请指点，谢谢。


Sub 文本框修改数值()

  Dim Jiage As TextBox
  
  For i = 1 To 5
  
  Set Jiage = Sheet1.价格 & i
  
    Jiage.Value = Jiage.Value + 5

  
  Next
  

End Sub

chrish

大侠们，你们在哪里啊

gwjkkkkk

chrish 发表于 2023-4-6 17:50
大侠们，你们在哪里啊

Sub test()
    For Each myObj In Me.OLEObjects
        Me.OLEObjects(myObj.Name).Object.Value = Me.OLEObjects(myObj.Name).Object.Value + 5
    Next
End Sub

chrish

gwjkkkkk 发表于 2023-4-6 18:08
Sub test()
    For Each myObj In Me.OLEObjects
        Me.OLEObjects(myObj.Name).Object.Value =  ...

感谢大侠指导。。。

chrish

gwjkkkkk 发表于 2023-4-6 18:08
Sub test()
    For Each myObj In Me.OLEObjects
        Me.OLEObjects(myObj.Name).Object.Value =  ...

如果这个sheet1里面有别的窗体，就会报错，请问怎么弄呢。

xunanming

Sub 文本框修改数值()

For i = 1 To 5
        Sheet1.OLEObjects("价格" & i).Object.Value = Sheet1.OLEObjects("价格" & i).Object.Value + 5
Next
  

End Sub

wj2368

chrish 发表于 2023-4-6 21:07
如果这个sheet1里面有别的窗体，就会报错，请问怎么弄呢。

。。。。。。。。。。。。。

chrish

xunanming 发表于 2023-4-6 23:46
Sub 文本框修改数值()

For i = 1 To 5

谢谢，谢谢！

chrish

wj2368 发表于 2023-4-7 08:32
。。。。。。。。。。。。。

感谢帮助！问题解决了