VB 操作表格 和 换行

37623412

我是在EXCLE 里面添加了一个VBA界面，里面有大量的LABEL 和textbox，  我要将界面表单接收的数据插入表格，一个Lable的caption 对应一个textbo的text属性，因为数据太大，不能实现换行。 我想知道这个怎么做，跪求高手！

lu_zhao_long

将 Label 的 WordWrap 属性改成 True。

37623412

不是这个问题啊，我现在就是要把这些label的CAPTIOAN 属性 和TEXTBOX的TEXT 做成一张表，用循环遍历的话 不能自动换行。
我的意思是 让他每行显示8个LABEL 和TEXTBOX的内容，因为我有50多个，不好排版。

lu_zhao_long

37623412 发表于 2013-3-5 20:25
不是这个问题啊，我现在就是要把这些label的CAPTIOAN 属性 和TEXTBOX的TEXT 做成一张表，用循环遍历的话 不 ...

猜测一下，估计楼主可能是想要下面的结果：
Dim Ctrl As Control
Dim i As Integer
Dim j As String

i = 0
For Each Ctrl In Me.Controls
    If Left(Ctrl.Name, 3) = "Tex" Then
        j = j & Controls(Ctrl.Name).Text
    Else
        j = j & Controls(Ctrl.Name).Caption
    End If
    i = i + 1
    If i Mod 8 = 0 Then
        j = j & vbCrLf
        'Debug.Print j
    End If
   
Next