[Help] Tạo nút chọn màu trên form sau đó ghi mã màu được chọn xuống Sheet (1 người xem)

[quyenpv]

Em đang học vba mà tìm mãi không có Topic hay câu hỏi nào như thế. Em nhờ các anh chị giúp viết code trên form cho phép chọn màu sau đó ghi mã màu đã chọn xuống Sheet với ạ

 

[ndu96081631]

Em đang học vba mà tìm mãi không có Topic hay câu hỏi nào như thế. Em nhờ các anh chị giúp viết code trên form cho phép chọn màu sau đó ghi mã màu đã chọn xuống Sheet với ạ

Có hàng đống cách để làm điều này, từ đơn giản đến phức tạp
Tôi gửi code dạng đơn giản nhất nhé:

Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias _
         "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long
Private Type CHOOSECOLOR
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As Long
  flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type
Sub Main()
  Dim PickColor As CHOOSECOLOR
  Dim ColorRef(15) As Long
  With PickColor
    .lStructSize = Len(PickColor)
    .lpCustColors = VarPtr(ColorRef(0))
  End With
  If TypeOf Selection Is Range Then
    If CHOOSECOLOR(PickColor) Then Selection.Interior.Color = PickColor.rgbResult
  End If
End Sub

Cho hết code trên vào 1 module rồi chạy sub Main

 

[quyenpv]

Anh cho em hỏi có thể lấy được màu và số thứ tự màu đó sang hai Cell không anh!
Ví dụ A1: là màu, B1: là số thứ tự màu

 

[quyenpv]

Gửi các anh file hoàn thiện em lụm được