Lọc dữ liệu sang Sheets mới và tách dữ liệu thành các hàng tương ứng (1 người xem)

baquang1984 · 5/12/14

Em có file dữ liệu về cấp giấy chứng nhận và gộp nhiều thửa vào với nhau. Công việc của em là in thành biểu so sánh về diện tích mới và cũ xem bị chênh lệch và biến động thế nào.
Yêu cầu của chương trình là:
- Tạo một list các số chứng minh thư tương ứng với các chủ quản lý ở Cột So_CMND bên Sheets"DS_Capdoi" đó là điều kiện để lọc dữ liệu từ Sheets"DS_Capdoi" sang Sheets"KetQua"
- Lọc dữ liệu: Điều kiện là khi ta chọn trong list số CMND thì thông tin về chủ quản lý đó được lọc sang Sheets"KetQua" theo các cột tương ứng như sau
+ Cột STT sẽ hiển thị số thứ tự các thửa đất được tìm thấy bên Sheets"DS_Capdoi" từ 1,2,....n
+ Cột Họ và tên sẽ hiển thị tên Chủ quản lý tương ứng với số Chứng minh nhân dân khi ta chọn trong list điều kiện lọc dữ liệu được lấy ở cột A Sheets"DS_Capdoi" ở đây em lấy ví dụ là ông "Bàn Văn Huân"
+ Cột Địa chỉ sẽ hiển thị Địa chỉ Chủ quản lý tương ứng với số Chứng minh nhân dân khi ta chọn trong list điều kiện lọc dữ liệu được lấy ở cột E Sheets"DS_Capdoi"
+ Các cột trong mục Thông tin thửa đất mới được lấy từ theo thứ tự (Tờ số, Thửa số, Diện tích, Mục đích sử dụng) sẽ được lấy từ các cột Tờ số = Cột H, Thửa số = Cột G, Diện tích = Cột J, Mục đích sử dụng = Cột I
+ Các cột trong mục THÔNG TIN THỬA ĐẤT TRÊN GCN CŨ được điền với điều kiện như sau:
- Cột Thửa số: Nếu ở cột K Sheets"DS_Capdoi" xuất hiện các thửa có cấu trúc là 37+38 hoặc 1+2+3+.. và ghi ra như biểu theo file gửi kèm và đếm xem có bao nhiêu thửa. VD có 2 thửa là 37 và 38 đếm là 2
Cái này hơi khó giải thích em có file đính kèm ạ theo Sheets"KetQua"
- Cột Tờ số: sẽ lấy dữ liệu ở cột L Sheets"DS_Capdoi" và đếm xem có bao nhiêu tờ VD thửa 37 và 38 thuộc một tờ 27 và Đếm được là 1
- Cột diện tích sẽ lấy dữ liệu ở cột N Sheets"DS_Capdoi" và tính tổng diện tích của các thửa đó VD tổng diện tích của 2 thửa 37 và 38 là 324
- Cột Mục đích SD lấy dữ liệu ở cột M Sheets"DS_Capdoi" VD 2 thửa này có MDSD là LUC
- Cột Số phát hành lấy dữ liệu ở cột T Sheets"DS_Capdoi" VD 2 thửa này có số phát hành là AM149708
- Cột Số vào sổ lấy dữ liệu từ cột U Sheets"DS_Capdoi" VD 2 thửa này có số vào sổ là H00549
- Cột địa chỉ thửa đất (Xứ đồng, thôn) lấy dữ liệu từ 2 cột là E và F dữ liệ được điền tuần tự như sau Điền dữ liệu của cột F trước nếu cột F không có dữ liệu thì điền dữ liệu ở cột E.
- Cột Thời hạn sử dụng lấy dữ liệu từ cột W Sheets"DS_Capdoi" VD 2 thửa này có thời hạn sử dụng Đến tháng 12/2015

- Cột Thửa số: Nếu ở cột K Sheets"DS_Capdoi" xuất hiện các thửa có cấu trúc là 30+31,45+46 hoặc 1+2+3,10+11+12,50+.. và ghi ra như biểu theo file gửi kèm và đếm xem có bao nhiêu thửa. VD có 4 thửa là 30 31 45 46 đếm là 4
Cái này hơi khó giải thích em có file đính kèm ạ theo Sheets"KetQua"
- Cột Tờ số: sẽ lấy dữ liệu ở cột L Sheets"DS_Capdoi" và đếm xem có bao nhiêu tờ VD thửa 30 31 45 46 thuộc một tờ 27 và Đếm được là 1
- Cột diện tích sẽ lấy dữ liệu ở cột N Sheets"DS_Capdoi" và tính tổng diện tích của các thửa đó VD tổng diện tích của 4 thửa 30 31 45 46 là 1707
- Cột Mục đích SD lấy dữ liệu ở cột M Sheets"DS_Capdoi" VD 2 thửa này có MDSD là CLN,BHK trong đó 2 thửa 30 31 có mã MDSD là CLN còn 2 thửa 45 46 có mã MDSD là BHK Phân tách giữa các đối tượng khác nhau là dấu "," còn trong cùng đối tượng là dấu "+" VD 30+31 = CLN còn 45+46 = BHK
- Cột Số phát hành lấy dữ liệu ở cột T Sheets"DS_Capdoi" VD 4 thửa này có số phát hành là AM149706,AM149710 trong đó 30+31 = AM149706 còn 45+46 = AM149710
- Cột Số vào sổ lấy dữ liệu từ cột U Sheets"DS_Capdoi" VD 2 thửa này có số vào sổ là H00547,H00587 trong đó 30+31 = H00547 còn 45+46 = H00587
- Cột địa chỉ thửa đất (Xứ đồng, thôn) lấy dữ liệu từ 2 cột là E và F dữ liệ được điền tuần tự như sau Điền dữ liệu của cột F trước nếu cột F không có dữ liệu thì điền dữ liệu ở cột E.
- Cột Thời hạn sử dụng lấy dữ liệu từ cột W Sheets"DS_Capdoi" VD 4 thửa này có thời hạn sử dụng Đến tháng 12/2045,Đến tháng 12/2015 trong đó 30+31 = Đến tháng 12/2045 còn 45+46 = Đến tháng 12/2015
Chương trình của em giải thích hơi dài và mong được sự giúp đỡ của các thành viên trên diễn đàn
Em cảm ơn các thành viên nhiều ạ!

