Lọc dữ liệu từ bảng trả về nhiều giá trị hàng (1 người xem)

[Shadow SinX]

Các bạn theo dõi file đính kèm cho dễ hình dung nhé.
Mình có 2 sheet 1 và 2.

Ở sheet 2. hàng đầu là group, phía dưới là các sản phẩm con của group đó.

Mình muốn ở sheet 1. cột đầu là sản phẩm con. mình muốn lọc dữ liệu sao cho ở mỗi sản phẩm. nếu sản phẩm đó nằm ở group nào ở sheet 2 thì liệt kê ra.

vd: sản phẩm C1002 nằm ở 3 group C001, C002 và C003.

P/s: vì file này mình trích ra 1 phần thôi, file gốc nó nhiều hàng và cột hơn rất nhiều nên đừng nói mình làm thủ công là Find rồi điền vào nha.

Cám ơn các bạn.

 

[nginh]

Các bạn theo dõi file đính kèm cho dễ hình dung nhé.
Mình có 2 sheet 1 và 2.

Ở sheet 2. hàng đầu là group, phía dưới là các sản phẩm con của group đó.

Mình muốn ở sheet 1. cột đầu là sản phẩm con. mình muốn lọc dữ liệu sao cho ở mỗi sản phẩm. nếu sản phẩm đó nằm ở group nào ở sheet 2 thì liệt kê ra.

vd: sản phẩm C1002 nằm ở 3 group C001, C002 và C003.

P/s: vì file này mình trích ra 1 phần thôi, file gốc nó nhiều hàng và cột hơn rất nhiều nên đừng nói mình làm thủ công là Find rồi điền vào nha.

Cám ơn các bạn.

Bạn xem trong file đính kèm

 

[Shadow SinX]

Bạn có thể giải thích giúp mình với mình muốn áp dụng vào file khác thì tạo hình con heo đó làm sao?

 

[nginh]

Bạn có thể giải thích giúp mình với mình muốn áp dụng vào file khác thì tạo hình con heo đó làm sao?

Muốn ad cho file xyz bạn làm như sau
1. Open file xyz (để cho chắc cú thì bạn đóng các file khác đang mở)
2. Nhấn Alt+F11, chọn Insert-Module
3. Chép đoạn mã dưới đây vào vùng soạn thảo code

