Tạo LABEL là tạo thế nào? Bạn hỏi cứ y như ĐÙA!
Tạo Label trên Userform thì dùng code sau nhé.
Private Sub CommandButton1_Click()
Dim lbl As Control
Set lbl = Me.Controls.Add("Forms.Label.1")
With lbl
.Top = 10
.Left = 5
.Height = 20
.Width = 60
.Caption = "domfootwear"
.BackColor = &HFFFF&
.ForeColor = &H8000&
End With
End SubVí dụ là vầy:
Sub Test()
With ActiveSheet.Buttons.Add(271.5, 92.25, 87, 27.75)
.Characters.Text = "OK"
End With
End SubSub TaoLabel()
Dim Lbl As Label
Set Lbl = ActiveSheet.Labels.Add(227.25, 93.75, 62.25, 36.75)
With Lbl
.Caption = "domfootwear"
End With
Set Lbl = Nothing
End SubVậy thì Add cái Rectangle đi cho gọn
Sub Test()
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 265.5, 172.5, 119.25, 76.5)
.TextFrame.Characters.Text = "HO VA TEN"
.Name = "LB1"
End With
End SubNếu dùng Label trên thanh Forms thì có vẽ không đẹp... nó trong suốt, chẳng tô màu được!
Làm bằng tay + Record macro xem code nó viết thế nào rồi áp dụng bạn à
Không thể Record lại được thầy à, em cũng đang đau đầu, trên Userform thì ngon lành, nhưng ở worksheet thì không biết làm thế nào
Là tôi đang nói cái Rectangle ấy! Đấy là shape nên record macro thoải mái
Thì vầy xem:
Sub CreateLabel(LabelName As String, LabelTitle As String, Left As Integer, Top As Integer, Width As Integer, Height As Integer)
On Error Resume Next
If ActiveSheet.Labels(LabelName) Is Nothing Then
With ActiveSheet.Labels.Add(Left, Top, Width, Height)
.Caption = LabelTitle
.Name = LabelName
End With
End IfPrivate Sub CommandButton1_Click()
CreateLabel "lbl_save1", "Save", 300, 300, 50, 50
End SubMình đâu thấy gì lạ đâu bạn ? Vẫn chạy bình thường mà. Nhưng phải chỉnh lại tên cho khớp với UDF mà thôi.
Bất bình thường ở chổ là khi nhấp Button lần 2 thì nó sẽ tạo thêm 1 label nằm chồng lên lable ban đầu ---> Như vậy nếu nhấp nhiều lần, ta sẽ có hàng đóng Object không thể kiểm soát được!
Sub Test()
Dim i As Integer, lbl As Object
For i = 1 To 20
Set lbl = ActiveSheet.Labels.Add(5, 5, 70, 15)
With lbl
.Top = 10 + (i - 1) * .Height + 10
.Left = 5
.Caption = "domfootwear " & i
End With
Next i
End Sub