Quang_Hải · 6/12/14

Bài này đơn giản thôi nhưng khi nào xuất viện mình viết cho. Chắc cả tháng nữa. Vì đọc cái đoạn bạn giải thích mình nhập viện luôn rồi.

baquang1984 · 6/12/14

quanghai1969 đã viết:
Bài này đơn giản thôi nhưng khi nào xuất viện mình viết cho. Chắc cả tháng nữa. Vì đọc cái đoạn bạn giải thích mình nhập viện luôn rồi.

Anh Hải ơi bây giờ em biết giải thích thế nào cho dễ hiểu được ạ chỉ còn cách làm VD một hộ theo file đính kèm anh ạ. Còn công việc chủ yếu là lọc dữ liệu và tách các Cell có dữ liệu kiểu 1+2+3 hoặc 2+3,4+5 ra các hàng với các mã tương ứng anh ạ
[TABLE="class: grid, width: 1152"]
[TR]
[TD]1[/TD]
[TD]Bàn Văn Huân[/TD]
[TD]Thôn Khuổi Piấu[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]37[/TD]
[TD="align: right"]112[/TD]
[TD]LUC[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]324[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]37[/TD]
[TD="align: right"]114[/TD]
[TD]LUC[/TD]
[TD]AM149708[/TD]
[TD]H00549[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2015[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]38[/TD]
[TD="align: right"]210[/TD]
[TD]LUC[/TD]
[TD]AM149708[/TD]
[TD]H00549[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2015[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Bàn Văn Huân[/TD]
[TD]Thôn Khuổi Piấu[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]29[/TD]
[TD="align: right"]497,8[/TD]
[TD]BHK[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]29[/TD]
[TD="align: right"]512[/TD]
[TD]BHK[/TD]
[TD]AM149706[/TD]
[TD]H00547[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2015[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]Bàn Văn Huân[/TD]
[TD]Thôn Khuổi Piấu[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]535,2[/TD]
[TD]LUC[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]578[/TD]
[TD]LUC[/TD]
[TD]AM149708[/TD]
[TD]H00549[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2015[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]Bàn Văn Huân[/TD]
[TD]Thôn Khuổi Piấu[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]393,3[/TD]
[TD]ONT[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]403[/TD]
[TD]ONT[/TD]
[TD]AM149706[/TD]
[TD]H00547[/TD]
[TD]Thôn Khuổi Piấu[/TD]
[TD]Lâu dài[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]Bàn Văn Huân[/TD]
[TD]Thôn Khuổi Piấu[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]611[/TD]
[TD]CLN[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]1707[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]611[/TD]
[TD]CLN[/TD]
[TD]AM149706[/TD]
[TD]H00547[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2045[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="align: right"]27[/TD]
[TD="align: right"]31[/TD]
[TD="align: right"]601[/TD]
[TD]CLN[/TD]
[TD]AM149706[/TD]
[TD]H00547[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2045[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]45[/TD]
[TD="align: right"]250[/TD]
[TD]BHK[/TD]
[TD]AM149710[/TD]
[TD]H00587[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2015[/TD]
[/TR]
[TR]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]46[/TD]
[TD="align: right"]245[/TD]
[TD]BHK[/TD]
[TD]AM149710[/TD]
[TD]H00587[/TD]
[TD]Đồng Khuổi Piấu[/TD]
[TD]Đến tháng 12/2015[/TD]
[/TR]
[/TABLE]

Ở đây em lấy VD nhà ông Bàn Văn Huân
Có 2 kiểu là:
1, là 37+38 thì được thể hiện như những hàng em bôi màu xanh đậm
2, là 30+31,45+46 thì được thể hiện như những hàng em bôi mà vàng ạ và ở đây phân tách giữa các mã số phát hành là dấu "," còn trong một mã phát hành là dấu "+"
Với kiểu tổng hợp biểu kiểu này em khó giải thích điều muốn nói quá mong anh và các thành viên thông cảm
Mong được anh và các thành viên của diễn đàn giúp đỡ ạ

Quang_Hải · 6/12/14

baquang1984 đã viết:
Anh Hải ơi bây giờ em biết giải thích thế nào cho dễ hiểu được ạ chỉ còn cách làm VD một hộ theo file đính kèm anh ạ. Còn công việc chủ yếu là lọc dữ liệu và tách các Cell có dữ liệu kiểu 1+2+3 hoặc 2+3,4+5 ra các hàng với các mã tương ứng anh ạ

Mấy bài này anh Ba Tê với anh Be09 siêu lắm. Mà dạo này anh Ba nhà mình đi đâu mất dạng. Anh Ba Tê ơi vô mần bài này dùm cái.

PS: Thấy anh Be09 đang lấp ló kìa...

baquang1984 · 6/12/14

quanghai1969 đã viết:
Mấy bài này anh Ba Tê với anh Be09 siêu lắm. Mà dạo này anh Ba nhà mình đi đâu mất dạng. Anh Ba Tê ơi vô mần bài này dùm cái.

Hiiii mong được các anh giúp ạ
Em cảm ơn mọi người nhiều

baquang1984 · 6/12/14

quanghai1969 đã viết:
Mấy bài này anh Ba Tê với anh Be09 siêu lắm. Mà dạo này anh Ba nhà mình đi đâu mất dạng. Anh Ba Tê ơi vô mần bài này dùm cái.

PS: Thấy anh Be09 đang lấp ló kìa...

Anh Ba, Be09, quanghai1969 và các thành viên ơi giúp em vụ này đi ạ nếu trong giải thích có gì chưa hợp lý mong các anh cho ý kiến để em trao đổi được không ạ
Em cảm ơn các thành viên nhiều ạ!

Quang_Hải · 6/12/14

baquang1984 đã viết:
Anh Ba, Be09, quanghai1969 và các thành viên ơi giúp em vụ này đi ạ nếu trong giải thích có gì chưa hợp lý mong các anh cho ý kiến để em trao đổi được không ạ
Em cảm ơn các thành viên nhiều ạ!

Sheet kết quả tạm bạn làm thủ công chính xác cho tất cả các tên xem thế nào.
Tự nhiên lòi ra 27 27 28 28 chẳng biết ở đâu ra số 28 của mục số 5

Ba Tê · 6/12/14

quanghai1969 đã viết:
Mấy bài này anh Ba Tê với anh Be09 siêu lắm. Mà dạo này anh Ba nhà mình đi đâu mất dạng. Anh Ba Tê ơi vô mần bài này dùm cái.

PS: Thấy anh Be09 đang lấp ló kìa...

Đừng "gắp lửa bỏ tay người" chứ bồ.
Những cái luxbu khi nào "chưa đủ xị", không ngủ được, ráng "banh con mắt" ra mà đọc , ráng "đập cái miểng dừa" mà hiểu. Hên xui!
Sao lại "ngạo" tui là "siêu".
Nói thiệt, nhiều bài người hỏi cứ giải thích "cho mình hiểu". Thất nghiệp lắm mới xem thôi.
Vây nhé bồ. Mai mốt hổng làm thì đừng xúi người khác gõ cửa nhà người khác.
Híc! Hà! Khà! Uống thuốc "ngu" rồi đi ngủ đây.
Nếu có rảnh thì Hải tiếp cài bài "cù nhầy" này dùm.
Chân thành Cảm ơn. (Sau khi kẻ khung, tô màu, in đậm, chữ nghiêng ...)
Ha ha, hà hà, há há. Ẹc...
http://www.giaiphapexcel.com/forum/...et-tổng-hợp-dựa-vào-mã-số&p=621112#post621112
------------
Uả! Lúc này Hải nhà ta "sinh lực" quá ta.

baquang1984 · 6/12/14

Ba Tê đã viết:
Đừng "gắp lửa bỏ tay người" chứ bồ.
Những cái luxbu khi nào "chưa đủ xị", không ngủ được, ráng "banh con mắt" ra mà đọc , ráng "đập cái miểng dừa" mà hiểu. Hên xui!
Sao lại "ngạo" tui là "siêu".
Nói thiệt, nhiều bài người hỏi cứ giải thích "cho mình hiểu". Thất nghiệp lắm mới xem thôi.
Vây nhé bồ. Mai mốt hổng làm thì đừng xúi người khác gõ cửa nhà người khác.
Híc! Hà! Khà! Uống thuốc "ngu" rồi đi ngủ đây.
Nếu có rảnh thì Hải tiếp cài bài "cù nhầy" này dùm.
Chân thành Cảm ơn. (Sau khi kẻ khung, tô màu, in đậm, chữ nghiêng ...)
Ha ha, hà hà, há há. Ẹc...
http://www.giaiphapexcel.com/forum/...et-tổng-hợp-dựa-vào-mã-số&p=621112#post621112
------------
Uả! Lúc này Hải nhà ta "sinh lực" quá ta.

Mong được anh giúp chương trình này, với những chương trình về thể loại này em cũng đã nhờ anh và anh đã giải quyết giúp em

baquang1984 · 6/12/14

quanghai1969 đã viết:
Sheet kết quả tạm bạn làm thủ công chính xác cho tất cả các tên xem thế nào.
Tự nhiên lòi ra 27 27 28 28 chẳng biết ở đâu ra số 28 của mục số 5

Em xin lỗi nhé em nhầm mất mục 5 chỉ có 27 27 27 27 thôi anh ơi
Em gửi anh quanghai1969 và các thành viên em đã làm ra các biểu kết quả tạm cho tất cả các trường hợp
Mong anh và các thành viên giúp đỡ ạ
Em cảm ơn nhiều!

Quang_Hải · 7/12/14

baquang1984 đã viết:
Em xin lỗi nhé em nhầm mất mục 5 chỉ có 27 27 27 27 thôi anh ơi
Em gửi anh quanghai1969 và các thành viên em đã làm ra các biểu kết quả tạm cho tất cả các trường hợp
Mong anh và các thành viên giúp đỡ ạ
Em cảm ơn nhiều!

Viết được 98% rồi. Khi nào rảnh viết tiếp. Bạn xài tạm nhiêu đây đi nhé.
Mục 5 lỡ viết thành 27 27 28 28 rồi, khi nào hứng thì sửa lại sau.

baquang1984 · 7/12/14

quanghai1969 đã viết:
Viết được 98% rồi. Khi nào rảnh viết tiếp. Bạn xài tạm nhiêu đây đi nhé.
Mục 5 lỡ viết thành 27 27 28 28 rồi, khi nào hứng thì sửa lại sau.

Em cảm ơn anh quanghai1969, em mong anh lúc nào cũng có hứng và rảnh để giúp đỡ để chương trình hoàn thiền, để em có thể vận dụng vào công việc của mình ạ

baquang1984 · 7/12/14

quanghai1969 đã viết:
Viết được 98% rồi. Khi nào rảnh viết tiếp. Bạn xài tạm nhiêu đây đi nhé.
Mục 5 lỡ viết thành 27 27 28 28 rồi, khi nào hứng thì sửa lại sau.

- Tạo một list các số chứng minh thư tương ứng với các chủ quản lý ở Cột So_CMND bên Sheets"DS_Capdoi" đó là điều kiện để lọc dữ liệu từ Sheets"DS_Capdoi" sang Sheets"KetQua"

Anh Hải ơi chương trình chay nhưng mà yêu cầu là cần phải có một list số CMND để khi ta chọn vào số CMND nào thì lọc thông tin của số CMND đó anh ạ. Em lam thêm trong file đính kèm em gửi lại anh ạ. Mong anh xem giúp và giúp em chường trình này nhé
Cảm ơn anh nhiều ạ!

Quang_Hải · 7/12/14

baquang1984 đã viết:
Anh Hải ơi chương trình chay nhưng mà yêu cầu là cần phải có một list số CMND để khi ta chọn vào số CMND nào thì lọc thông tin của số CMND đó anh ạ. Em lam thêm trong file đính kèm em gửi lại anh ạ. Mong anh xem giúp và giúp em chường trình này nhé
Cảm ơn anh nhiều ạ!

Thôi nhé mình bị knock out rồi nhé. Nhiêu đó thôi, không chơi nữa. Ráng đợi cách anh em khác nhé. Nói thiệt là không đủ can đảm tải file luôn đừng nói chi sửa code.

baquang1984 · 7/12/14

quanghai1969 đã viết:
Thôi nhé mình bị knock out rồi nhé. Nhiêu đó thôi, không chơi nữa. Ráng đợi cách anh em khác nhé. Nói thiệt là không đủ can đảm tải file luôn đừng nói chi sửa code.

Anh quanghai1969 ơi giúp em chút đi hicccccc

baquang1984 · 7/12/14

quanghai1969 đã viết:
Thôi nhé mình bị knock out rồi nhé. Nhiêu đó thôi, không chơi nữa. Ráng đợi cách anh em khác nhé. Nói thiệt là không đủ can đảm tải file luôn đừng nói chi sửa code.

Anh Hải ạ đối với chương trình anh viết đã chạy tuy nhiên có vấn đề là đối với các mã có dấu phân tách là dấu "," thì ở cột Mục đích SD bên phần THÔNG TIN THỬA ĐẤT TRÊN GCN CŨ thì lại không chạy anh ạ
[TABLE="class: grid, width: 222"]
[TR]
[TD="align: center"]Mục đích
SD[/TD]
[TD="align: center"]Tờ số[/TD]
[TD="align: center"]Thửa số[/TD]
[TD="align: center"]diện tích m2[/TD]
[TD="align: center"]Mục đích
SD[/TD]
[/TR]
[TR]
[TD="align: center"]9[/TD]
[TD="align: center"]12[/TD]
[TD="align: center"]11[/TD]
[TD="align: center"]14[/TD]
[TD="align: center"]13[/TD]
[/TR]
[TR]
[TD="align: center"]LUC[/TD]
[TD="align: center"]1[/TD]
[TD="align: center"]2[/TD]
[TD="align: center"]324[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"]27[/TD]
[TD="align: center"]37[/TD]
[TD="align: center"]114[/TD]
[TD="align: center"]LUC[/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"]27[/TD]
[TD="align: center"]38[/TD]
[TD="align: center"]210[/TD]
[TD="align: center"]LUC[/TD]
[/TR]
[TR]
[TD="align: center"]BHK[/TD]
[TD="align: center"]27[/TD]
[TD="align: center"]29[/TD]
[TD="align: center"]512[/TD]
[TD="align: center"]BHK[/TD]
[/TR]
[TR]
[TD="align: center"]LUC[/TD]
[TD="align: center"]27[/TD]
[TD="align: center"]28[/TD]
[TD="align: center"]578[/TD]
[TD="align: center"]LUC[/TD]
[/TR]
[TR]
[TD="align: center"]ONT[/TD]
[TD="align: center"]27[/TD]
[TD="align: center"]23[/TD]
[TD="align: center"]403[/TD]
[TD="align: center"]ONT[/TD]
[/TR]
[TR]
[TD="align: center"]CLN[/TD]
[TD="align: center"]2[/TD]
[TD="align: center"]4[/TD]
[TD="align: center"]1707[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"]27[/TD]
[TD="align: center"]30[/TD]
[TD="align: center"]611[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"]27[/TD]
[TD="align: center"]31[/TD]
[TD="align: center"]601[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"]28[/TD]
[TD="align: center"]45[/TD]
[TD="align: center"]250[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"]28[/TD]
[TD="align: center"]46[/TD]
[TD="align: center"]245[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]LUC[/TD]
[TD="align: center"]32[/TD]
[TD="align: center"]24[/TD]
[TD="align: center"]98[/TD]
[TD="align: center"]LUC[/TD]
[/TR]
[TR]
[TD="align: center"]LUC[/TD]
[TD="align: center"]32[/TD]
[TD="align: center"]23[/TD]
[TD="align: center"]93[/TD]
[TD="align: center"]LUC[/TD]
[/TR]
[TR]
[TD="align: center"]LUC[/TD]
[TD="align: center"]32[/TD]
[TD="align: center"]25[/TD]
[TD="align: center"]265[/TD]
[TD="align: center"]LUC[/TD]
[/TR]
[TR]
[TD="align: center"]LUC[/TD]
[TD="align: center"]32[/TD]
[TD="align: center"]3[/TD]
[TD="align: center"]1005[/TD]
[TD="align: center"]LUC[/TD]
[/TR]
[/TABLE]

Đúng của chương trình là
[TABLE="class: grid, width: 146"]
[TR]
[TD]Tờ số[/TD]
[TD]Thửa số[/TD]
[TD]diện tích m2[/TD]
[TD]Mục đích
SD[/TD]
[/TR]
[TR]
[TD]12[/TD]
[TD]11[/TD]
[TD]14[/TD]
[TD]13[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]324[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]37[/TD]
[TD="align: right"]114[/TD]
[TD]LUC[/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]38[/TD]
[TD="align: right"]210[/TD]
[TD]LUC[/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]29[/TD]
[TD="align: right"]512[/TD]
[TD]BHK[/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]28[/TD]
[TD="align: right"]578[/TD]
[TD]LUC[/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]403[/TD]
[TD]ONT[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]1707[/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]611[/TD]
[TD]CLN[/TD]
[/TR]
[TR]
[TD="align: right"]27[/TD]
[TD="align: right"]31[/TD]
[TD="align: right"]601[/TD]
[TD]CLN[/TD]
[/TR]
[TR]
[TD="align: right"]28[/TD]
[TD="align: right"]45[/TD]
[TD="align: right"]250[/TD]
[TD]BHK[/TD]
[/TR]
[TR]
[TD="align: right"]28[/TD]
[TD="align: right"]46[/TD]
[TD="align: right"]245[/TD]
[TD]BHK[/TD]
[/TR]
[TR]
[TD="align: right"]32[/TD]
[TD="align: right"]24[/TD]
[TD="align: right"]98[/TD]
[TD]LUC[/TD]
[/TR]
[TR]
[TD="align: right"]32[/TD]
[TD="align: right"]23[/TD]
[TD="align: right"]93[/TD]
[TD]LUC[/TD]
[/TR]
[TR]
[TD="align: right"]32[/TD]
[TD="align: right"]25[/TD]
[TD="align: right"]265[/TD]
[TD]LUC[/TD]
[/TR]
[TR]
[TD="align: right"]32[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]1005[/TD]
[TD]LUC[/TD]
[/TR]
[/TABLE]

Mong được anh và các thành viên trên diễn đàn giúp đỡ ạ
Em cảm ơn các thành viên nhiều!
Anh Hải ơi em xử được lỗi trên rồi, mong sao anh rảnh giúp em cái list để chọn lọc với nhé cảm ơn anh

Quang_Hải · 7/12/14

Đương nhiên là không đủ dữ liệu vì mình đã nói mới viết code 98% mà. Phần còn lại để cho bạn có cái mà nghiên cứu vì mình ... bí rồi.

baquang1984 · 7/12/14

quanghai1969 đã viết:
Viết được 98% rồi. Khi nào rảnh viết tiếp. Bạn xài tạm nhiêu đây đi nhé.
Mục 5 lỡ viết thành 27 27 28 28 rồi, khi nào hứng thì sửa lại sau.

Em cũng sửa được 28 28 rồi anh ạ
Cảm ơn anh!

baquang1984 · 7/12/14

quanghai1969 đã viết:
Đương nhiên là không đủ dữ liệu vì mình đã nói mới viết code 98% mà. Phần còn lại để cho bạn có cái mà nghiên cứu vì mình ... bí rồi.

Em đã nghiên cứu đủ cách để đưa lựa chọn theo list vào mà không được anh ạ vì em chưa hiểu được hết Code của anh. Do vậy em đành phải làm một Sheets trung gian anh ạ và in thủ công từng đối tượng một.
Nếu anh rảnh giúp em nốt cái list lựa chọn lọc
Thấy có cả anh Ba rồi chắc vụ này sẽ được anh Ba giúp tiếp mong là như vậy

baquang1984 · 8/12/14

Ba Tê đã viết:
Đừng "gắp lửa bỏ tay người" chứ bồ.
Những cái luxbu khi nào "chưa đủ xị", không ngủ được, ráng "banh con mắt" ra mà đọc , ráng "đập cái miểng dừa" mà hiểu. Hên xui!
Sao lại "ngạo" tui là "siêu".
Nói thiệt, nhiều bài người hỏi cứ giải thích "cho mình hiểu". Thất nghiệp lắm mới xem thôi.
Vây nhé bồ. Mai mốt hổng làm thì đừng xúi người khác gõ cửa nhà người khác.
Híc! Hà! Khà! Uống thuốc "ngu" rồi đi ngủ đây.
Nếu có rảnh thì Hải tiếp cài bài "cù nhầy" này dùm.
Chân thành Cảm ơn. (Sau khi kẻ khung, tô màu, in đậm, chữ nghiêng ...)
Ha ha, hà hà, há há. Ẹc...
http://www.giaiphapexcel.com/forum/...et-tổng-hợp-dựa-vào-mã-số&p=621112#post621112
------------
Uả! Lúc này Hải nhà ta "sinh lực" quá ta.

Các anh ơi giúp em chương chình này đi ạ, anh Hải đã giúp em chạy được ra kết quả tuy nhiên
chương trình chưa có điều kiện lọc là có một list danh sách CMND. Em đã tìm hiểu và vận dụng những Code được các thành viên trên diễn đàn giúp nhưng mà không được. Do em không có kiến thức về VBA nên đành bó tay chỉ còn hy vọng vào các thành viên của diễn đàn giúp thôi ạ.
Mong được các thành viên chung tay giúp đỡ ạ!

Quang_Hải · 8/12/14

baquang1984 đã viết:
Các anh ơi giúp em chương chình này đi ạ, anh Hải đã giúp em chạy được ra kết quả tuy nhiên
chương trình chưa có điều kiện lọc là có một list danh sách CMND. Em đã tìm hiểu và vận dụng những Code được các thành viên trên diễn đàn giúp nhưng mà không được. Do em không có kiến thức về VBA nên đành bó tay chỉ còn hy vọng vào các thành viên của diễn đàn giúp thôi ạ.
Mong được các thành viên chung tay giúp đỡ ạ!

Dùng 1 sự kiện change tại cái ô có chứa validation

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [R4].Address Then Loc
End Sub

Trong code loc thì gán thêm dk để dò tìm

PHP:

Sub Loc()
Dim data(), dk$
dk = Sheet1.[R4].Value
With Sheet2
   data = .Range("A3", .[W65536].End(3)).Value
End With
For i = 1 To UBound(data)
   If data(i, 2) = dk Then
      'code ở đây
   End If
Next
End Sub

baquang1984 · 8/12/14

quanghai1969 đã viết:
Dùng 1 sự kiện change tại cái ô có chứa validation

PHP:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [R4].Address Then Loc End Sub

Trong code loc thì gán thêm dk để dò tìm

PHP:

Sub Loc() Dim data(), dk$ dk = Sheet1.[R4].Value With Sheet2 data = .Range("A3", .[W65536].End(3)).Value End With For i = 1 To UBound(data) If data(i, 2) = dk Then 'code ở đây End If Next End Sub

Hiccc em cũng làm nhưng mà khai báo mảng không giống với của anh nên nó không chạy anh à hiiiiii
Anh Hải cho em hỏi chút là mảng

data = .Range("A3", .[W65536].End(3)).Value

có giống với cái mảng này

data = .Range("A4", .[O65536].End(3)(2)).Value

không vì nó cùng tên anh à
Cảm ơn anh Hải

Quang_Hải · 8/12/14

baquang1984 đã viết:
Hiccc em cũng làm nhưng mà khai báo mảng không giống với của anh nên nó không chạy anh à hiiiiii
Cảm ơn anh Hải

Code Loc còn nhiều cái phức tạp mà
Thử thêm tẹo vầy coi sao rồi nghiên cứu tiếp

PHP:

Sub Loc()
Dim data(), Res(1 To 65536, 1 To 15), Cot()
Dim dk$, i, x, k, j
Cot = Array(1, 5, 8, 7, 10, 9, 12, 11, 14, 13, 20, 21, 6, 23)
dk = Sheet1.[R4].Value
With Sheet2
   data = .Range("A3", .[W65536].End(3)).Value
End With
For i = 1 To UBound(data)
   If data(i, 2) = dk Then
      x = x + 1
      If InStr(1, data(i, 14), ",") = 0 Then
         If InStr(1, data(i, 14), "+") = 0 Then
            k = k + 1
            Res(k, 1) = x
            For j = 0 To UBound(Cot)
               Res(k, j + 2) = data(i, Cot(j))
            Next
         Else
            k = k + 1
            Res(k, 1) = x
            For j = 0 To 5
               Res(k, j + 2) = data(i, Cot(j))
            Next
         End If
      Else
         'Còn 1 rừng code chỗ này
      End If
   End If
Next
Sheet1.[A4:O1000].ClearContents
Sheet1.[A4].Resize(k, 15) = Res
End Sub

baquang1984 · 8/12/14

quanghai1969 đã viết:

Code Loc còn nhiều cái phức tạp mà
Thử thêm tẹo vầy coi sao rồi nghiên cứu tiếp

PHP:

Sub Loc()
Dim data(), Res(1 To 65536, 1 To 15), Cot()
Dim dk$, i, x, k, j
Cot = Array(1, 5, 8, 7, 10, 9, 12, 11, 14, 13, 20, 21, 6, 23)
dk = Sheet1.[R4].Value
With Sheet2
   data = .Range("A3", .[W65536].End(3)).Value
End With
For i = 1 To UBound(data)
   If data(i, 2) = dk Then
      x = x + 1
      If InStr(1, data(i, 14), ",") = 0 Then
         If InStr(1, data(i, 14), "+") = 0 Then
            k = k + 1
            Res(k, 1) = x
            For j = 0 To UBound(Cot)
               Res(k, j + 2) = data(i, Cot(j))
            Next
         Else
            k = k + 1
            Res(k, 1) = x
            For j = 0 To 5
               Res(k, j + 2) = data(i, Cot(j))
            Next
         End If
      Else
         'Còn 1 rừng code chỗ này
      End If
   End If
Next
Sheet1.[A4:O1000].ClearContents
Sheet1.[A4].Resize(k, 15) = Res
End Sub

Anh Hải ơi em đưa code vào nó chạy không được anh ạ, anh có thể ráp Code vào file đính kèm giúp em được không ạ, để em tự làm chắc là không được anh ạ

Quang_Hải · 8/12/14

baquang1984 đã viết:
Anh Hải ơi em đưa code vào nó chạy không được anh ạ, anh có thể ráp Code vào file đính kèm giúp em được không ạ, để em tự làm chắc là không được anh ạ

Dùng tạm 1 đoạn, coi như món khai vị nha.

baquang1984 · 8/12/14

quanghai1969 đã viết:
Dùng tạm 1 đoạn, coi như món khai vị nha.

Nó đã xử lý là được lọc theo điều kiện chọn các số CMND vậy còn rừng Code để xử lý các thông tin các thửa đất trên giấy chứng nhận cũ đâu rôi anh ơi???
Em gà mơ về Code nên chịu chết anh à

baquang1984 · 8/12/14

quanghai1969 đã viết:
Dùng tạm 1 đoạn, coi như món khai vị nha.

Anh Hải ơi anh rảnh giúp em nốt mon ăn chính đi anh dùng món khai vị xong rùi anh ạ hiccc
Mong anh rành thời gian giúp em tiếp chương trình này ạ
Thanks anh!

Ba Tê · 8/12/14

baquang1984 đã viết:
Em đã nghiên cứu đủ cách để đưa lựa chọn theo list vào mà không được anh ạ vì em chưa hiểu được hết Code của anh. Do vậy em đành phải làm một Sheets trung gian anh ạ và in thủ công từng đối tượng một.
Nếu anh rảnh giúp em nốt cái list lựa chọn lọc
Thấy có cả anh Ba rồi chắc vụ này sẽ được anh Ba giúp tiếp mong là như vậy

Không "dễ ăn" chút nào đâu.
Dữ liệu Excel mà nhập "lộn xà ngầu", mắc phẩy là phẩy, mắc + là +, rồi lại nhập vào, tách ra....
Làm khó nhau chi vậy?
Xem một "đám rừng" này chạy có đúng kết quả không?

PHP:

Sub LuXuBu()
On Error Resume Next
Dim sArr(), dArr(), Cot(), Dtich, SoTo, SoThua, Han, VaoSo
Dim DK As String, I As Long, J As Long, K As Long, N As Long, M As Long
With Sheets("DS_Capdoi")
   sArr = .Range("A3", .[W65536].End(xlUp)).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 15)
With Sheets("Ket Qua")
    DK = .[C1].Value
    Cot = .Range("B2:O2").Value
For I = 1 To UBound(sArr, 1)
    If sArr(I, 2) = DK Then
        If InStr(1, sArr(I, 14), ",") = 0 Then
            K = K + 1
            For J = 1 To 14
               dArr(K, J + 1) = sArr(I, Cot(1, J))
            Next
         Else
            K = K + 1
            For J = 1 To 7
                dArr(K, J + 1) = sArr(I, Cot(1, J))
            Next J
            K = K - 1
            Dtich = Split(sArr(I, 14), ",")
            SoTo = Split(sArr(I, 12), ",")
            SoThua = Split(sArr(I, 11), ",")
            Han = Split(sArr(I, 23), ",")
            VaoSo = Split(sArr(I, 21), ",")
            For N = 0 To UBound(Dtich)
                    K = K + 1
                    dArr(K, 8) = SoTo(N)
                    dArr(K, 9) = SoThua(N)
                    dArr(K, 10) = Dtich(N)
                    For J = 10 To 13
                        dArr(K, J + 1) = sArr(I, Cot(1, J))
                    Next J
                    dArr(K, 13) = VaoSo(N)
                    dArr(K, 15) = Han(N)
                    If dArr(K, 8) = Empty Then dArr(K, 8) = dArr(K - 1, 8)
            Next N
         End If
   End If
Next I
    .[A6:O1000].ClearContents
    .[A6].Resize(K, 15) = dArr
End With
End Sub

PHP:

Sub XuBuLu()
Dim sArr(), dArr(), Dtich, SoThua, DT As Long, Thua As Long
Dim I As Long, J As Long, K As Long, N As Long, STT As Long
sArr = Range([B6], [B65536].End(xlUp)).Offset(, -1).Resize(, 15).Value
ReDim dArr(1 To 1000, 1 To 15)
For I = 1 To UBound(sArr, 1)
    K = K + 1
    If sArr(I, 2) <> Empty Then
        STT = STT + 1
        dArr(K, 1) = STT
    End If
    For J = 2 To 15
        dArr(K, J) = sArr(I, J)
    Next J
    If InStr(1, sArr(I, 9), "+") > 0 Then
        SoThua = Split(sArr(I, 9), "+")
        Dtich = Split(sArr(I, 10), "+")
        dArr(K, 9) = SoThua(0)
        dArr(K, 10) = Dtich(0)
        For N = 1 To UBound(SoThua)
            K = K + 1
            dArr(K, 8) = sArr(I, 8)
            dArr(K, 9) = SoThua(N)
            dArr(K, 10) = Dtich(N)
            For J = 11 To 15
                dArr(K, J) = sArr(I, J)
            Next J
        Next N
    End If
Next I
    [A6:O1000].ClearContents
    [A6].Resize(K, 15) = dArr
End Sub

PHP:

Public Sub ToTiTe()
Application.ScreenUpdating = False
Sheets("DS_Capdoi").Range(Sheets("DS_Capdoi").[B3], Sheets("DS_Capdoi").[B65536].End(xlUp)).Copy
With Sheets("Ket Qua")
    .Range("AA5").PasteSpecial Paste:=xlPasteValues
    .Range(.[AA5], .[AA65536].End(xlUp)).RemoveDuplicates Columns:=1
    .[C1].Select
End With
End Sub

Quang_Hải · 8/12/14

Ba Tê đã viết:
Không "dễ ăn" chút nào đâu.
Dữ liệu Excel mà nhập "lộn xà ngầu", mắc phẩy là phẩy, mắc + là +, rồi lại nhập vào, tách ra....
Làm khó nhau chi vậy?

Chắc là anh Ba Tê muốn nhập viện như em rồi. Viết xong code này hỏng chừng qua ở trọ gần nhà anh NDU 1 thời gian. Chỗ đó vui lắm, nghe nói ngày nào cũng có 1 thằng leo lên cột cờ vẽ vẽ bôi bôi...

baquang1984 · 9/12/14

Ba Tê đã viết:
Không "dễ ăn" chút nào đâu.
Dữ liệu Excel mà nhập "lộn xà ngầu", mắc phẩy là phẩy, mắc + là +, rồi lại nhập vào, tách ra....
Làm khó nhau chi vậy?
Xem một "đám rừng" này chạy có đúng kết quả không?

Chương trình của anh Ba giúp em chạy nhưng khi em lấy VD Tên ông Bà Văn Huân mà kết quả ở cột K (11) Sheets"Ket Qua" cho kết quả chưa đúng anh ạ
Anh kiểm tra và giúp em đoạn code xử lý chỗ này nhé
Em cảm ơn anh!
[TABLE="class: grid, width: 275"]
[TR]
[TD="colspan: 2, align: center"]Chương trình
Anh Ba[/TD]
[TD="colspan: 2, align: center"]Yêu cầu của
Chương trình[/TD]
[/TR]
[TR]
[TD="align: center"]611[/TD]
[TD="align: center"]CLN,BHK[/TD]
[TD="align: center"]611[/TD]
[TD="align: center"]CLN[/TD]
[/TR]
[TR]
[TD="align: center"]601[/TD]
[TD="align: center"]CLN,BHK[/TD]
[TD="align: center"]601[/TD]
[TD="align: center"]CLN[/TD]
[/TR]
[TR]
[TD="align: center"]250[/TD]
[TD="align: center"]CLN,BHK[/TD]
[TD="align: center"]250[/TD]
[TD="align: center"]BHK[/TD]
[/TR]
[TR]
[TD="align: center"]245[/TD]
[TD="align: center"]CLN,BHK[/TD]
[TD="align: center"]245[/TD]
[TD="align: center"]BHK[/TD]
[/TR]
[/TABLE]

baquang1984 · 9/12/14

quanghai1969 đã viết:
Chắc là anh Ba Tê muốn nhập viện như em rồi. Viết xong code này hỏng chừng qua ở trọ gần nhà anh NDU 1 thời gian. Chỗ đó vui lắm, nghe nói ngày nào cũng có 1 thằng leo lên cột cờ vẽ vẽ bôi bôi...

Anh Hải thật là vui tính đó nha hiccccc ....... hicc......

Ba Tê · 10/12/14

quanghai1969 đã viết:
Chắc là anh Ba Tê muốn nhập viện như em rồi. Viết xong code này hỏng chừng qua ở trọ gần nhà anh NDU 1 thời gian. Chỗ đó vui lắm, nghe nói ngày nào cũng có 1 thằng leo lên cột cờ vẽ vẽ bôi bôi...

Thêm một thằng mới leo lên vẽ xong rồi leo xuống nè.
Híc! Vẽ 1 dấu phẩy và một dấu cộng.
Hổng chừng còn leo lên vẽ một dấu xẹt nữa.
Điên thiệt.

Quang_Hải · 10/12/14

Ba Tê đã viết:
Thêm một thằng mới leo lên vẽ xong rồi leo xuống nè.
Híc! Vẽ 1 dấu phẩy và một dấu cộng.
Hổng chừng còn leo lên vẽ một dấu xẹt nữa.
Điên thiệt.

Kết quả của anh Ba Tê

Và của chủ thớt muốn.. Không leo cột cờ nữa mới là lạ nghen...

baquang1984 · 10/12/14

Ba Tê đã viết:
Thêm một thằng mới leo lên vẽ xong rồi leo xuống nè.
Híc! Vẽ 1 dấu phẩy và một dấu cộng.
Hổng chừng còn leo lên vẽ một dấu xẹt nữa.
Điên thiệt.

Anh Ba Ơi anh giải quyết được phân tách đối tượng ở cột K là dấu "," nhưng còn dâu "+" chưa giải quyết được anh ạ
và anh giải quyết giúp em với

Lọc dữ liệu sang Sheets mới và tách dữ liệu thành các hàng tương ứng (1 người xem)

Người dùng đang xem chủ đề này

Thành viên tiêu biểu

File đính kèm

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên gạo cội

Cạo Rồi Khỏi Gội

Thành viên tiêu biểu

Thành viên tiêu biểu

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên tiêu biểu

Thành viên tiêu biểu

File đính kèm

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gạo cội

File đính kèm

Thành viên tiêu biểu

Thành viên tiêu biểu

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên tiêu biểu

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên gạo cội

File đính kèm

Thành viên tiêu biểu

Thời gian đếm ngược.