Question

vba文本框,我在表格里面插入了n个activex文本框和一个命令按钮

现在我想用循环变量i指向这些文本框。TextBox1.Text需要做什么修改





Answer 1

把按钮的单击事件响应代码改成下面的试试，看看是不你要的效果！

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim ole As OLEObject
    For Each ole In OLEObjects
        If InStr(1, ole.Name, "TextBox") > 0 Then
            i = i + 1
            ole.Object.Text = i + 1
        End If
    Next ole
End Sub

Answer 2

没看明白你想要做什么

追问

文本框为单位，随i改变而填写下一个文本框00.假如说文本框是个单元格，第一个第二个第三个这么个意思00具体我也不懂

追答

唉，越来越糊涂了

追问

有人和我说用
for each shp in sheet1.shapes
遍历一遍工作表中的对象0-0但是我不会

Answer 3

对啊就是这个:
for each shp in sheet1.shapes