Giúp tạo List giống Validation trong form (1 người xem)

[MinhKhai]

Giúp tôi đưa tạo DropDownList trong form giống Validation và tối ưu Code trong file gửi kèm.
Code của tôi do cóp nhặt mỗi nơi 1 tí trên diễn đàn nên lủng củng
Xin đừng cười vì tôi đang chập chững tiếp cập VBA

File đính kèm: https://dl.dropbox.com/s/thibfdeqesaeskt/Dang ky LD.rar?dl=1

 

[ndu96081631]

Giúp tôi đưa tạo DropDownList trong form giống Validation và tối ưu Code trong file gửi kèm.
Code của tôi do cóp nhặt mỗi nơi 1 tí trên diễn đàn nên lủng củng
Xin đừng cười vì tôi đang chập chững tiếp cập VBA

File đính kèm: https://dl.dropbox.com/s/thibfdeqesaeskt/Dang ky LD.rar?dl=1

Thêm code này vào:

Private Sub UserForm_Initialize()
  Dim Arr
  With Sheets("ThueBao")
    Label7.Caption = WorksheetFunction.Max(.Range("B8:B310"))
    Arr = .Range("O7:U7").Value
    ComboBox1.RowSource = ""
    ComboBox1.List = WorksheetFunction.Transpose(Arr)
  End With
End Sub