Chọn toàn bộ dữ liệu từ Listbox ...

[ontopoftheworld]

Có em một Listbox(lstbox này trong một Form), danh sách trong listbox đó là cập nhật từ một sheet khác trong cùng WB. VẤn đề em muốn hỏi là em có thể chọn tòan bộ danh sách trong listbox đó bằng các cách giống như EX: Ctrl+A hay quét khối?
Mục đích của em là muốn dùng control RefEdit để copy tòan bộ danh sách từ listbox xuống EX.
Hy vọng diễn tả này làm mọi người hiểu.
Cám ơn các anh chị nhiều.

 

[Mr Okebab]

Theo mình được biết thì bạn chọn thuộc tính MultiSelect = 1

Thân!

 

[levanduyet]

Đầu tiên bạn phải thiết lập thuộc tính
Multiselect = True
Sau đó bạn dùng vòng lập để chọn hết các mục trong ListBox

Dim i As Long
    With Me.ListBox1
        If .ListCount = 0 Then
            Exit Sub
        End If
        For i = 0 To .ListCount - 1
            .Selected(i) = True
        Next i
    End With

Tương tự như bạn muốn in ra chẳng hạn

With Me.ListBox1
        If .ListCount = 0 Then Exit Sub
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Range("D1").Offset(j, 0) = .List(i)
                j = j + 1
            End If
        Next
    End With

Lê Văn Duyệt

 

[tedaynui]

Có em một Listbox(lstbox này trong một Form), danh sách trong listbox đó là cập nhật từ một sheet khác trong cùng WB. VẤn đề em muốn hỏi là em có thể chọn tòan bộ danh sách trong listbox đó bằng các cách giống như EX: Ctrl+A hay quét khối?
Mục đích của em là muốn dùng control RefEdit để copy tòan bộ danh sách từ listbox xuống EX.
Hy vọng diễn tả này làm mọi người hiểu.
Cám ơn các anh chị nhiều.

Chào bạn
Bạn xem ví dụ này có đúng ý của bạn không.

TDN.

 

[ontopoftheworld]

Vâng, cám ơn sự giúp đỡ của 3 anh.
To Mr.Hieu: Em chỉ cần gợi ý của anh là đủ cho mục đích.
To Tedaynui: File của anh thì quá là đủ cho mục đích của e, có thể là dư luôn đó chứ. Thanks.
To Anh Duyệt.
Code của anh lại làm em phát sinh ý tưởng mới cho công việc của em đấy anh ạ. Cám ơn anh nhiều.

 

[doanchuan]

em mới học vb
em co bai tập là tạo form co nút lệnh listbox va textbox khi em nhap ten ten vao textbox nhấn nút lệnh thì ten chuyển vào listbox bây giờ em muốn chọn tên trong listbox va so thứ tự của tên sẽ hiện ra trong textbox
cảm ơn anh trước!

 

[hoa35ktxd]

Bạn làm như sau nhé: Textbox.text = Listbox.ListIndex + 1

 

[sealand]

Mình dùng Label để hiển thị, trông nó đẹp hơn. Bạn xem ví dụ
(Mình đã thiết lập thứ tự, nhập xong Enter dịch chuyển)

 

[doanchuan]

Cảm ơn anh đã trả lời em!

 

[doanchuan]

Hy vọng lần sau hỏi anh cũng được trả lời nhanh như thế
thank you!

 

[doanchuan]

Anh ơi anh có thể cho em nick của anh Được không
để em có thể hỏi nhanh hởn được không ah!
thank!

 

[doanchuan]

ví dụ em có 2textbox lần lượt là hoten và maso 1 nút lệnh ,1 lixtbox và 1 combobox khi em nhập thông tin vào 2 textbox và ấn nút lệnh thì thông tin sẽ chuyển dữ liệu vào listbox va combobox tương ứng là hoten và maso. Bây giờ em nhấn vào combobox tức là mã số thì trong listbox cũng được nhận và ngược lại khi nhấn vào listbox thì combobox cũng nhận maso tương ứng. Và 2 ô textbox ở trên cũng nhận được dữ liệu tương ứng
cảm on anh trước nha!

 

[hoa35ktxd]

Cơ bản thì nó là thế này. Bạn thử xem nhé.

Private Sub UserForm_Activate()
    Dim I As Integer
    For I = 1 To 50
        ListHoten.AddItem "HoTen " & I
        ComboMaSo.AddItem "MaSo " & I
    Next
    ComboMaSo.ListIndex = 0
End Sub
Private Sub CommandButton1_Click()
    ListHoten.AddItem TxtHoTen.Text, 0
    ComboMaSo.AddItem TxtMaSo.Text, 0
    ComboMaSo.ListIndex = 0
End Sub
Private Sub ComboMaSo_Change()
    ListHoten.ListIndex = ComboMaSo.ListIndex
End Sub
Private Sub ListHoten_Change()
    ComboMaSo.ListIndex = ListHoten.ListIndex
End Sub

 

[sealand]

Mình gửi bạn file ví dụ, bạn tham khảo code của mình xem có dùng được phần nào không. Xin lỗi mình không viết được vì dài quá, nó liên quan nhiều vấn đề.

 

[doanchuan]

cảm ơn anh trước nha!

 

[doanchuan]

anh ơi vậy nếu như em có một nút ấn sửa khi em sửa maso hoặc hoten và ấn nút sửa thì trong combox và listbox cũng sửa theo giá trị đó thì làm như thế nào anh!

 

[sealand]

Mời bạn xem tiếp file ví dụ. Muốn sửa thì chọn dòng trên List. hay Comb. rồi sửa trên textbox rồi nhấn "Dong y sua" . Muon xóa dòng nào chọn dòng đó nhấn nút xóa)

 

[nguyenhoangc]

di an cuc di

post tao lao khong post lam chi.

 

[nguyenhoangc]

neu muon chi nguoi ta thi chi ro rang noi chung chung ai hieu, cuc ga

 

[ndu96081631]

post tao lao khong post lam chi.

neu muon chi nguoi ta thi chi ro rang noi chung chung ai hieu, cuc ga

Trời... thêm 1 ông nội từ công viên TK Biên Hòa đi lạc vào đây!