Tạo danh sách bằng Combobox (1 người xem)

[hungnh89]

Em đang phải làm Quyết toán dự án.(file đinh kèm) nên có ý tưởng là muốn tạo 1 combobox chứa danh sách các hạng mục công trình (tại sheet 1), mà khi chọn 1 hạng mục bất kỳ nào trong danh sách đó thì chỉ hiện các công tác thuộc hạng mục công trình đó vào sheet1. Em đã tìm hiểu trên diễn đàn và thử làm nhưng không được vì em chưa từng học qua về kiến thức VBA hay Marco.
Anh/Chị pro Excel trong diễn đàn, nếu có đọc qua bài viết này xin chỉ dùm em với ạ!
Trân trọng cảm ơn!

 

[viehoai]

Em đang phải làm Quyết toán dự án.(file đinh kèm) nên có ý tưởng là muốn tạo 1 combobox chứa danh sách các hạng mục công trình (tại sheet 1), mà khi chọn 1 hạng mục bất kỳ nào trong danh sách đó thì chỉ hiện các công tác thuộc hạng mục công trình đó vào sheet1. Em đã tìm hiểu trên diễn đàn và thử làm nhưng không được vì em chưa từng học qua về kiến thức VBA hay Marco.
Anh/Chị pro Excel trong diễn đàn, nếu có đọc qua bài viết này xin chỉ dùm em với ạ!
Trân trọng cảm ơn!

cái này dùng Validation tiện hơn. Bạn xem file nhé

 

[hungnh89]

Mình cảm ơn bạn Viehoai nhiều nha. Nhưng mình thấy nếu dùng Validation như vầy thì nó chỉ hiện thị giá trị của sheet gốc thôi hả bạn? Liệu có bê được cả dòng cột sang sheet1 không bạn?

 

[viehoai]

Mình cảm ơn bạn Viehoai nhiều nha. Nhưng mình thấy nếu dùng Validation như vầy thì nó chỉ hiện thị giá trị của sheet gốc thôi hả bạn? Liệu có bê được cả dòng cột sang sheet1 không bạn?

Mình không hiểu ý bạn?

 

[hungnh89]

Nghĩa là tại sheet1 giá trị lọc được, không được định dạng sẵn (về font chữ,...) như ở sheet "Công trình".Liệu nếu thực hiện lọc dữ liệu theo hạng mục công trình tại sheet "Công trình" thì có được không bạn?

 

[viehoai]

Nghĩa là tại sheet1 giá trị lọc được, không được định dạng sẵn (về font chữ,...) như ở sheet "Công trình".Liệu nếu thực hiện lọc dữ liệu theo hạng mục công trình tại sheet "Công trình" thì có được không bạn?

Ý bạn như thế này phải không?
Nếu bạn cần định dạng số "0.000" thì thêm code sau cuối thủ tục

Sheet1.Range("N8").Resize(s, 6).NumberFormat = "#,##0"

 

[hungnh89]

Đúng rồi bạn ạ, nhưng font chữ có chỉnh về time new roman cỡ 11 được không bạn?

 

[viehoai]

Đúng rồi bạn ạ, nhưng font chữ có chỉnh về time new roman cỡ 11 được không bạn?

Bạn tải lại file bài #6 nhé

 

[rokimadaza]

thank ...nhe...biết thêm nhiều điều

 

[hungnh89]

Mình đã mày mò và làm ra được cái file sau (đính kèm). Bạn viehoai xem giúp mình còn chỉnh sửa j để cho thủ tục hoàn thiện hơn. Vì mình chạy thấy nó chậm quá. Với lại bạn có thể chỉnh các dòng chi tiết khối lượng thành kiểu chữ nghiêng được không (Vd: dòng "3 bểx0.5m/bể: 3x0.005 = 0.015" - những dòng này không có số thứ tự trên bảng ). Thank kiu!!!

 

[viehoai]

Mình đã mày mò và làm ra được cái file sau (đính kèm). Bạn viehoai xem giúp mình còn chỉnh sửa j để cho thủ tục hoàn thiện hơn. Vì mình chạy thấy nó chậm quá. Với lại bạn có thể chỉnh các dòng chi tiết khối lượng thành kiểu chữ nghiêng được không (Vd: dòng "3 bểx0.5m/bể: 3x0.005 = 0.015" - những dòng này không có số thứ tự trên bảng ). Thank kiu!!!

Nếu vậy đổi cách khác luôn

 

[hungnh89]

cảm ơn banh viehoai đã giúp mình nhiu nhiu...!

 

[hungnh89]

Bạn viehoai giúp mình chỉnh sửa lại đoạn code cho Module4 được không? Minh chạy cửa hàng 30,33,34 VBA nó báo lỗi.

 

[viehoai]

Bạn viehoai giúp mình chỉnh sửa lại đoạn code cho Module4 được không? Minh chạy cửa hàng 30,33,34 VBA nó báo lỗi.

Đổi câu lệnh

Arr = Sheet11.Range("A8:J8" & Sheet11.[s65500].End(3).Row).Value

Thành

Arr = Sheet11.Range("A8:J" & Sheet11.[B65500].End(3).Row).Value

thử xem sao nhé
-------------
Nói thêm: Sao bạn không lấy "TỔNG cỘNG" cột B để xác định hàng cuối vùng dữ liệu để rồi thêm dấu "." ở cột A? (cái này không nên mỗi khi đã sử dụng VBA)

 

[hungnh89]

hi, mình đã đổi lại theo đoạn code và ý kiến của bạn và đã chạy thành công. Cảm ơn bạn nhiu nha.!!!