Lọc nhiều lớp ra thành từng lớp (1 người xem)
- Thread starter 0167767
- Ngày gửi
Người dùng đang xem chủ đề này
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Bạn thực hiện như sau:
Bôi đen vùng D6
1013--> Data-->Filter-->Advance Filter-->Tích Copy to another location--> Trong Copy to nháy chuột chọn ô F6--> Tích chọn Unique records only-->OK.
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Dùng VBA có được không?
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Tôi tạo 1 nút "LOC", khi bấm nút này nó sẽ tự động lọc ra cho bạn có được không hay bạn muốn thế nào? Nói rõ ra.
Đúng rồi khỏi bấm nút được không bạn.
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Trời ơi lười quá! Bấm nút 1 cái thôi cũng không làm được sao?
Tôi có thể làm giúp bạn không cần nút. Nó sẽ lọc khi nào dữ liệu của cột D thay đổi nhé!
Được thì tốt quá rồi. cảm ơn bạn
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,079
- Được thích
- 8,020
- Nghề nghiệp
- Làm đủ thứ
Thử file này coi sao
Không phải vậy bạn à. Ý mình bạn chuot0106 làm đúng rồi ở bài 7, nhưng mà mình muốn tự động không cần phải bấm nút.
Mà bài của bạn công nhận hay thiệt. Cảm ơn bạn.
Lần chỉnh sửa cuối:
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Của bạn đây!.................
Sao áp dụng vào file mình chưa được, bạn hướng dẫn mình thao tác cho mình nhé.
Mình thao tác như sau.
B1: Copy code này vào sheet
B2: Copy code này vào modulePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Not Intersect(Target, [D7
End Sub
Sao nó báo lỗi ở code bước 1.Sub LOC() Range("D6
Range("F6"), Unique:=True
End Sub
Cmr ơn bạn
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Bạn xem File thật của bạn cấu trúc có giống File bạn gửi lên không?
Bạn Test File tôi gửi có đúng không?
File của bạn ok rồi. File mình dữ liệu lớp ở D7
2006 Lọc sang F7. Ngoài chép code ra còn làm gì nữa không bạn, có vào advacedfilter gì gì nữa không?
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Đưa File thật của bạn nên tôi giúp cho!File của bạn ok rồi. File mình dữ liệu lớp ở D7
Bạn xem lại dùm mình nhé. File của bạn cũng vậy, đâu bạn nhấp chuột vào cột danh sách lớp code sẽ báo lỗi. cảm ơn bạn
chuot0106
Thành viên gắn bó
- Tham gia
- 20/1/13
- Bài viết
- 2,567
- Được thích
- 1,671
Gửi lại cho bạn đây...............
Mình delete trong name thì code lại lỗi nữa vậy làm sao được như trong hình, bạn hướng dẫn mình làm nhé.View attachment untitled.bmp
nnd1988
Thành viên chính thức
- Tham gia
- 10/3/14
- Bài viết
- 68
- Được thích
- 15
- Nghề nghiệp
- Nhân viên Văn Phòng
Sao bạn không đưa File thật của bạn nên, mọi người giúp đỡ!
Lần chỉnh sửa cuối:
Bạn Hải, bạn giúp mình lại với, cách làm cũng giống như bạn, nhưng tôi đã thêm cột vào nên không tách ra được hết, bạn giúp mình hé, chân thành cảm ơn bạn.
Lần chỉnh sửa cuối:
Ngoai Thanh
Cánh Diều xanh
- Tham gia
- 14/6/12
- Bài viết
- 823
- Được thích
- 906
Dữ liệu bạn chuẩn bị kiểu vậy chắc 3 phút là xong . Bạn Quang Hải viết code xong text thử chắc mất vài tiếng . Bạn cẩu thả vậy thì chắc chờ thôi .
Chắc bạn xem file bài này sẽ rõ
Lần chỉnh sửa cuối:
Ngoai Thanh
Cánh Diều xanh
- Tham gia
- 14/6/12
- Bài viết
- 823
- Được thích
- 906
Dữ liệu giống như thật thì người này giúp chưa được thì người khác sẽ giúp . Nhưng tự mình đã đưa dữ liệu kiểu vậy thì ... mình cũng không có ý kiến gì nữa !
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,079
- Được thích
- 8,020
- Nghề nghiệp
- Làm đủ thứ
To: 0167767
Bạn Copy code này về sẽ tách được. Code dựa theo dữ liệu của bài 25
Lưu ý là tên sheet TONGHOP và TONG HOP sẽ khác nhau, code sẽ phân biệt có khoảng cách và không khoảng cách.
Bạn cũng nên tự thay code vào và mò sửa nếu có nhu cầu học VBA. Mình cũng học theo cách này thôi
Bạn Copy code này về sẽ tách được. Code dựa theo dữ liệu của bài 25
Lưu ý là tên sheet TONGHOP và TONG HOP sẽ khác nhau, code sẽ phân biệt có khoảng cách và không khoảng cách.
Bạn cũng nên tự thay code vào và mò sửa nếu có nhu cầu học VBA. Mình cũng học theo cách này thôi
PHP:
Sub tachra()
Application.ScreenUpdating = False
Dim data(), ketqua(1 To 65536, 1 To 6), Lop()
Dim tieude As Range, k, i , j, ii
With Sheets("TONGHOP")
Set tieude = .[A6:F6]
data = .Range(.[A7], .[F65536].End(3)).Value
End With
With CreateObject("scripting.dictionary")
For i = 1 To UBound(data)
If Not .exists(data(i, 5)) Then
.Add data(i, 5), ""
End If
Next
Lop = .keys
End With
For i = 0 To UBound(Lop)
For ii = 1 To UBound(data)
If data(ii, 5) = Lop(i) Then
k = k + 1
ketqua(k, 1) = k
For j = 2 To 6
ketqua(k, j) = data(ii, j)
Next
End If
Next
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Lop(i)
tieude.Copy .[A6:F6]
.[A7].Resize(k, 6) = ketqua
.[A:F].Columns.AutoFit
.[A7].Resize(k, 6).Borders.Value = 1
End With
k = 0
Next
Sheets("TONGHOP").Select
Application.ScreenUpdating = True
End SubBài viết mới nhất
- Question
