Xin nhờ anh chị giúp đỡ về CommandButton Userform. (1 người xem)

[OrangeBee]

Em có tạo 1 userform để tô vạch màu và gán giá trị theo vạch màu đã chọn. Khi em click chọn 1 vạch màu sẽ hiện ra bảng màu để chọn, và khi click chọn màu trong bảng đó, màu đó sẽ được gán vào màu của vạch. và có 5 vạch như vậy.
Xin nhờ sự hướng dẫn và giúp đỡ của anh chị. Em xin cảm ơn.

 

[ptm0412]

Tôi làm mẫu cho bạn 1 nút và 1 màu (đỏ). Nếu bạn rành thì cho vào 2 class

Public BtnName As String
'__________'
Private Sub cob_Rchondo_Click()
Me.Controls(BtnName).BackColor = cob_Rchondo.BackColor
End Sub
'_________'
Private Sub cob_Rmau1_Click()
Fr_Rbangmau.Visible = True
BtnName = "cob_Rmau1"
End Sub

 

[OrangeBee]

Tôi làm mẫu cho bạn 1 nút và 1 màu (đỏ). Nếu bạn rành thì cho vào 2 class

Public BtnName As String
'__________'
Private Sub cob_Rchondo_Click()
Me.Controls(BtnName).BackColor = cob_Rchondo.BackColor
End Sub
'_________'
Private Sub cob_Rmau1_Click()
Fr_Rbangmau.Visible = True
BtnName = "cob_Rmau1"
End Sub

Do em không có đủ kiến thức nên chỉ code được cơ bản. Em cảm ơn admin nha.