Xin giúp tôi thêm thủ tục cho ComboBox

[thanhtam348]

Trong File VD đính kèm của tôi khi kích chuột vào ComboBox thì thấy được mã KH và tên KH, nhờ các bạn giúp tôi thêm thủ tục nào để thấy cả địa chỉ.
Rất cám ơn.

 

[Hoàng Trọng Nghĩa]

Bạn sửa cái resize từ 2 thành 3 thôi. Sau đó bạn sửa trong Properties ColumnCount = 3 là được!

ComboBox1.List() = .Range(.[C4], .[C65536].End(xlUp)).Resize(, 3).Value

Tôi nghĩ nên bỏ cái ColumnHead = False đi cho đừng thấy vướng mắt.

 

[thanhtam348]

Cám ơn bạn nhiều.
Nhưng nó vẩn chưa đưa hết ra mà còn có 1 thanh trược phía dưới, nắm thanh trược đó kéo thì mới thấy được địa chỉ ?

 

[Hoàng Trọng Nghĩa]

Cám ơn bạn nhiều.
Nhưng nó vẩn chưa đưa hết ra mà còn có 1 thanh trược phía dưới, nắm thanh trược đó kéo thì mới thấy được địa chỉ ?

Cũng vẫn Properties thôi, bạn chọn ListWidth = 300 thử xem, nó đưa ra tới cái gì luôn đó, hehehe.

 

[thanhtam348]

Rất cám ơn bạn. Xin tạm biệt.

 

[thanhtam348]

Chào minhthien321 và các bạn!
Tôi còn một yêu cầu, xin giúp đở. Cũng tương tự như File củ để lấy làm ví dụ cho đở rờm rà. Nhờ minhthien321 và các bạn dùm viết code đưa DL vào Form cập nhật dùm.
Cám ơn.

 

[Ếch Xanh]

Chào minhthien321 và các bạn!
Tôi còn một yêu cầu, xin giúp đở. Cũng tương tự như File củ để lấy làm ví dụ cho đở rờm rà. Nhờ minhthien321 và các bạn dùm viết code đưa DL vào Form cập nhật dùm.
Cám ơn.

Không khó, nhưng cái địa chỉ của bạn sẽ đặt ở đâu? Cột nào trong sheet đây?

 

[NH_DK]

Chào minhthien321 và các bạn!
Tôi còn một yêu cầu, xin giúp đở. Cũng tương tự như File củ để lấy làm ví dụ cho đở rờm rà. Nhờ minhthien321 và các bạn dùm viết code đưa DL vào Form cập nhật dùm.
Cám ơn.

Mình xin cải biên 1 chút nhé!
Bạn xem thử file đính kèm này

 

[thanhtam348]

Xin thành thật cám ơn các bạn nha!

 

[Ếch Xanh]

Thôi, như lúc đầu bạn cũng đã không cho địa chỉ vào cột nào rồi, tôi làm cho bạn y chang lúc đầu là cột 2 vẫn nhập là ngày vậy!

Bực mình quá! Post File không được! Thôi, gửi bạn Code trong Useform1 đây (à tôi chỉnh lại Textbox1 thành Textbox2 và ngược lại đấy nhé)

Private Sub UserForm_Initialize()
  Call Nguon
End Sub
 
 
Private Sub Nguon()
  With Sheet4
    Range(.[C4], .[C65536].End(xlUp)).Resize(, 3).Name = "NguonCBB"
  End With
  ComboBox1.RowSource = "NguonCBB"
End Sub
 
 
Private Sub UserForm_Terminate()
  ActiveWorkbook.Names("NguonCBB").Delete
End Sub
 
 
Private Sub ComboBox1_Change()
  On Error Resume Next
  With ComboBox1
    If .Text = "" Then
      TextBox1 = "": TextBox2 = ""
    Else
      TextBox1 = .Column(1): TextBox2 = .Column(2)
    End If
  End With
End Sub
 
 
Private Sub CommandButton1_Click()
  Dim a As Long
  a = Sheet11.[C65536].End(xlUp).Row + 1
  With Sheet11.Cells(a, 3)
    .Value = ComboBox1
    .Offset(, 1).Value = Format(Now, "dd/mm/yyyy")
    .Offset(, 2).Value = TextBox1
  End With
  ComboBox1 = "": TextBox1 = "": TextBox2 = ""
  ComboBox1.SetFocus
End Sub
 
 
Private Sub CommandButton2_Click()
  Unload Me
End Sub

 

[thanhtam348]

Xin cám ơn bạn Learning_Excel
Tạm biệt các bạn
Thân.

 

[thanhtam348]

Nhờ các bạn giả thích dùm tôi: Trong cột có định dạng Format Cells > Number, nhưng khi mình nhập dạng số vào TextBox để đưa vào cột đó thì lại bị mất định dạng cột, xin chỉ tôi cách khắc phục.
Cám ơn.

 

[Hoàng Trọng Nghĩa]

Nhờ các bạn giả thích dùm tôi: Trong cột có định dạng Format Cells > Number, nhưng khi mình nhập dạng số vào TextBox để đưa vào cột đó thì lại bị mất định dạng cột, xin chỉ tôi cách khắc phục.
Cám ơn.

Bạn nói rõ lên tí nữa đi hoặc là post file lên đi. Nếu dạng số sau chuyển lên Form và ghi vào Textbox, khi nhập vào ngược lại vào sheet, bạn nên thêm Val(TextBox1) thì dạng số sẽ cho ra số.

Nếu không phải cách này, bạn nên post file lên và nói rõ yêu cầu bạn nhé!