Sub st()
Dim r(), cell As Range
Set g = Sheets("[B][COLOR=#ff0000]sheet2[/COLOR][/B]").[[B][COLOR=#ff0000]C2:I22[/COLOR][/B]]
For Each cell In Selection
j = 1
c = WorksheetFunction.CountIf(g, cell)
If c > 0 Then
ReDim r(1 To 1, 1 To c)
For i = 1 To g.Columns.Count
If WorksheetFunction.CountIf(g.Columns(i), cell) Then r(1, j) = g(1, i): j = j + 1
Next
cell.Offset(, 1).Resize(, c) = r
End If
Next
End Sub

4. Lưu ý sửa các chỗ màu đỏ trong đoạn mã trên đây cho phù hợp với dữ liệu trong file xyz
5. Quay lại sheet1, vẽ hoặc chèn một hình tại vị trí thích hợp (không nhất thiết phải là con heo)
6. Right click on hình vừa tạo, select Assign Macro-Macro Name (chọn st) . OK
7. Chọn vùng mã hàng (code), Click on hình đã tạo ở trên để xem kết quả

 

[huutinh85]

Muốn ad cho file xyz bạn làm như sau
1. Open file xyz (để cho chắc cú thì bạn đóng các file khác đang mở)
2. Nhấn Alt+F11, chọn Insert-Module
3. Chép đoạn mã dưới đây vào vùng soạn thảo code

Sub st()
Dim r(), cell As Range
Set g = Sheets("[B][COLOR=#ff0000]sheet2[/COLOR][/B]").[[B][COLOR=#ff0000]C2:I22[/COLOR][/B]]
For Each cell In Selection
j = 1
c = WorksheetFunction.CountIf(g, cell)
If c > 0 Then
ReDim r(1 To 1, 1 To c)
For i = 1 To g.Columns.Count
If WorksheetFunction.CountIf(g.Columns(i), cell) Then r(1, j) = g(1, i): j = j + 1
Next
cell.Offset(, 1).Resize(, c) = r
End If
Next
End Sub

4. Lưu ý sửa các chỗ màu đỏ trong đoạn mã trên đây cho phù hợp với dữ liệu trong file xyz
5. Quay lại sheet1, vẽ hoặc chèn một hình tại vị trí thích hợp (không nhất thiết phải là con heo)
6. Right click on hình vừa tạo, select Assign Macro-Macro Name (chọn st) . OK
7. Chọn vùng mã hàng (code), Click on hình đã tạo ở trên để xem kết quả

TỪ ý tưởng của bạn mình muốn bạn có thể sữa code để có thể thực hiện như thế này được không? yêu cầu mình đã ghi trong file

 

[nginh]

TỪ ý tưởng của bạn mình muốn bạn có thể sữa code để có thể thực hiện như thế này được không? yêu cầu mình đã ghi trong file

Bạn xem trong file đính kèm
Lưu ý sửa tên "sheet1", "sheet2", [B1], [C2] trong sub phù hợp với dữ liệu trong file thực

 

[huutinh85]

Bạn xem trong file đính kèm
Lưu ý sửa tên "sheet1", "sheet2", [B1], [C2] trong sub phù hợp với dữ liệu trong file thực

cảm ơn bạn, nhưng code chạy chậm quá, làm thế nào để code nhanh hơn được, mong bạn chủ giáo

 

[Let'GâuGâu]

cảm ơn bạn, nhưng code chạy chậm quá, làm thế nào để code nhanh hơn được, mong bạn chủ giáo

tôi đang tập tành viết code, bạn xem coi có xài được ko

 

[huutinh85]

tôi đang tập tành viết code, bạn xem coi có xài được ko

lại ko được bạn ơi vì : khi mình thay đổi ví dụ như thêm học sinh ở SHEET 2 hoặc tăng trường cho 1 hs có sẵn thì file ko lưu lại bạn ạ. bạn thử xem lại nhé. cảm ơn

 

[Let'GâuGâu]

lại ko được bạn ơi vì : khi mình thay đổi ví dụ như thêm học sinh ở SHEET 2 hoặc tăng trường cho 1 hs có sẵn thì file ko lưu lại bạn ạ. bạn thử xem lại nhé. cảm ơn

Ủa, vậy mà tưởng là bạn nhập liệu bên sheet1 chớ

 

[huutinh85]

Ủa, vậy mà tưởng là bạn nhập liệu bên sheet1 chớ

nhập liệu ở sheet 1 bạn à,bạn có thể xem giúp mình với nhe. mà bạn mới tập viết mà hay thế.

 

[Let'GâuGâu]

nhập liệu ở sheet 1 bạn à,bạn có thể xem giúp mình với nhe. mà bạn mới tập viết mà hay thế.

tôi vẫn ko hiểu, bạn thử qua sheet1 thêm hoặc bớt tên rồi xem kết quả sheet2 có cập nhật ko?

 

[huutinh85]

tôi vẫn ko hiểu, bạn thử qua sheet1 thêm hoặc bớt tên rồi xem kết quả sheet2 có cập nhật ko?

fiel của mình mục đích là thế này: nếu có 1 hs đậu đại học thì mình chỉ cần nhập tên học sinh đó vào các trường a,b,c .... ở sheet 2 (vì có thể có hs đậu 2-3 trường). sau đó quay sang sheet 1 chỉ cần nhập tên hs này ở cột code thì tự động cập nhật xem hs này đậu những trường nào?sheet 1 giống như 1 sheet thống kê vậy.
mình mưốn code chạy nhanh hơn và muốn định dạng ( chia ô, định dạng chữ .....) sheet1, nhưng khi thêm dữ liệu mới ở sheet 2 thì lại mất đinh dạng của sheet 1.

 

[Let'GâuGâu]

fiel của mình mục đích là thế này: nếu có 1 hs đậu đại học thì mình chỉ cần nhập tên học sinh đó vào các trường a,b,c .... ở sheet 2 (vì có thể có hs đậu 2-3 trường). sau đó quay sang sheet 1 chỉ cần nhập tên hs này ở cột code thì tự động cập nhật xem hs này đậu những trường nào?sheet 1 giống như 1 sheet thống kê vậy.
mình mưốn code chạy nhanh hơn và muốn định dạng ( chia ô, định dạng chữ .....) sheet1, nhưng khi thêm dữ liệu mới ở sheet 2 thì lại mất đinh dạng của sheet 1.

Làm tiếp chủ đề này nha,
bây giờ làm ngược lại, chép bên sheet2 qua sheet1
khi bạn nhập tên vào cột b sheet1, nó copy bên sheet2 qua
chỉ mới chép số liệu thôi chưa làm định dạng

 

[huutinh85]

Làm tiếp chủ đề này nha,
bây giờ làm ngược lại, chép bên sheet2 qua sheet1
khi bạn nhập tên vào cột b sheet1, nó copy bên sheet2 qua
chỉ mới chép số liệu thôi chưa làm định dạng

vẫn chưa được bạn ơi, ý mình là thế này nhé:
do giấy báo đại học từng trường ko gửi về cùng 1 lúc mà gửi về rải rác. vì vậy 1 học sinh có thể trúng tuyển 2,3 trường khác nhau. mình muốn khi có 1 giấy báo của 1 học sinh ANH trúng tuyển trường D chẳng hạn , thì mình chỉ cần nhập tên học sinh ANH vào cột B sheet 1, và nhập tên học sinh ANH vào bất kì cell nào của "TRƯỜNG D" ở sheet 2.khi đó tại sheet1 sẽ lập tức thống kê đúng trường hs ANH trúng tuyển. nếu sau này hs ANH tiếp tục trúng tuyển thêm trường F nữa thì tôi chỉ cần nhập tên hs ANH vào cột trường F ở sheet 2 mà không cần quan tâm học sinh này đã có tên mấy lần rồi, khi đó sheest1 tự đọng thống kê thêm trườngF cho học sinh ANH mà không lặp lại tên ở cột B sheet1.bạn thử xem có hướng giải quyết không nhé. cảm ơn bạn nhiều

 

[Let'GâuGâu]

vẫn chưa được bạn ơi, ý mình là thế này nhé:
do giấy báo đại học từng trường ko gửi về cùng 1 lúc mà gửi về rải rác. vì vậy 1 học sinh có thể trúng tuyển 2,3 trường khác nhau. mình muốn khi có 1 giấy báo của 1 học sinh ANH trúng tuyển trường D chẳng hạn , thì mình chỉ cần nhập tên học sinh ANH vào cột B sheet 1, và nhập tên học sinh ANH vào bất kì cell nào của "TRƯỜNG D" ở sheet 2.khi đó tại sheet1 sẽ lập tức thống kê đúng trường hs ANH trúng tuyển. nếu sau này hs ANH tiếp tục trúng tuyển thêm trường F nữa thì tôi chỉ cần nhập tên hs ANH vào cột trường F ở sheet 2 mà không cần quan tâm học sinh này đã có tên mấy lần rồi, khi đó sheest1 tự đọng thống kê thêm trườngF cho học sinh ANH mà không lặp lại tên ở cột B sheet1.bạn thử xem có hướng giải quyết không nhé. cảm ơn bạn nhiều

khó nhỉ!!!
thử một lần nữa, không đúng thì chạy làng luôn

 

[huutinh85]

khó nhỉ!!!
thử một lần nữa, không đúng thì chạy làng luôn

vẫn không được bạn ơi mình thấy file dưới này tậm ổn rồi nhờ bạn sửa code để có thể định dạng các cột tiêu đề ... với. code này không hiêu sao mỗi lần cập nhật dữ liệu lại mất định dạng

 

[Ba Tê]

vẫn không được bạn ơi mình thấy file dưới này tậm ổn rồi nhờ bạn sửa code để có thể định dạng các cột tiêu đề ... với. code này không hiêu sao mỗi lần cập nhật dữ liệu lại mất định dạng

Thử file này thử xem.

 

[huutinh85]

Thử file này thử xem.

cảm ơn bạn nhé.mình muốn bạn giúp thêm chút
có file làm rồi nhưng giờ muôn sửa code chút cho ổn :nhờ bạn giúp thêm cái file đính kèm: mình muốn khi nhập thêm ngày nghỉ vào cột ngày ngỉ ở sheet ĐIỂM DANH GV thì các NGÀY NGHỈ này tự động sắp xếp theo thứ tự ngày tháng năm. cảm ơn bạn nhiều nhé

 

[Ba Tê]

cảm ơn bạn nhé.mình muốn bạn giúp thêm chút
có file làm rồi nhưng giờ muôn sửa code chút cho ổn :nhờ bạn giúp thêm cái file đính kèm: mình muốn khi nhập thêm ngày nghỉ vào cột ngày ngỉ ở sheet NHẬP thì các NGÀY NGHỈ này tự động sắp xếp theo thứ tự ngày tháng năm. cảm ơn bạn nhiều nhé

Có biết sheet nào là sheet NHẬP thì "chết liền".
Trong Sheet Điểm danh GV, ai nghỉ ngày nào thì cập nhật ngày đó, sao phải nhập tùm lum rồi lại Sort nhỉ?
Sheet LOC, nếu GV nghỉ cỡ 15 ngày thì sao ghi ra hết được ta?

 

[Let'GâuGâu]

hãy xem cách bạn ấy mô tả công việc ở bài 13 & 15 xem...........
tôi tải file ở bài 17 (bạn ấy nói là tạm ổn)
về cho code chạy nó đâu giống với những gì mà bạn ấy mô tả ở bài 13 &15 đâu

========
thiệt là .............."chết còn...........sướng hơn............."
hìhì........kàkà

 

[huutinh85]

Có biết sheet nào là sheet NHẬP thì "chết liền".
Trong Sheet Điểm danh GV, ai nghỉ ngày nào thì cập nhật ngày đó, sao phải nhập tùm lum rồi lại Sort nhỉ?
Sheet LOC, nếu GV nghỉ cỡ 15 ngày thì sao ghi ra hết được ta?

thành thật xin lỗi các bạn,sheet mình cần điều chỉnh là sheet ĐIỂM DANH GV do chỉnh sửa mà chưa lưu.
vì ở mình có các tiết dạy * hưởng phụ trội, và cái này thống kê theo tháng bạn ạ. vì vậy nên phải sort theo 1hoặc 2 tháng để báo cáo, và tính tiền. tuy nhiên việc nhập liệu do 2-3 người làm nên mình muốn sắp xép ngày theo thứ tự cho người sau dễ theo dõi.
còn việc 1 người nghỉ quá 15 ngày thì minh đã khắc phục được bằng đặt bảng 2 ra 2 trang khác thì ổn ngay thôi
mong bạn có thể sắp xếp theo ngày tháng được ko? cảm ơn bạn

 

[huutinh85]

hãy xem cách bạn ấy mô tả công việc ở bài 13 & 15 xem...........
tôi tải file ở bài 17 (bạn ấy nói là tạm ổn)
về cho code chạy nó đâu giống với những gì mà bạn ấy mô tả ở bài 13 &15 đâu

========
thiệt là .............."chết còn...........sướng hơn............."
hìhì........kàkà

đúng mà bạn. bây giờ bạn thử nhập mới 1 HS vào 1, 2, 3 .. trường hơặcthêm 1 trường mới cho học sinh đã có ở sheet2, sang sheet 1 bạn bạn bấm vào DSHS ĐẠU ĐH thì nó sẽ cập nhật kết quả đúng mà bạn.
mình làm việc này vì cuối năm sẽ phân loại các mức thưởng khác nhau: học sinh đậu 1 trương, 2, 3 trường sẽ có mức thưởng khác nhau

 

[xuan.nguyen82]

cảm ơn bạn nhé.mình muốn bạn giúp thêm chút
có file làm rồi nhưng giờ muôn sửa code chút cho ổn :nhờ bạn giúp thêm cái file đính kèm: mình muốn khi nhập thêm ngày nghỉ vào cột ngày ngỉ ở sheet ĐIỂM DANH GV thì các NGÀY NGHỈ này tự động sắp xếp theo thứ tự ngày tháng năm. cảm ơn bạn nhiều nhé

Bạn xem file xem đúng ý chưa nè>

Lọc ở cả 2 sheet.

 

[kimngochung]

Hi all!
Nhờ mọi người hỗ trợ trường hợp của mình với. Mình cần lọc tên nhân viên trong 1 nội dung. Nhờ mọi người hỗ trợ file đính kèm.
Thanks.View attachment giai phap excel.xlsx[/QUOTE]

 

[huutinh85]

Bạn xem file xem đúng ý chưa nè>

Lọc ở cả 2 sheet.

cũng đũng ý mình đó bạn, cảm ơn bạn nhiều nhé, nhưng code có thể auto được không bạn (túc là không cần bấm vào "sort ngày ") đó

 

[Ba Tê]

cũng đũng ý mình đó bạn, cảm ơn bạn nhiều nhé, nhưng code có thể auto được không bạn (túc là không cần bấm vào "sort ngày ") đó

Cái gì cũng có thể được. Nhưng bạn phải suy nghĩ kỹ tất cả các tình huống trước khi muốn nêu yêu cầu:
1/ Auto, là khi nào thì "auto"? Nhập xong ngày tháng thì "auto" ngay? Đang nhập dòng 100, nó "auto" thành dòng 10 chẵn hạn, kéo lên kéo xuống tìm xem hiện giờ nó nằm ở đâu để nhập tiếp các số liệu của các cột sau?
2/ Nhâp xong cột cuối thì "auto"?
3/ Mở sheet ra thì "auto", như vậy đang làm việc tại sheet này, muốn nó "auto" phải chuyển sang sheet khác rồi trở lại?
4/ Các ý muốn khác.............. Bạn chọn đi.

 

[xuan.nguyen82]

cũng đũng ý mình đó bạn, cảm ơn bạn nhiều nhé, nhưng code có thể auto được không bạn (túc là không cần bấm vào "sort ngày ") đó

Tốt nhất là nên bấm nút chạy dữ liệu. Auto nhiều lúc rất phiền toái đó bạn!............

 

[huutinh85]

Cái gì cũng có thể được. Nhưng bạn phải suy nghĩ kỹ tất cả các tình huống trước khi muốn nêu yêu cầu:
1/ Auto, là khi nào thì "auto"? Nhập xong ngày tháng thì "auto" ngay? Đang nhập dòng 100, nó "auto" thành dòng 10 chẵn hạn, kéo lên kéo xuống tìm xem hiện giờ nó nằm ở đâu để nhập tiếp các số liệu của các cột sau?
2/ Nhâp xong cột cuối thì "auto"?
3/ Mở sheet ra thì "auto", như vậy đang làm việc tại sheet này, muốn nó "auto" phải chuyển sang sheet khác rồi trở lại?
4/ Các ý muốn khác.............. Bạn chọn đi.

ý kiến của bạn hay quá. cảm ơn bạn, mình sẽ dùng nút sort như hiện tại

 

[huutinh85]

mình muốn in 2 bảng này trên giấy A4 theo yêu cầu lề trong file đính kèm nhưng sao code "từ ngày ... đến ngày ..." không chạy. mong các bạn giải thích giùm. cảm ơn

 

[Ba Tê]

mình muốn in 2 bảng này trên giấy A4 theo yêu cầu lề trong file đính kèm nhưng sao code "từ ngày ... đến ngày ..." không chạy. mong các bạn giải thích giùm. cảm ơn

Code không chạy vì "bị" bạn chèn thêm 1 đống dòng vào giữa 2 bảng, Dòng điều kiện từ ngày... đến ngày trước đây là dòng 17, giờ thì nó đi "tuốt luốt" tới dòng 28 rồi, code "tèo" luôn.
Và làm 2 bảng như bạn thì không hợp lý chút nào, lỡ bảng trên "bị dài" hơn nữa thì sao?
Cho nó nằm ngang nhau thử xem sao nhé. Hổng chịu thì "thua".

 

[huutinh85]

Code không chạy vì "bị" bạn chèn thêm 1 đống dòng vào giữa 2 bảng, Dòng điều kiện từ ngày... đến ngày trước đây là dòng 17, giờ thì nó đi "tuốt luốt" tới dòng 28 rồi, code "tèo" luôn.
Và làm 2 bảng như bạn thì không hợp lý chút nào, lỡ bảng trên "bị dài" hơn nữa thì sao?
Cho nó nằm ngang nhau thử xem sao nhé. Hổng chịu thì "thua".

cảm ơn ba tê rất nhiều nhé.

 

[huutinh85]

Code không chạy vì "bị" bạn chèn thêm 1 đống dòng vào giữa 2 bảng, Dòng điều kiện từ ngày... đến ngày trước đây là dòng 17, giờ thì nó đi "tuốt luốt" tới dòng 28 rồi, code "tèo" luôn.
Và làm 2 bảng như bạn thì không hợp lý chút nào, lỡ bảng trên "bị dài" hơn nữa thì sao?
Cho nó nằm ngang nhau thử xem sao nhé. Hổng chịu thì "thua".

giờ mình muốn thay đổi một chút cái bảng này thì có được không nhỉ.
GIỜ MÌNH THÊM 1 SHEET TKB (không giới hạn các lớp trong bảng mình chỉ để 8 lớp) MINH MUỐN KHI MÌNH CHỌN TÊN GIÁO VIÊN.....,THỨ ....Ở SHEET "DIEMDANH GV" THÌ NÓ SẼ TỰ ĐỘNG DÒ TÊN GV NÀY VÀ THỨ ...NGHI ĐỂ CẬP NHẬT CÁC LỚP THEO TIẾT NGHỈ CỦA THU ĐÓ MONG CÁC BẠN GIÚP ĐỠ.chi tiết cac bạn xem file mình gửi kèm nhé. cảm ơn các bạn

 

[Ba Tê]

giờ mình muốn thay đổi một chút cái bảng này thì có được không nhỉ.
GIỜ MÌNH THÊM 1 SHEET TKB (không giới hạn các lớp trong bảng mình chỉ để 8 lớp) MINH MUỐN KHI MÌNH CHỌN TÊN GIÁO VIÊN.....,THỨ ....Ở SHEET "DIEMDANH GV" THÌ NÓ SẼ TỰ ĐỘNG DÒ TÊN GV NÀY VÀ THỨ ...NGHI ĐỂ CẬP NHẬT CÁC LỚP THEO TIẾT NGHỈ CỦA THU ĐÓ MONG CÁC BẠN GIÚP ĐỠ.chi tiết cac bạn xem file mình gửi kèm nhé. cảm ơn các bạn

Nhập từng ô trong cột D (Ngày nghỉ), là code chạy.

 

[huutinh85]

Nhập từng ô trong cột D (Ngày nghỉ), là code chạy.

hay quá ba tê ơi, hôm trước mình cũng có ý tưởng tích hợp lịch vào để biết ngày tháng và thứ luôn , nhưng hôm nay bạn làm cái này thì tự động tích họp luôn rồi. hay quá
cái này muốn chuẩn xác ngày tháng và thứ thì cần chỉnh ngày hệ thống đúng ngày hiện tại phải không ba tê? cảm ơn bạn nhiều lắm.

 

[huutinh85]

nhập từng ô trong cột d (ngày nghỉ), là code chạy.

ba tê ơi sau khi mình add thêm tkb vào nhung mấy cái list validation ở cột tên vg sheet điểm danh và sheet lọc bị lỗi font nhìn rất khó chịu mối khi chọn. Tkb dùng font vni-times mình đã chuyển tất cả các sheet sang vni-times mà vẫn không được. Bạn thử điều chỉnh giùm với nhé. Mình có đính kèm file dưới . Cảm ơn

 

[huutinh85]

có bạn nào có thể giup mình được không

 

[Ngoai Thanh]

có bạn nào có thể giup mình được không

Bạn xem file xem được chưa ? Nếu không được thì ...thua .

 

[huutinh85]

Bạn xem file xem được chưa ? Nếu không được thì ...thua .

font chứ thì ổn rồi bạn a. NHƯNG TẠI SHEEET LỌC NẾU LỌC THEO TÊN GIÁO VIÊN THÌ THIẾU CẬP NHẬT TIẾT 9 . mong bạn sửa giùm . cảm ơn bạn

 

[Ngoai Thanh]

font chứ thì ổn rồi bạn a. NHƯNG TẠI SHEEET LỌC NẾU LỌC THEO TÊN GIÁO VIÊN THÌ THIẾU CẬP NHẬT TIẾT 9 . mong bạn sửa giùm . cảm ơn bạn

Mình chỉ chuyển Font giúp bạn thôi mà . Còn code thì chờ các thày xem có giúp được không, Nhưng mình thấy các bạn mới tham gia diễn đàn hay hỏi những vấn đề mà chính các bạn cũng không dự kiến hết các điều cần hỏi dẫn đến người giúp theo các phát sinh của các bạn đến phát chán ! các bạn nghĩ rằng viết code đơn giản lắm sao ? và người giúp thừa thời gian để theo các bạn sao ? Nhiều khi chỉ cần thay đổi chút là code sụp đổ phải làm lại từ đầu mà làm lại nhiều lần thì như bạn lets gâugâu nói ở đâu đó :'thà .....chết...còn sướng hơn!" . Vì vậy phương án tốt nhất của người giúp là " chia tay hoàng hôn !". vài lời chia sẻ .

 

[Ba Tê]

font chứ thì ổn rồi bạn a. NHƯNG TẠI SHEEET LỌC NẾU LỌC THEO TÊN GIÁO VIÊN THÌ THIẾU CẬP NHẬT TIẾT 9 . mong bạn sửa giùm . cảm ơn bạn

Do ban đầu bạn không có cột thứ, thêm vào 1 cột nhưng trong code "quên" chỉnh lại.
Thay lại bằng Sub này thử xem
[GPECODE=vb]Public Sub LOC_GV()
Dim sArr(), dArr(), TenGV As String, K As Long, I As Long, J As Long
With Sheets("DIEMDANH_GV")
sArr = .Range(.[B5], .[B65536].End(xlUp)).Resize(, 13).Value2
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 12)
With Sheets("LOC")
TenGV = UCase(.[C2])
For I = 1 To UBound(sArr, 1)
If UCase(sArr(I, 1)) = TenGV Then
K = K + 1: dArr(K, 1) = K
For J = 3 To 13
dArr(K, J - 1) = sArr(I, J)
Next J
End If
Next I
.[A4:L100].ClearContents
.[A4:L100].Borders.LineStyle = xlNone
If K Then
.[A4].Resize(K, 12) = dArr
.[A4].Resize(K, 12).Borders.LineStyle = xlContinuous
End If
End With
End Sub[/GPECODE]

 

[huutinh85]

Do ban đầu bạn không có cột thứ, thêm vào 1 cột nhưng trong code "quên" chỉnh lại.
Thay lại bằng Sub này thử xem
[GPECODE=vb]Public Sub LOC_GV()
Dim sArr(), dArr(), TenGV As String, K As Long, I As Long, J As Long
With Sheets("DIEMDANH_GV")
sArr = .Range(.[B5], .[B65536].End(xlUp)).Resize(, 13).Value2
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 12)
With Sheets("LOC")
TenGV = UCase(.[C2])
For I = 1 To UBound(sArr, 1)
If UCase(sArr(I, 1)) = TenGV Then
K = K + 1: dArr(K, 1) = K
For J = 3 To 13
dArr(K, J - 1) = sArr(I, J)
Next J
End If
Next I
.[A4:L100].ClearContents
.[A4:L100].Borders.LineStyle = xlNone
If K Then
.[A4].Resize(K, 12) = dArr
.[A4].Resize(K, 12).Borders.LineStyle = xlContinuous
End If
End With
End Sub[/GPECODE]

CODE này thì sữa lỗi được rồi . cảm ơn ba tê nhiều nhé. thực sự mới đâm đầu vào mò VBA nên nhiều khi nhờ anh e trên diền đàn giúp đỡ ngại quá có người cho mình cái gì cũng hỏi nên đôi khi cũng nản. nhưng thực sự ko biết nên phải nhở mọi người giúp thôi.
mình muốn hỏi ba tê chút chỗ này với nhé. mình đang tiếp tục hoàn thiện 1 file nhưng mình muốn trong sheet TKB mình sẽ tô màu một số cell . khi nhập liệu vào sheet DIEMDANH GV thì sẽ cập tiết màu này vào bảng mà thêm 1 kí tự * được không? cụ thể các bạn có thể xem trong file mình đính kèm dưới đây. cảm ơn ba tê,cảm ơn các bạn