Xin nhờ anh chị giúp đỡ về CommandButton Userform. (2 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.

 

[ptm0412]

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

Không rành class thì chịu khó viết 13 sub màu và 5 sub sọc điện trở.
Ghi chú: Do có nút 13 không màu và nút này có picture nên code nút không màu phải thêm câu:

Me.Controls(BtnName).Picture = cob_Rchonkomau.Picture

Các nút màu còn lại phải có câu sau để xóa picture nếu lỡ chọn không màu trước đó

Me.Controls(BtnName).Picture = Nothing