Nhờ giúp đỡ code tạo nút cập nhật dữ liệu từ Listbox và column header VBA

[ntngoc123]

Xin chào các bác!
Như tiêu đề, em muốn tạo nút cập nhật dữ liệu từ Listbox và tạo dòng tiêu đề cho Listbox đó luôn ạ.
Em đã tạo sẵn nút và dòng tiêu đề như trong file nhưng chưa biết viết code nên nhờ các bác giúp đỡ.
- Khi bấm vào nút "Sua Du lieu" thì dữ liệu sẽ được cập nhật trên file.
- Tiêu đề listbox là hàng thứ 3 (A3, B3, C3)
- Ngoài ra xin giúp em chỉnh lại cho phù hợp Listbox của em bị dư quá nhiều khoảng trắng do em đặt lệnh ở ô Số thứ tự và code vba hiện tại hiểu là hiển thị tới dòng cuối cùng.
Em xin cám ơn ạ.

 

[phuc_daknan]

Xin chào các bác!
Như tiêu đề, em muốn tạo nút cập nhật dữ liệu từ Listbox và tạo dòng tiêu đề cho Listbox đó luôn ạ.
Em đã tạo sẵn nút và dòng tiêu đề như trong file nhưng chưa biết viết code nên nhờ các bác giúp đỡ.
- Khi bấm vào nút "Sua Du lieu" thì dữ liệu sẽ được cập nhật trên file.
...
Em xin cám ơn ạ.

có File thực tế ko bạn?

 

[befaint]

Bài #2: chủ thớt chỉ muốn vẽ cái nút thôi mà.

 

[phuc_daknan]

Xin chào các bác!
...
Em đã tạo sẵn nút và dòng tiêu đề như trong file nhưng ...
Em xin cám ơn ạ.

Bài #2: chủ thớt chỉ muốn vẽ cái nút thôi mà.

vâng, do chủ thớt đã có sẵn file ... nên mình mới hỏi kỹ hơn ^^

 

[ndu96081631]

Bài #2: chủ thớt chỉ muốn vẽ cái nút thôi mà.

Vậy bạn có giúp được không? Tức là vẽ cái Nút "sua..." đó

 

[befaint]

Vậy bạn có giúp được không? Tức là vẽ cái Nút "sua..." đó

Em dùng chuột vẽ vời mấy cái hình thì tạm được, chỉ e không hợp với thẩm mỹ của chủ thớt.

Mặt khác, chủ thớt nêu "giúp đỡ code tạo nút" nên yêu cầu này em chịu rồi.

 

[ntngoc123]

có File thực tế ko bạn?

Em đính kèm file ạ.

 

[SA_DQ]

Trong file đã ghi tiếng nước nào vậy bạn; Chắc không fải của cha hàng xóm chó đẻ ý chứ?

 

[ntngoc123]

Trong file đã ghi tiếng nước nào vậy bạn; Chắc không fải của cha hàng xóm chó đẻ ý chứ?

Dạ trong file là tiếng Nhật ạ

 

[batman1]

Trong sự kiện vd. đúp chuột trong ListBox thì code bắn dữ liệu của mục được chọn sang 2 TextBox để có thể sửa. Khi nhấn Sửa thì bắn từ 2 TextBox ghi đè vào mục đang chọn trong ListBox.

Tất nhiên trong sự kiện trước tiên phải kiểm tra xem có mục nào được chọn không, tức ListBox.ListIndex > -1

 

[ntngoc123]

Trong sự kiện vd. đúp chuột trong ListBox thì code bắn dữ liệu của mục được chọn sang 2 TextBox để có thể sửa. Khi nhấn Sửa thì bắn từ 2 TextBox ghi đè vào mục đang chọn trong ListBox.

Tất nhiên trong sự kiện trước tiên phải kiểm tra xem có mục nào được chọn không, tức ListBox.ListIndex > -1

Cám ơn bạn, nhưng do mình chưa có kiến thức nền về VBA nên mình không hiểu lắm. Những đoạn code trong file này là mình copy trên mạng và được các bác trên GPE giúp đỡ chỉ giáo nên mới có được file này.
Giờ mình muốn làm nút sửa đổi dữ liệu với tạo thanh tiêu đề nhưng không biết code thế nào dù đã tham khảo 1 số file tương tự, xin được giúp đỡ ạ.

 

[quanluu]

Cám ơn bạn, nhưng do mình chưa có kiến thức nền về VBA nên mình không hiểu lắm. Những đoạn code trong file này là mình copy trên mạng và được các bác trên GPE giúp đỡ chỉ giáo nên mới có được file này.
Giờ mình muốn làm nút sửa đổi dữ liệu với tạo thanh tiêu đề nhưng không biết code thế nào dù đã tham khảo 1 số file tương tự, xin được giúp đỡ ạ.

Phần tạo list với tiêu đề thì dùng rowsource chứ không dùng List: .LtBDanhSach.RowSource = Sheet1.Name & "!A4:C" & LastRow

Phần sửa dữ liệu thì như sau:

Private Sub btnChange_Click()
    Sheet1.Range("B3").Offset(Val(txtNumber.Text), 0) = txtName.Text
    Sheet1.Range("B3").Offset(Val(txtNumber.Text), 1) = CDate(txtDate.Text)
End Sub