Nhờ giúp dùm code list box (1 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

 

[be_09]

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

Cái này là bảng giá đất Đồng Nai, công việc có thể là tham khảo để so sánh giá đất so với thị trường nhằm xây dựng bảng giá đất 2020-2025.
Liên hệ với anh Bé (Sở Tài nguyên và Môi trường Đồng Nai) để tham khảo ý kiến hoặc nhờ làm giúp.
Có thể làm áp giá 5 năm gần đây ở bất kỳ vị trí nào của xã, huyện nào vào loại hồ sơ nào.

Tất cả công việc của cơ quan hầu như tôi đều có viết ứng dụng, nhưng cơ quan không dùng cứ trông mong vào Trung tâm Công nghệ Thông tin. Hệ quả là một số bộ phận hiện nay vẫn làm hợp đồng, lập tờ trình, lập danh sách còn theo phương pháp truyền thống tốn rất nhiều thời gian, công sức (rõ chán).

 

[HieuCD]

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

C4 =VLOOKUP($B4,data!$C$9:$K$693,C$3+1,0)

copy cho các ô còn lại, Format sao cho mất số 0

 

[Hoang2013]

Xem cách thức chia nhóm huyện thị để trị dễ nè:

Nên xài công thức này tại [C6] trong file:

=IF(TYPE(VLOOKUP($B6,TDuong,C5+1,FALSE))=16,"",VLOOKUP($B6,TDuong,C5+1,FALSE))

Còn vẫn muốn ListBox thì chờ đi, nhưng vẫn theo đường hướng trong file​

 

[thoai]

Cái này là bảng giá đất Đồng Nai, công việc có thể là tham khảo để so sánh giá đất so với thị trường nhằm xây dựng bảng giá đất 2020-2025.
Liên hệ với anh Bé (Sở Tài nguyên và Môi trường Đồng Nai) để tham khảo ý kiến hoặc nhờ làm giúp.
Có thể làm áp giá 5 năm gần đây ở bất kỳ vị trí nào của xã, huyện nào vào loại hồ sơ nào.

Tất cả công việc của cơ quan hầu như tôi đều có viết ứng dụng, nhưng cơ quan không dùng cứ trông mong vào Trung tâm Công nghệ Thông tin. Hệ quả là một số bộ phận hiện nay vẫn làm hợp đồng, lập tờ trình, lập danh sách còn theo phương pháp truyền thống tốn rất nhiều thời gian, công sức (rõ chán).

Anh cho xin Sđt inbox nhe

Xem cách thức chia nhóm huyện thị để trị dễ nè:

Nên xài công thức này tại [C6] trong file:

=IF(TYPE(VLOOKUP($B6,TDuong,C5+1,FALSE))=16,"",VLOOKUP($B6,TDuong,C5+1,FALSE))

Còn vẫn muốn ListBox thì chờ đi, nhưng vẫn theo đường hướng trong file​

a lam đùm list box cho Tien ah

 

[thoai]

Cái này là bảng giá đất Đồng Nai, công việc có thể là tham khảo để so sánh giá đất so với thị trường nhằm xây dựng bảng giá đất 2020-2025.
Liên hệ với anh Bé (Sở Tài nguyên và Môi trường Đồng Nai) để tham khảo ý kiến hoặc nhờ làm giúp.
Có thể làm áp giá 5 năm gần đây ở bất kỳ vị trí nào của xã, huyện nào vào loại hồ sơ nào.

Tất cả công việc của cơ quan hầu như tôi đều có viết ứng dụng, nhưng cơ quan không dùng cứ trông mong vào Trung tâm Công nghệ Thông tin. Hệ quả là một số bộ phận hiện nay vẫn làm hợp đồng, lập tờ trình, lập danh sách còn theo phương pháp truyền thống tốn rất nhiều thời gian, công sức (rõ chán).

Anh cho xin sdt va can gap Anh o phong nao cua So TN Dong nai ah, inbox sdt dum
E de Tien lien he

 

[be_09]

Anh cho xin Sđt inbox nhe
a lam đùm list box cho Tien ah

1/ Nếu em ở Biên Hòa thì nên gặp trực tiếp, để nêu mục đích em cần sử dụng vào mục đích gì vì nó sử dụng bảng giá này cho nhiều thứ như hợp đồng thuê đất, áp giá bồi thường, hợp đồng đo đạc ..v..v....Anh biết mục đích mới có giải pháp tốt nhất.
2/ Anh nghĩ hưu rồi, nhà anh gần Sở, em đến Sở hỏi thì anh em sẽ chỉ nhà.
3/ Em nên viết bài có dấu tiếng Việt, nếu vi phạm nội quy sẽ bị khóa bài viết.

 

[thoai]

1/ Nếu em ở Biên Hòa thì nên gặp trực tiếp, để nêu mục đích em cần sử dụng vào mục đích gì vì nó sử dụng bảng giá này cho nhiều thứ như hợp đồng thuê đất, áp giá bồi thường, hợp đồng đo đạc ..v..v....Anh biết mục đích mới có giải pháp tốt nhất.
2/ Anh nghĩ hưu rồi, nhà anh gần Sở, em đến Sở hỏi thì anh em sẽ chỉ nhà.
3/ Em nên viết bài có dấu tiếng Việt, nếu vi phạm nội quy sẽ bị khóa bài viết.

1/ Nếu em ở Biên Hòa thì nên gặp trực tiếp, để nêu mục đích em cần sử dụng vào mục đích gì vì nó sử dụng bảng giá này cho nhiều thứ như hợp đồng thuê đất, áp giá bồi thường, hợp đồng đo đạc ..v..v....Anh biết mục đích mới có giải pháp tốt nhất.
2/ Anh nghĩ hưu rồi, nhà anh gần Sở, em đến Sở hỏi thì anh em sẽ chỉ nhà.
3/ Em nên viết bài có dấu tiếng Việt, nếu vi phạm nội quy sẽ bị khóa bài viết.

Em ở bên STC Đồng Nai, có thể cho em SDT để tiện hẹn gặp Anh được không ah

 

[be_09]

Em ở bên STC Đồng Nai, có thể cho em SDT để tiện hẹn gặp Anh được không ah

Vậy em gặp Phúc (nhỏ) nó sẽ cho số điện thoại của anh hoặc em Hồng phòng Thẩm định giá cũng có.

 

[thoai]

Xem cách thức chia nhóm huyện thị để trị dễ nè:

Nên xài công thức này tại [C6] trong file:

=IF(TYPE(VLOOKUP($B6,TDuong,C5+1,FALSE))=16,"",VLOOKUP($B6,TDuong,C5+1,FALSE))

Còn vẫn muốn ListBox thì chờ đi, nhưng vẫn theo đường hướng trong file​

Nhờ Anh giúp list box

 

[thoai]

Vậy em gặp Phúc (nhỏ) nó sẽ cho số điện thoại của anh hoặc em Hồng phòng Thẩm định giá cũng có.

Thượng phúc - Mai Hồng!

 

[Hoang2013]

a lam đùm list box cho Tien ah

Xem trong file

 

[thoai]

Thượng phúc - Mai Hồng!

Không ai có sdt Anh cả. Anh kiểm tra inbox dùm em ah

 

[thoai]

Xem trong file

Để chọn giá trị tên đường ra bảng thì sao Anh

 

[Hoang2013]

Thì cứ bấm chọn dòng tùy thích trên ListBox í; Nó hiễn thì lên trang tính ngay í mà!

 

[thoai]

Thì cứ bấm chọn dòng tùy thích trên ListBox í; Nó hiễn thì lên trang tính ngay í mà!

Mình muốn lấy giá trị đó luôn Anh thì sao ah

 

[thoai]

Thì cứ bấm chọn dòng tùy thích trên ListBox í; Nó hiễn thì lên trang tính ngay í mà!

- list box chạy rất chậm để hiển thị thì phải nhấp qua bên sheet CSDL thì list box mới hiển thị.
- Muốn lấy giá trị chọn của list box thì mình làm thế nào!

 

[thoai]

Vậy em gặp Phúc (nhỏ) nó sẽ cho số điện thoại của anh hoặc em Hồng phòng Thẩm định giá cũng có.

Anh cho em xin sdt nhé

 

[Hoang2013]

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 đó.

 

[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 hiệ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 đó.

- Mình hiểu vấn đề rồi cảm ơn bạn vì đã giúp mình có hướng xử lý cho vấn đề mình đang làm.
- 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)

 

[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

 

[Hoang2013]

Bạn cắt dòng lệnh

 With Sh

thay vô dòng lệnh

 With Sheets("CSDL")

trong macro có tên trên là được.

 

[thoai]

Bạn cắt dòng lệnh

 With Sh

thay vô dòng lệnh

With Sheets("CSDL")

trong macro có tên trên là được.

Nhờ Anh chỉnh dùm: 4 ô list box sẽ lấy dữ liệu từ 4 sheet tương ứng:
+ LB1: lấy dữ liệu ở sheet SKOD.
+ LB2: lấy dữ liệu ở sheet SKOT.
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

Xin cảm ơn

 

[VetMini]

Nhờ Anh chỉnh dùm: 4 ô list box sẽ lấy dữ liệu từ 4 sheet tương ứng:
+ LB1: lấy dữ liệu ở sheet SKOD.
+ LB2: lấy dữ liệu ở sheet SKOT.
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

Xin cảm ơn

Ví dụ tên của ca cái lit bóc là LBox:
With Sheets(Choose(CInt(Right(LBox,1), "SKOD", "SKOT", "TMOD", "TMOT"))

 

[thoai]

Ví dụ tên của ca cái lit bóc là LBox:
With Sheets(Choose(CInt(Right(LBox,1), "SKOD", "SKOT", "TMOD", "TMOT"))

Ví dụ tên của ca cái lit bóc là LBox:
With Sheets(Choose(CInt(Right(LBox,1), "SKOD", "SKOT", "TMOD", "TMOT"))

Mình đã làm 2 List box đầu đã chính xác, riêng 2 List box sau nó không đúng do vẫn lấy giá trị từ sheet SKOT. , bạn gán dùm mình code cho 2 list box: LB3 và LB4 theo
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

 

[thoai]

Mình đã làm 2 List box đầu đã chính xác, riêng 2 List box sau nó không đúng do vẫn lấy giá trị từ sheet SKOT. , bạn gán dùm mình code cho 2 list box: LB3 và LB4 theo
+ LB3: lấy dữ liệu ở sheet TMOD.
+ LB4: lấy dữ liệu ở sheet TMOT.

. Nhờ mọi người hỗ trợ