Nhờ giúp dùm code list box (2 người xem)

[thoai]

Mình có sheet data chứa dữ liệu phiền các Anh chị giúp mình code list box sao cho lấy tên đường thì kết quả sẽ trả về giá trị theo hình của sheet link. Xin cảm ơn

 

[thoai]

Thực sự chưa hiểu hết những gì bạn diễn đạt;
Bạn muốn bấm vô dòng nào đó trên ListBox thì dãy số liệu bạn cần sẽ hiện lên các TextBox?

Hiện giờ thì ComboBox giúp chúng ta lược bớt các dòng của những huyện/thị khác trong tỉnh
(Trong ListBox chỉ hiện những đường có trên huyện/thị của ComboBox ta đã chọn.)
Chậm hay nhanh với gần 999 dòng dữ liệu chắc không đán quan tâm bằng kéo trỏ chuột xuyên suốt tất thẩy những dòng đó.

Nhờ Anh xem giúp mình cái yêu cầu mình gửi ở trên

 

[Hoang2013]

- Một thắc mắc: Giả dụ mình có nhiều sheet data khác nhau (data 1 và data 2...) và mình muốn sheet Link sẽ gồm 2 combo box và 2 list (tức là thêm một cái bảng tra mới)

Nhưng trong file đã dẫn đâu có 2 trang dữ liệu khác nhau nào đâu;
Các trang 'CSDL' & 'CSDL(2)' đều trống trơn mà!

 

[thoai]

Nhưng trong file đã dẫn đâu có 2 trang dữ liệu khác nhau nào đâu;
Các trang 'CSDL' & 'CSDL(2)' đều trống trơn mà!

Anh kéo thanh cuộn ngược lại đầu là thấy số liệu

 

[Hoang2013]

Mình vừa mở file lên & thấy dữ liệu troing 2 trang tính đó rồi.

Nhưng thêm théc méc: Sao dữ liệu chúng hệt nhau làm vậy?
(1) Do bạn lười giả lập dữ liệu?
(2) Do thực tê là vậy & cần đến 2 ListBox?
Nếu (1) thì chỉ cần đổi tên các dòng hiễn thị huyện/thị thàng ra ở tỉnh khác là được.
Nếu (2) thì xuất hiện vấn đề: Bạn làm vậy có nguyên nhân là gì? Có đáng hay không?

 

[Nguyễn Hồng Quang]

Xem trong file

File của anh Hoang2013 hay với em quá. vì em nghiên cứu mày mò thêm được nhiều kiến thức bổ ích mới mẻ về sử dụng listbox
Tận dụng cái đã học; em thêm 1 chức năng tìm kiếm theo tên đường cho Listbox. Chắc sẽ giúp cho chủ thớt có thêm nhiều lựa chọn hơn trong xử lý công việc.

 

[thoai]

Mình vừa mở file lên & thấy dữ liệu troing 2 trang tính đó rồi.

Nhưng thêm théc méc: Sao dữ liệu chúng hết nhau làm vậy?
(1) Do bạn lười giả lập dữ liệu?
(2) Do thực tê là vậy & cần đến 2 ListBox?
Nếu (1) thì chỉ cần đổi tên các dòng hiễn thị huyện/thị thàng ra ở tỉnh khác là được.
Nếu (2) thì xuất hiện vấn đề: Bạn làm vậy có nguyên nhân là gì? Có đáng hay không?

Thực tế là cần 2 list box để tra cho nhanh vì một lúc tôi cần truy xuất dữ liệu từ 2 sheet này và mỗi sheet cần tối thiểu 2 list box như vậy

 

[Hoang2013]

Đây là nổ lực cuối cùng của mình ngõ hầu giúp bạn:
(1) Trên trang 'Link' bạn cần 2 ListBox, điều đó đã rõ rồi!
Nhưng 2 ListBox này lấy nguồn từ 1 trang 'CSDL" hay từ cả trang 'CSDL' thứ hai (mỗi ListBox' có 1 nguồn từ 2 trang)?
(2) "& mỗi Sheet cần tối thiểu 2 ListBox như vậy" Vậy các ListBox này (4 hay 2?) nằm ở 1 hay 2 trang tính & chúng cụ thể trên những trang tính nào (nếu là 2 trang)

 

[thoai]

Đây là nổ lực cuối cùng của mình ngõ hầu giúp bạn:
(1) Trên trang 'Link' bạn cần 2 ListBox, điều đó đã rõ rồi!
Nhưng 2 ListBox này lấy nguồn từ 1 trang 'CSDL" hay từ cả trang 'CSDL' thứ hai (mỗi ListBox' có 1 nguồn từ 2 trang)?
(2) "& mỗi Sheet cần tối thiểu 2 ListBox như vậy" Vậy các ListBox này (4 hay 2?) nằm ở 1 hay 2 trang tính & chúng cụ thể trên những trang tính nào (nếu là 2 trang)

Cảm ơn Anh, hôm qua ngồi với Anh Bé mới biết Anh:
- Thực tế là cần 2 list box nằm trong sheet (link) để tra cho nhanh vì một lúc tôi cần truy xuất dữ liệu của 2 huyện/thị cùng lúc đối với Sheet CLDL.
- Đối với từ Link cũng vậy nhưng do CSDL là nằm ở sheet (CSLD2).
- Cụ thể :
+ Link 1 là 2 list box và truy xuất CSDL
+ Link 2 là 2 list box và truy xuất CSDL 2

 

