Thêm một chút về listbox

[kirakira1603]

Xin làm phiền các tiền bối 1 chút nữa về listbox nha.
Em đã vào diễn đàn down hầu hết các ví dụ mà các tiền bối post để tham khảo, nhưng còn một chỗ em chưa thấy có ví dụ.
Nếu em muốn click vào 1 hàng trong listbox ( có 3 cột), các giá trị này được load lên 3 text box. Từ đây, có thể chỉnh sửa nội dung của nó, sau đó lưu ngược trở lại listbox thì phải làm sao ạ?
Em xin mượn file MAKH trên diễn đàn.
Kính!!

 

[levanduyet]

To:kirakira,
Tôi không hiểu ý bạn. Trong ví dụ đã có rồi mà.

LVD

 

[hoa35ktxd]

Hình như đối tượng Name không cho phép chỉnh sửa gián tiếp thì phải.
TRong file ví dụ trên thì ListBox1.RowSource được gán bằng 1 đối tượng Name DUALEN nên khi chỉnh sửa gián tiêp đã gây ra lỗi.
Về cách làm thì như sau.
1. Không sử dụng đối tượng Name DUALEN

Private Sub ListBox1_Click()
Me.MUC.Value = Me.ListBox1.Column(0)
Me.STIEN.Value = Me.ListBox1.Column(1)
End Sub
Private Sub MUC_Change()
    ListBox1.List(ListBox1.ListIndex, 0) = MUC.Text
End Sub
Private Sub STIEN_Change()
    ListBox1.List(ListBox1.ListIndex, 1) = STIEN.Text
End Sub
Private Sub UserForm_Activate()
    Dim I As Long
    I = 5
    While Cells(I, 1).Value <> ""
        With ListBox1
            .AddItem Cells(I, 1)
            .List(.ListCount - 1, 1) = Cells(I, 2)
        End With
        I = I + 1
    Wend
End Sub

2. Vẫn sử dụng đối tượng Name DUALEN

Private Sub ListBox1_Click()
Me.MUC.Value = Me.ListBox1.Column(0)
Me.STIEN.Value = Me.ListBox1.Column(1)
End Sub
Private Sub MUC_Change()
    Cells(ListBox1.ListIndex + 5, 1).Value = MUC.Text
End Sub
Private Sub STIEN_Change()
    Cells(ListBox1.ListIndex + 5, 2).Value = STIEN.Text
End Sub

 

[kirakira1603]

Gửi Chú Lê Văn Duyệt: Cháu muốn nội dung từ 1 hàng trong listbox sau khi được đưa lên các textbox, ta có thể chỉnh sửa được rồi khi click nút OK, nội dung chỉnh sửa này được nhập ngược lại listbox. Thay thế cho nội dung cũ ạ.
Gửi chú hoa35ktxd: Cảm ơn chú về hướng dẫn, cháu sẽ làm thử, nếu còn thắc mắc, mong chú tiếp tục giúp đỡ!
Kính!!

 

[hoa35ktxd]

khi click nút OK, nội dung chỉnh sửa này được nhập ngược lại listbox

Bạn gộp phần lõi 2 sự kiện change trong code trên vào trong sự kiện Click của nút bấm OK là được

private sub BtOK_Click()
    ListBox1.List(ListBox1.ListIndex, 0) = MUC.Text
    ListBox1.List(ListBox1.ListIndex, 1) = STIEN.Text
end sub

 

[kirakira1603]

Mình vừa mới mò ra cách chỉnh sửa dữ liệu listbox từ textbox, cho phép chỉnh sửa các nội dung của 1 hàng, xóa 1 hàng, đưa các hàng sau hàng bị xóa lên trên một số thứ tự. Nhưng rất thủ công, thông qua bảng excel.
Không biết có ai quan tâm giống mình không?
Nếu có cứ nhắn tin, mình cũng cần được góp ý về cách làm này.^^

 

[hoa35ktxd]

Bạn đưa ví dụ của bạn lên để mọi người tham khảo thì mới biết mà góp ý cho bạn được chứ.

 

[hamui]

Xin các tiền bối hướng dẫn: Em có hai cột: Một cột là số thứ tự một cột là tên khách hàng, phải làm như thế nào để đánh STT ở cột số thứ tự là giống nhau khi khách 2 khách hàng là 1
STT Họ tên
1 A
2 B
2 B
3 C

 

[sealand]

Không phải không sẵn lòng mà các bạn hỏi vậy chắc không ít bạn biết trả lời ra sao. Thôi thì mình viết 1 ví dụ (Sơ bộ nên chắc còn lỗi) các bạn tham khảo, có chi không hiểu thì hỏi thì tiện hơn.
Mình nạp Listbox không dùng Name, hơi khác với các bạn đang làm, nhưng nó linh hoạt hơn. Các bạn thử xem sẽ thấy.
Mong đáp ứng yêu cầu các bạn.