[已解决]如何将表格里数据关联到-文字框

459375513

新人请教大家问题！
问题：如何将表格里数据关联到-文字框
如何将表格《卷带规格型号》中对应的数据关联到TextBox1~TextBox8中？
附件下载：
DC1206002.rar (22.17 KB, 下载次数: 30)

2012-6-25 13:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

Zipall

2012-6-25 14:10

Private Sub 型号_Change()
    With 型号
        i = .ListIndex
        For n = 1 To 8
            Me.Controls("TextBox" & n).Text = .List(i, n)
        Next
    End With
End Sub

跳转到最佳答案楼层

Zipall

Private Sub 型号_Change()
    With 型号
        i = .ListIndex
        For n = 1 To 8
            Me.Controls("TextBox" & n).Text = .List(i, n)
        Next
    End With
End Sub

459375513

Zipall 发表于 2012-6-25 14:10
Private Sub 型号_Change()
    With 型号
        i = .ListIndex

谢谢您的帮助，解决了！但是我是新人，要是您在每个代码后面加上注释就好了！方便我们新人理解....
把这代码好好看了似懂非懂的改为如下代码（解决了-文字框关联数据错位的现象）：
'步骤1设置-关联对应表格中的数据到《下拉列表》按钮
Private Sub CommandButton1_Click()
          型号.RowSource = "卷带规格型号!a2:k104" '将工作表A2-K104中数据导入“卷带型号”的下拉列表
          型号.ColumnCount = 11 '显示11列数据
          型号.ColumnHeads = True
          型号.ColumnWidths = "4 厘米;1 厘米;1 厘米;2.5 厘米;1.5 厘米;1.5 厘米;1.5 厘米;1.5 厘米;1.5 厘米;1.5 厘米;1.5 厘米" '以厘米为单位设置11列各自的列宽 '
End Sub
'步骤2设置-关联对应表格中的数据到《文字框》
Private Sub 型号_Change()
    With 型号
        i = .ListIndex
        For n = 1 To 10 '导入关联文字框TextBox1-TextBox10
            Me.Controls("TextBox" & n).Text = .List(i, n)
        Next
    End With
End Sub

Zipall

459375513 发表于 2012-6-25 14:24
谢谢您的帮助，解决了！但是我是新人，要是您在每个代码后面加上注释就好了！方便我们新人理解....

看帮助吧,这几句没什么好解释的.