Nhờ A/C Giúp đỡ về Tự Đông Loc và Lấy Dữ Liệu Theo Cấu Trúc Cây [Dùng Code VBA] (1 người xem)

[subasatran]

Chào Anh Chị,
Hiện tại em gặp một vấn đề trong công việc khi làm báo cáo.
Rất mong A/C nếu có thể vui lòng giúp em với.\
Hiện tại muốn làm một form nhập text để thể hiện các khu vực mà một cấp quản lý bào cáo.
Em có một sheet data về cấu trúc trong báo cáo(sheet Tree).
Sheet Code là mô hình báo cáo của các cấp quản lý và chứa code mỗi người quản ly.
Em có một form text để nhập code người quản lý.
Sau khi nhập code người quản lý nào thì bên dưới sẽ thể hiện tất cả người, khu vực báo cáo cho cấp quản lý này.
Nếu anh chị nào biết về code thì vui lòng giúp em đoạn code mà thể hiện như trong hình em em.
View attachment 146992
Em có ghi ví dụ trong file đính kèm. Rất mong mọi người giúp đỡ. Cám ơn mọi người.

 

[subasatran]

@hpkhuong : Thật tuyệt vời . Cảm ơn anh rất nhiều.
Cho em hỏi thêm một tí phát sinh nữa. Anh giúp dùm em luôn nhé.
Lúc đầu em có để điều kiện lọc là "Nếu cột MIS_LOC_CD có giá trị NULL thì sẽ lấy giá trị của cột SUB_MGR_SM_CD".
Nhưng bây giờ phát sinh thêm " Nếu cả 2 cột MIS_LOC_CD và cột SUB_MGR_SM_CD đều có giá trị NULL thì bỏ qua dòng này, không cho hiện lên trên báo cáo".
- Nếu em chỉ muốn hiện lên một Cột cần lấy(file ví dụ) vào ở Cột B của workbook thì làm thế nào ?
Phiền anh giúp em thêm tí này nữa. Cám ơn anh
Em không biết về code nên không biết phải sửa trong code thế nào.
View attachment 147006
Thấy mấy a/c code hay quá. chắc phải tìm trung tâm và thầy để học hỏi về code thôi

 

[subasatran]

Vâng,
Cảm ơn anh.
Bây giờ thì quá tuyệt rồi.
Sau khi anh đổi cột em chỉnh lại "Range("B10").Resize(i, 5) = kq" thành "Range("B10").Resize(i, 1) = kq" thì đúng như những gì em nhờ anh giúp đỡ rồi. Cảm ơn anh

 

[subasatran]

Chỉnh vậy nó dán kết quả có 1 cột .........còn 4 cột phía sau không lấy ah???

Em chỉ cần lấy một cột thôi anh,
Em để mấy cột kia để mọi người dễ hình dung để giúp đỡ em thôi. Cảm ơn anh nhiều.

 

[subasatran]

Dear mọi người,
Hôm trước em có nhờ mọi người viết cho em một đoạn code để lấy cấp báo cáo bên dưới.
Kết quả khi lấy các cấp báo cáo cao thì đã rất ok.
Nhưng với cấp báo cáo nhỏ nhất thì không lấy được.
Nhờ mọi người giúp tiếp em một chút nữa để lấy được cấp báo cáo này.
Em có ví dụ (ví dụ 2) trong file đính kèm.
Khi em nhập vào các code của cột SM(Level 4) của sheet Code.
Thì bên dưới sẽ thể hiện cấp báo cáo này thôi.
Ví dụ nhập HNA01 thì bên dưới thể hiện [TABLE="width: 557"]
[TR]
[TD]MGR_SM_CD[/TD]
[TD]MIS_LOC_CD[/TD]
[TD]SUB_MGR_SM_CD[/TD]
[TD]RPT_LEVEL[/TD]
[TD]Cột cần lấy[/TD]
[/TR]
[TR]
[TD]HNA01[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[/TABLE]
Rất cám ơn mọi người.

 

[subasatran]

Hi a hpkhuong,
Cái cột Level 4 thì tương ứng với cái cột MIS_LOC_CD bên sheet Tree.
Ý em như thế này.
Tại ô C3.
+ Nếu nhập các code của cột MGR_SM_CD ở sheet Tree thì hiển thị ra các code cập dưới của nó(cái này anh đã viết ok rồi)
+ Nếu nhập code của cột MIS_LOC_CD ở sheet Tree thì hiện ra code này(đây là cấp quản lý thấp nhất)
Em muốn nhờ anh sửa thêm ở trường hợp 2. nhập code của cột MIS_LOC_CD.
(Nói các khác là nếu nhập code ở cộtMIS_LOC_CD thì bên dưới hiện ra chính mã đó luôn)
Cám ơn anh nhiều

 

[subasatran]

Hi anh hpkhuong,
Cho em hỏi thêm một câu nữa thôi.
Khi nhập code ở cột MIS_LOC_CD thì trong cột này có nhiều code trùng nhau. Bây giờ muốn lấy một code duy nhật mà RPT_LEVEL =1 thì phải sửa lại code thế nào.
View attachment 147679
Xin lỗi vì đã phiền anh nhiều quá.

Cám ơn anh.

 

[haog]

Bài 11 của

If i Then
...

Góp ý nhỏ cho câu lệnh
If i Then
Range("B10:F65000").ClearContents
Range("B10").Resize(i, 1) = kq
Else
Range("B10:F65000").ClearContents
End If

nên thay là
Range("B10:F65000").ClearContents
If i Then Range("B10").Resize(i, 1) = kq

Hỏi thêm: Làm sao để có các câu lệnh thụt đầu dòng vậy???