[已解决]关于动态插入控件并获取控件值得问题

nzynintendo

正在做一个动态插入控件的练习
思路是动态通过代码在窗体中添加四个文本框和两个按钮
点击按钮，就把单元格A1,A2,A3,A4的值依次填入到四个文本框中
按钮1是一个一个赋值
按钮2的思路是想通过一个循环来赋值
请各位高手帮忙看一下附件里的“读取2”按钮为什么达不到和“读取1”按钮一样的效果？
应该怎样修改呢？

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-12 17:14

Private Sub newbt2_Click()
'For k = 1 To 4
'UserForm1.Controls("newtb" & k).Text = Sheets(1).Cells(k, 1)
'Next
    For Each x In Me.Controls
        If x.Name Like "newtb?" Then
            k = k + 1
            x.Text = Sheets(1).Cells(k, 2)
        End If
    Next
End Sub

Book2.rar (18.77 KB, 下载次数: 10)

2016-4-12 17:12 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Private Sub newbt2_Click()
'For k = 1 To 4
'UserForm1.Controls("newtb" & k).Text = Sheets(1).Cells(k, 1)
'Next
    For Each x In Me.Controls
        If x.Name Like "newtb?" Then
            k = k + 1
            x.Text = Sheets(1).Cells(k, 2)
        End If
    Next
End Sub

Book2.rar (18.77 KB, 下载次数: 10)

2016-4-12 17:12 上传

点击文件名下载附件