[已解决]Label的难题

Banieliang

Private Sub UserForm_Initialize()
'如何通过窗体初始化时，Label1-Label5=Sheet1（A1-A5）单元格的值。
'未来我有可能有很多Label，一个一个Label往里面添加文字，很烦
'请大神帮忙解决
End Sub

最佳答案

月排行榜 / 总排行榜

xdragon

2015-10-5 15:49

如果你要的是每次动态添加和赋值的话，建议你还是改用动态的标签代码吧，详见附件

1. Private Sub UserForm_Initialize()
   
2. '如何通过窗体初始化时，Label1-Label5=Sheet1（A1-A5）单元格的值。
   
3. '未来我有可能有很多Label，一个一个Label往里面添加文字，很烦
   
4. '请大神帮忙解决
   
5.     Dim lb As Control, i As Long, AddLabel
   
6.     With Sheets("sheet1")
   
7.         AddLabel = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
   
8.     End With
   
9.     For i = 1 To UBound(AddLabel)
   
10.         Set lb = Me.Controls.Add("Forms.Label.1") '添加标签控件
    
11.         With lb
    
12.             .Visible = True '可见
    
13.             .Name = "Label" & i '标签名称
    
14.             .Caption = AddLabel(i, 1) '标签显示的内容
    
15.             .Top = i * 20   '标签控件的位置（垂直方向）
    
16.             .Left = 100      '标签控件的位置（水平方向）
    
17.             .Height = 15   '标签控件的高度
    
18.             .Width = 70    '标签控件的宽度
    
19.         End With
    
20.     Next
    
21. End Sub

复制代码

跳转到最佳答案楼层

Banieliang

Microsoft Excel Worksheet.rar (11.68 KB, 下载次数: 8)

2015-10-5 08:04 上传

点击文件名下载附件
不知道为什么发表的时候没有办法附上附件，在这里附上

xdragon

如果你要的是每次动态添加和赋值的话，建议你还是改用动态的标签代码吧，详见附件

1. Private Sub UserForm_Initialize()
   
2. '如何通过窗体初始化时，Label1-Label5=Sheet1（A1-A5）单元格的值。
   
3. '未来我有可能有很多Label，一个一个Label往里面添加文字，很烦
   
4. '请大神帮忙解决
   
5.     Dim lb As Control, i As Long, AddLabel
   
6.     With Sheets("sheet1")
   
7.         AddLabel = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
   
8.     End With
   
9.     For i = 1 To UBound(AddLabel)
   
10.         Set lb = Me.Controls.Add("Forms.Label.1") '添加标签控件
    
11.         With lb
    
12.             .Visible = True '可见
    
13.             .Name = "Label" & i '标签名称
    
14.             .Caption = AddLabel(i, 1) '标签显示的内容
    
15.             .Top = i * 20   '标签控件的位置（垂直方向）
    
16.             .Left = 100      '标签控件的位置（水平方向）
    
17.             .Height = 15   '标签控件的高度
    
18.             .Width = 70    '标签控件的宽度
    
19.         End With
    
20.     Next
    
21. End Sub

复制代码