[Hoang2013]

Tạm thời bạn thử vận hành cái này; Sẽ bổ sung sau

 

[thoai]

Tạm thời bạn thử vận hành cái này; Sẽ bổ sung sau

Phiền Anh xử lý hoàn thiện theo nhu cầu dùm!

 

[Hoang2013]

Phiền Anh xử lý hoàn thiện theo nhu cầu dùm!

Hiện file mới nhất đó có 2 listBox lấy nguồn dữ liệu từ 'CSDL'
(Bạn thấy mỗi 1 ListBox làm 1 cách khác nhau để cung ứng dữ liệu tên đường fố bạn cần

Giờ hoàn thiện sẽ là sao sao đây:

Làm thêm 2 ListBox nữa để lấy dữ liệu từ trang 'DuLieu' & đưa ra hai vùng bên dưới dòng 16 trên trang 'Link;?

Nhưng dữ liệu ở trang mình gọi là 'DuLieu' giống hệt 'CSDL', thì làm thêm chúng để làm gì cơ chứ?

 

[thoai]

Hiện file mới nhất đó có 2 listBox lấy nguồn dữ liệu từ 'CSDL'
(Bạn thấy mỗi 1 ListBox làm 1 cách khác nhau để cung ứng dữ liệu tên đường fố bạn cần

Giờ hoàn thiện sẽ là sao sao đây:

Làm thêm 2 ListBox nữa để lấy dữ liệu từ trang 'DuLieu' & đưa ra hai vùng bên dưới dòng 16 trên trang 'Link;?

Nhưng dữ liệu ở trang mình gọi là 'DuLieu' giống hệt 'CSDL', thì làm thêm chúng để làm gì cơ chứ?

Sheet (Du lieu va CSDL) có giá trị khác nhau nhé Anh. Việc thêm 2 list box nữa là lấy dự liệu từ sheet (CSDL) chứ không phải ở sheet (Du lieu). 2 list box này nằm dưới dòng 16 trên trang link thì càng tốt ah

 

[Hoang2013]

File ở bài #23 chúng có khác nhau đâu cơ chứ, đừng đùa chứ bạn!?

 

[thoai]

Sheet cs

File ở bài #23 chúng có khác nhau đâu cơ chứ, đừng đùa chứ bạn!? Sheet Csdl va csdl2 co gia tri khác nhau Anh. Vi du: 25.000 va 27.500 do Anh

 

[Hoang2013]

 

[thoai]

Anh xem lại với list box 3 và list box 4 vẫn lấy giá trị của sheet CSDL chứ không phỉa của sheet Dữ liệu như thông tin ở trên dòng list box ah

 

[Hoang2013]

À!, Mình xin lỗi do thiếu sót chổ này:

Sub DuLieuChoListBox(Sh As Worksheet, HThi As String)
Dim Arr()
Dim J As Long, Rws As Long, W As Integer, Dem As Integer, Ghi As Boolean
ReDim dArr(1 To 220, 1 To 9)

With Sh                'eets("CSDL")                    Sh'      '<=|"
    Rws = .[b4].CurrentRegion.Rows.Count
    Arr() = .[A5].Resize(Rws, 10).Value
End With
For J = 1 To UBound(Arr())
    If Ghi And Arr(J, 1) <> "" Then
        W = W + 1
        For Dem = 1 To 9
            dArr(W, Dem) = Arr(J, 1 + Dem)
        Next Dem
    ElseIf Ghi And Arr(J, 1) = "" Then Exit For
    End If
    If Arr(J, 2) = HThi Then Ghi = True   'Me!cbHTDS.Text'
Next J
End Sub

 

[thoai]

À!, Mình xin lỗi do thiếu sót chổ này:

Sub DuLieuChoListBox(Sh As Worksheet, HThi As String)
Dim Arr()
Dim J As Long, Rws As Long, W As Integer, Dem As Integer, Ghi As Boolean
ReDim dArr(1 To 220, 1 To 9)

With Sh                'eets("CSDL")                    Sh'      '<=|"
    Rws = .[b4].CurrentRegion.Rows.Count
    Arr() = .[A5].Resize(Rws, 10).Value
End With
For J = 1 To UBound(Arr())
    If Ghi And Arr(J, 1) <> "" Then
        W = W + 1
        For Dem = 1 To 9
            dArr(W, Dem) = Arr(J, 1 + Dem)
        Next Dem
    ElseIf Ghi And Arr(J, 1) = "" Then Exit For
    End If
    If Arr(J, 2) = HThi Then Ghi = True   'Me!cbHTDS.Text'
Next J
End Sub

Đoạn code này dưa vào chỗ nào ah

 

[Hoang2013]

Bạn tìm macro có tên như vậy & chỉ thay mỗi 1 dòng lệnh thành vầy mà thôi:

With Sh                'eets("CSDL")                    Sh'      '<=|"

(Macro này nằm ở trong cửa số VBE của Form)

 

[thoai]

Bạn tìm macro có tên như vậy & chỉ thay mỗi 1 dòng lệnh thành vầy mà thôi:

With Sh                'eets("CSDL")                    Sh'      '<=|"

(Macro này nằm ở trong cửa số VBE của Form)

Tôi gõ vào mà vẫn không được nó vẫn lấy giá tri của sheet CSDL chứ k phải của sheet DuLieu, Phiền Anh làm giúp