Lọc dữ liệu có điều kiện và Merge Cell (1 người xem)

baquang1984 · 23/5/19

Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
Cột A sheets"KETQUA" dữ liệu lấy từ cột A Sheets"DATA" và Mergen các ô theo giá trị của điều kiện và điền một giá trị Như file đính kèm
Cột B sheets"KETQUA" dữ liệu được lấy từ cột D sheets"DATA và Mergen các ô theo giá trị của điều kiện và điền một giá trị
Cột C sheets"KETQUA" lấy dữ liệu được lấy từ cột E sheets"DATA"
Cột D sheets"KETQUA" lấy dữ liệu được lấy từ cột F sheets"DATA"
Cột E sheets"KETQUA" lấy dữ liệu được lấy từ cột G sheets"DATA"
Cột F sheets"KETQUA" lấy dữ liệu được lấy từ cột H sheets"DATA"
kết thúc mỗi điều kiện có dòng tính tổng ở cột C sheets"KETQUA" đếm xem có bao nhiêu thửa đất
ở cột D sheets"KETQUA" đếm xem có bao nhiêu tờ bản đồ, ở cột F tính tổng diện tích
Với trường hợp chọn vào Button "LỌC TẤT CẢ" chương trình sẽ lọc toàn bộ dữ liệu bên sheets"DATA" sang sheets"KETQUA" với điều kiện như trên
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

quanluu · 23/5/19

baquang1984 đã viết:
Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
Cột A sheets"KETQUA" dữ liệu lấy từ cột A Sheets"DATA" và Mergen các ô theo giá trị của điều kiện và điền một giá trị Như file đính kèm
Cột B sheets"KETQUA" dữ liệu được lấy từ cột D sheets"DATA và Mergen các ô theo giá trị của điều kiện và điền một giá trị
Cột C sheets"KETQUA" lấy dữ liệu được lấy từ cột E sheets"DATA"
Cột D sheets"KETQUA" lấy dữ liệu được lấy từ cột F sheets"DATA"
Cột E sheets"KETQUA" lấy dữ liệu được lấy từ cột G sheets"DATA"
Cột F sheets"KETQUA" lấy dữ liệu được lấy từ cột H sheets"DATA"
kết thúc mỗi điều kiện có dòng tính tổng ở cột C sheets"KETQUA" đếm xem có bao nhiêu thửa đất
ở cột D sheets"KETQUA" đếm xem có bao nhiêu tờ bản đồ, ở cột F tính tổng diện tích
Với trường hợp chọn vào Button "LỌC TẤT CẢ" chương trình sẽ lọc toàn bộ dữ liệu bên sheets"DATA" sang sheets"KETQUA" với điều kiện như trên
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

Viet cho TH1

Mã:

Sub filter()
    Dim i, j, ar, filter_text, kq, k
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    filter_text = Sheet2.Range("I2")
    With Sheet1
        ar = .Range("A2:H" & .Range("A" & Rows.Count).End(3).Row)
    End With
    ReDim kq(1 To UBound(ar), 1 To 6)
    For i = 1 To UBound(ar)
        If ar(i, 3) = filter_text Then
            k = k + 1
            kq(k, 1) = ar(i, 1)
            For j = 2 To 6
                kq(k, j) = ar(i, j + 2)
            Next
        End If
    Next
    With Sheet2
        .Range("A2:F" & .Range("F" & Rows.Count).End(3).Row + 1).Clear
        If k Then
            .Range("A2").Resize(k, 6) = kq
            mergedk
        End If
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
Sub mergedk()
    Dim lr, ar
    With Sheet2
        lr = .Range("A" & Rows.Count).End(3).Row
        ar = .Range("A1:F" & lr)
        For i = UBound(ar) To 1 Step -1
            For j = i To 1 Step -1
                If ar(j, 1) <> ar(i, 1) Or ar(j, 2) <> ar(i, 2) Then
                    .Range("A" & j + 1 & ":A" & i).merge
                    .Range("B" & j + 1 & ":B" & i).merge
                    .Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                    .Range("C" & i + 1) = i - j
                    i = j + 1
                    Exit For
                End If
            Next
        Next
    End With
End Sub

baquang1984 · 24/5/19

quanluu1989 đã viết:

Viet cho TH1

Mã:

Sub filter()
    Dim i, j, ar, filter_text, kq, k
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    filter_text = Sheet2.Range("I2")
    With Sheet1
        ar = .Range("A2:H" & .Range("A" & Rows.Count).End(3).Row)
    End With
    ReDim kq(1 To UBound(ar), 1 To 6)
    For i = 1 To UBound(ar)
        If ar(i, 3) = filter_text Then
            k = k + 1
            kq(k, 1) = ar(i, 1)
            For j = 2 To 6
                kq(k, j) = ar(i, j + 2)
            Next
        End If
    Next
    With Sheet2
        .Range("A2:F" & .Range("F" & Rows.Count).End(3).Row + 1).Clear
        If k Then
            .Range("A2").Resize(k, 6) = kq
            mergedk
        End If
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
Sub mergedk()
    Dim lr, ar
    With Sheet2
        lr = .Range("A" & Rows.Count).End(3).Row
        ar = .Range("A1:F" & lr)
        For i = UBound(ar) To 1 Step -1
            For j = i To 1 Step -1
                If ar(j, 1) <> ar(i, 1) Or ar(j, 2) <> ar(i, 2) Then
                    .Range("A" & j + 1 & ":A" & i).merge
                    .Range("B" & j + 1 & ":B" & i).merge
                    .Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                    .Range("C" & i + 1) = i - j
                    i = j + 1
                    Exit For
                End If
            Next
        Next
    End With
End Sub

Cảm ơn bác quanluu1989 đã giúp đỡ ạ. Anh xem lại code giúp em với ạ đối với trường hợp một là khi em chọn điều kiện lọc ở ô cell I2 thì chương trình thực hiện lọc theo như em mô tả ở bài #1 ạ. Còn trường hợp 2 là khi em chọn Buttom "LỌC TẤT CẢ" thì chương trình sẽ lọc toàn bộ dữ liệu có bên Sheets"DATA" sang Sheets"KETQUA". Em cảm ơn nhiều ạ

Ba Tê · 24/5/19

baquang1984 đã viết:
Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
Cột A sheets"KETQUA" dữ liệu lấy từ cột A Sheets"DATA" và Mergen các ô theo giá trị của điều kiện và điền một giá trị Như file đính kèm
Cột B sheets"KETQUA" dữ liệu được lấy từ cột D sheets"DATA và Mergen các ô theo giá trị của điều kiện và điền một giá trị
Cột C sheets"KETQUA" lấy dữ liệu được lấy từ cột E sheets"DATA"
Cột D sheets"KETQUA" lấy dữ liệu được lấy từ cột F sheets"DATA"
Cột E sheets"KETQUA" lấy dữ liệu được lấy từ cột G sheets"DATA"
Cột F sheets"KETQUA" lấy dữ liệu được lấy từ cột H sheets"DATA"
kết thúc mỗi điều kiện có dòng tính tổng ở cột C sheets"KETQUA" đếm xem có bao nhiêu thửa đất
ở cột D sheets"KETQUA" đếm xem có bao nhiêu tờ bản đồ, ở cột F tính tổng diện tích
Với trường hợp chọn vào Button "LỌC TẤT CẢ" chương trình sẽ lọc toàn bộ dữ liệu bên sheets"DATA" sang sheets"KETQUA" với điều kiện như trên
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

- Tôi không thấy tác dụng của Merge Cells để làm gì nên không làm.
- Chọn trong List số CMND ô I2 thì lọc đúng số CMND đó, Nếu Delete ô I2 thì lấy tất cả dữ liệu có bên Data.

baquang1984 · 24/5/19

Ba Tê đã viết:
- Tôi không thấy tác dụng của Merge Cells để làm gì nên không làm.
- Chọn trong List số CMND ô I2 thì lọc đúng số CMND đó, Nếu Delete ô I2 thì lấy tất cả dữ liệu có bên Data.

Cảm ơn bác Ba Tê chương trình chạy tuyệt vời. Bác có thể giúp em thêm phần Merge Cell được không ạ. Mục đích của em hỏi phần này là để ứng dụng thêm vào các chương trình khác ạ

dragon4947 · 24/5/19

Thân chào các Anh/Chị/Em trên diễn đàn
Tôi muốn nhờ các ace giúp tôi tổng hợp Dữ liệu của 1 file Có nhiều Sheet, Mỗi Sheet có cấu trúc giống hệt nhau của các năm có chia theo danh sách các tỉnh. Tôi muốn tạo sheet tổng hợp dữ liệu của các tỉnh theo năm.
VD: Cả nước thì sẽ lấy dữ liệu từ năm 2010 - 2015, xong lại tiếp tục đến các tỉnh khác theo đúng thứ tự các tỉnh theo cột.
Rất mong được sự giúp đỡ của các ace.

Ba Tê · 24/5/19

baquang1984 đã viết:
Bác có thể giúp em thêm phần Merge Cell được không ạ. Mục đích của em hỏi phần này là để ứng dụng thêm vào các chương trình khác ạ

Dữ liệu Excel là phải chuẩn của Excel, Merge chỉ là làm bảng biểu để xem thôi, chứ sau này muốn Tìm, Lọc... từ bảng này sẽ "oải".
Sub MergeCells của bạn đây (áp dụng cho file này, sau khi chạy các Sub trước)
Chú ý là phải UnMerge cột A, B trước khi chạy các Sub trước.

PHP:

Public Sub s_Merge()
Dim Rws As Long, I As Long, K As Long
Rws = Range("B100000").End(xlUp).Row
For I = 3 To Rws
    If Cells(I, 2) <> "TOTAL:" Then
        K = K + 1
    Else
        Cells(I, 1).Offset(-K).Resize(K + 1).Merge
        Cells(I, 2).Offset(-K).Resize(K).Merge
        Cells(I, 1).Offset(-K).Resize(K + 1, 2).VerticalAlignment = xlCenter
        K = 0
    End If
Next I
End Sub

baquang1984 · 24/5/19

Ba Tê đã viết:
- Tôi không thấy tác dụng của Merge Cells để làm gì nên không làm.
- Chọn trong List số CMND ô I2 thì lọc đúng số CMND đó, Nếu Delete ô I2 thì lấy tất cả dữ liệu có bên Data.

Bác Ba Tê ạ đối với trường hợp khi chon điều kiện lọc ở ô Cell I2 của số CMND "120923909" thì chương trình báo lỗi như ảnh gửi kèm anh, bác xem giúp em với nhé. Em cảm ơn anh nhiều ạ!

Ba Tê · 24/5/19

baquang1984 đã viết:
Bác Ba Tê ạ đối với trường hợp khi chon điều kiện lọc ở ô Cell I2 của số CMND "120923909" thì chương trình báo lỗi như ảnh gửi kèm anh, bác xem giúp em với nhé. Em cảm ơn anh nhiều ạ!

Thay cái dòng lỗi màu vàng đó bằng dòng này:

PHP:

sArr = .Range("A3", .Range("A100000").End(xlUp).Offset(1)).Resize(, 7).Value

baquang1984 · 24/5/19

Ba Tê đã viết:
Thay cái dòng lỗi màu vàng đó bằng dòng này:

PHP:

sArr = .Range("A3", .Range("A100000").End(xlUp).Offset(1)).Resize(, 7).Value

Em cảm ơn anh Ba Tê đã giúp em chương trình VBA.
Chúc anh sức khỏe.

tam888 · 24/5/19

baquang1984 đã viết:
Em cảm ơn anh Ba Tê đã giúp em chương trình VBA.
Chúc anh sức khỏe.

Cách giúp đó có hẳn tốt cho bạn?
Bỏ cái merged đau khổ đi, bạn tham gia kỳ cựu bao nhiêu bài rồi mà vẫn bố trí dữ liệu vậy sao?

baquang1984 · 24/5/19

tam888 đã viết:
Cách giúp đó có hẳn tốt cho bạn?
Bỏ cái merged đau khổ đi, bạn tham gia kỳ cựu bao nhiêu bài rồi mà vẫn bố trí dữ liệu vậy sao?

Cảm ơn góp ý của bác tuy nhiên do điều kiện em thực hiện các dự án nên yêu cầu của mỗi cơ quan quản lý nhà nước nó khác nhau em cũng a cay với cai kểu bố trí dữ liệu Merge này lắm

be_09 · 24/5/19

tam888 đã viết:
Cách giúp đó có hẳn tốt cho bạn?
Bỏ cái merged đau khổ đi, bạn tham gia kỳ cựu bao nhiêu bài rồi mà vẫn bố trí dữ liệu vậy sao?

1/ Tôi nghĩ muốn tính cái gì đó thì đã có sheet DATA rồi.
2/ Sheet KETQUA chẳng qua làm trang trí theo quy định của cơ quan chứ chẳng ai muốn làm ba cái vụ Merge Merge này đâu, nếu không nhờ VBA trợ giúp thì một xã có từ 10.000 dòng trở lên là điếc.
3/ Tôi cũng đã làm xong rồi, chỉ còn gọt giũa code cho gọn lại một chút.

VetMini · 24/5/19

VBA mà làm việc với merged cells là làm việc trên bãi mìn. Thể nào cũng có ngày mấy chân mất tay nếu không mất mạng.
Muón nói chuyện code và "tự động" thì phải bắt đầu tập quên cái vụ mẫu mã làm duyên làm dáng đi.

Nói với cái tên quản lý là chuyên viên trên 20 năm về dữ liệu, bảng tính, và kiểm soát dữ liệu quản lý (audit) nói vậy.

baquang1984 · 24/5/19

be09 đã viết:
1/ Tôi nghĩ muốn tính cái gì đó thì đã có sheet DATA rồi.
2/ Sheet KETQUA chẳng qua làm trang trí theo quy định của nên quan nên cũng chẳng ảnh hưởng gì.
3/ Tôi cũng đã làm xong rồi, chỉ còn gọt giũa code cho gọn lại một chút.

View attachment 217884

Em cảm ơn anh be09 đã giúp đỡ ạ

tam888 · 24/5/19

baquang1984 đã viết:
Cảm ơn góp ý của bác tuy nhiên do điều kiện em thực hiện các dự án nên yêu cầu của mỗi cơ quan quản lý nhà nước nó khác nhau em cũng a cay với cai kểu bố trí dữ liệu Merge này lắm

Thay đổi từ chính mình, thay vì tiếp tay tiếp cho việc cay đó phát triển

VetMini đã viết:
VBA mà làm việc với merged cells là làm việc trên bãi mìn. Thể nào cũng có ngày mấy chân mất tay nếu không mất mạng.
Muón nói chuyện code và "tự động" thì phải bắt đầu tập quên cái vụ mẫu mã làm duyên làm dáng đi.

Nói với cái tên quản lý là chuyên viên trên 20 năm về dữ liệu, bảng tính, và kiểm soát dữ liệu quản lý (audit) nói vậy.

Đúng thế, nhưng oái ăm thay là nhiều thành viên GPE khoái gỡ mìn...
Làm bước cuối cùng (đặt mìn) giao cho VBA thì được (tức là report có merged thì được)

VetMini · 24/5/19

tam888 đã viết:
Đúng thế, nhưng oái ăm thay là nhiều thành viên GPE khoái gỡ mìn...
...

Tôi không tin vậy.
Nhiều thành viên GPE khoái chỉ ngừoi ta làm việc trên bãi mìn.
Nổ chết ai chứ có chết ngừoi chỉ đâu.

be_09 · 24/5/19

tam888 đã viết:
Thay đổi từ chính mình, thay vì tiếp tay tiếp cho việc cay đó phát triển

Đúng thế, nhưng oái ăm thay là nhiều thành viên GPE khoái gỡ mìn...
Làm bước cuối cùng (đặt mìn) giao cho VBA thì được (tức là report có merged thì được)

Chắc bạn không là công chức nên không biết, tất cả mọi công việc liên quan đến bảng tính đều phải làm theo biểu mẫu quy định.

Vì vậy, cách tốt nhất là thiết kế dữ liệu theo kiểu của mình sao cho thuận lợi nhất, khi cần báo cáo theo biểu mẫu quy định thì chạy code (cách làm của Chủ Topic nằm trong dạng này).

tam888 · 24/5/19

be09 đã viết:
Chắc bạn không là công chức nên không biết, tất cả mọi công việc liên quan đến bảng tính đều phải làm theo biểu mẫu quy định.

Vì vậy, cách tốt nhất là thiết kế dữ liệu theo kiểu của mình sao cho thuận lợi nhất, khi cần báo cáo theo biểu mẫu quy định thì chạy code (cách làm của Chủ Topic nằm trong dạng này).

Công chức càng nên đổi, không hệ thống giờ quan liêu trì trệ quá
Còn tôi có nói trên

tam888 đã viết:
Thay đổi từ chính mình, thay vì tiếp tay tiếp cho việc cay đó phát triển

.....
Làm bước cuối cùng (đặt mìn) giao cho VBA thì được (tức là report có merged thì được)

be_09 · 24/5/19

tam888 đã viết:
Công chức càng nên đổi, không hệ thống giờ quan liêu trì trệ quá
Còn tôi có nói trên

Vậy bạn phấn đấu làm Bộ trưởng một ngành nào đó đi thì may ra đổi được.

tam888 · 24/5/19

be09 đã viết:
Vậy bạn phấn đấu làm Bộ trưởng một ngành nào đó đi thì may ra đổi được.

ai za, kiểu ai cũng thế này thì nó cũng trì trệ thì kêu ai, cứ đòi làm bộ trưởng sao đổi

Ba Tê · 24/5/19

be09 đã viết:
Vậy bạn phấn đấu làm Bộ trưởng một ngành nào đó đi thì may ra đổi được.

Có sao đâu? Cần gì "làm bộ".
Những người rảnh rỗi rất nhiều, cưỡi ngựa xem hoa thôi, đâu cần biết công sức trồng hoa đó từ đâu mà có.
Chỉ biết rằng hoa đó "nhà tôi có cả đống, nhiều khi thấy ghét phải nhổ bỏ".
Tốn công tào lao vậy thì đừng tính nó là giaiphapexcel (Excel có làm được không?).

be_09 · 24/5/19

tam888 đã viết:
ai za, kiểu ai cũng thế này thì nó cũng trì trệ thì kêu ai, cứ đòi làm bộ trưởng sao đổi

Cái đó còn là chuyện nhỏ, nó còn mười mấy cái biểu như thế này nữa.

VetMini · 24/5/19

Bộ này kể cũng dễ. Có lẽ tại sếp ngu, khong biết thế nào là Macro.
Hồi tôi còn làm việc với các cơ quan nhà nước, chúng toi theo quy tắc nhất định là file Excel ở dạng cuối cùng (báo cáo) không được phép dùng Macro. Tức là Macro chỉ dùng ở vòng lấy dữ liệu và phân tích thôi. Các bảng, biểu đồ đều được copied sang. Cái mà các "sếp" cấp cao dùng chỉ thuần là các bảng tính độ nhạy, pivot table và chart.
Các cty liên doanh tôi dự phần tư vấn cũng vậy.

Ba Tê · 24/5/19

be09 đã viết:
Cái đó còn là chuyện nhỏ, nó còn mười mấy cái biểu như thế này nữa.

View attachment 217902

Cả trăm cái biểu bảng của bạn cũng vậy thôi.
Cái bạn cần thì người khác bảo rằng nó "tào lao" không chuẩn.
Đâu biết rằng cái yêu cầu nho nhỏ về "giaiphapexcel" của tác giả chỉ "đang giỡn" vậy thôi. Khi nào gặp "luxubu" thì tính sau (hỏi tiếp - Theo yêu cầu của "sếp ngu" - giaiphapexcel.com không cấm).
"Cởi ngựa xem hoa" khác với "cuốc đất trồng hoa".
Sản phẩm dù là "cùi bắp" vẫn hơn "chẳng giúp được gì", hình như "thời trước" có nghe rằng mấy ý kiến lu bu đó là "lý thuyết suông", "đập mà không xây".
Tôi thì "dốt đặc cán mai", chỉ muốn thử xem VBA làm được gì với yêu cầu của tác giả.
"Mìn nổ" kệ nó.
Mình học được cách "gài mìn", sau khi có cảnh báo cho tác giả biết là "có mìn" (chết ráng chịu).

be_09 · 24/5/19

Ba Tê đã viết:
Cả trăm cái biểu bảng của bạn cũng vậy thôi.
Cái bạn cần thì người khác bảo rằng nó "tào lao" không chuẩn.
Đâu biết rằng cái yêu cầu nho nhỏ về "giaiphapexcel" của tác giả chỉ "đang giỡn" vậy thôi. Khi nào gặp "luxubu" thì tính sau (hỏi tiếp - Theo yêu cầu của "sếp ngu" - giaiphapexcel.com không cấm).
"Cởi ngựa xem hoa" khác với "cuốc đất trồng hoa".
Sản phẩm dù là "cùi bắp" vẫn hơn "chẳng giúp được gì", hình như "thời trước" có nghe rằng mấy ý kiến lu bu đó là "lý thuyết suông", "đập mà không xây".
Tôi thì "dốt đặc cán mai", chỉ muốn thử xem VBA làm được gì với yêu cầu của tác giả.
"Mìn nổ" kệ nó.
Mình học được cách "gài mìn" sau khi có cảnh báo cho tác giả biết là "có mìn" (chết ráng chịu).

Bất kỳ ngành nào cũng vậy, làm bất kỳ cái gì cũng có quy định.

Anh làm công chức thì phải cong xương sống làm theo quy định, nếu anh không chấp hành thì A lê mời anh đi chỗ khác chơi xơi nước (làm bản kiểm điểm chờ nhận quyết định...........) để cho người khác làm việc.

be_09 · 28/5/19

baquang1984 đã viết:
Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
........................................................
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

Thử sử dụng File, Code hơi cùi bắp nhưng đáp ứng được yêu cầu công việc.
Trong ngành này thường sử dụng dữ liệu trên vài ngàn dòng trở lên, bạn thử copy dữ liệu của File khác và Paste vào sheet DATA rồi nhấn nút (thử xem nó có chậm không), vì tôi không có dữ liệu nhiều để thử.

Tôi sửa code và chuyển File đến bài 29.

baquang1984 · 29/5/19

be09 đã viết:
Thử sử dụng File, Code hơi cùi bắp nhưng đáp ứng được yêu cầu công việc.
Trong ngành này thường sử dụng dữ liệu trên vài ngàn dòng trở lên, bạn thử copy dữ liệu của File khác và Paste vào sheet DATA rồi nhấn nút (thử xem nó có chậm không), vì tôi không có dữ liệu nhiều để thử.

Em cảm ơn bác be09 nhé

be_09 · 31/5/19

baquang1984 đã viết:
Em cảm ơn bác be09 nhé

Tôi sửa lại code bài 27 và trang trí bảng tính cho dễ nhìn hơn, bạn kiểm tra lại xem.
Để thử, bạn copy dữ liệu từ File khác với vài ngàn dòng và Paste vào sheet DATA rồi nhấn nút để xem kết quả nó như thế nào.

vudinhgiao · 31/5/19

Em hóng với

HieuCD · 31/5/19

baquang1984 đã viết:
Em chào Thầy cô và anh chị trên diễn đàn ạ
Em nhờ thầy cô và anh chị trên diễn đàn viết giúp em Code VBA để thực hiện chương trình như sau ạ:
Em có sheets"DATA" là sheet chứa dữ liệu cần lọc, khi em chọn điều kiện lọc ở cột I2 sheets"KETQUA" thì chương trình sẽ lọc dữ liệu sang sheets"KETQUA"
Dữ liệu được điền như sau:
Cột A sheets"KETQUA" dữ liệu lấy từ cột A Sheets"DATA" và Mergen các ô theo giá trị của điều kiện và điền một giá trị Như file đính kèm
Cột B sheets"KETQUA" dữ liệu được lấy từ cột D sheets"DATA và Mergen các ô theo giá trị của điều kiện và điền một giá trị
Cột C sheets"KETQUA" lấy dữ liệu được lấy từ cột E sheets"DATA"
Cột D sheets"KETQUA" lấy dữ liệu được lấy từ cột F sheets"DATA"
Cột E sheets"KETQUA" lấy dữ liệu được lấy từ cột G sheets"DATA"
Cột F sheets"KETQUA" lấy dữ liệu được lấy từ cột H sheets"DATA"
kết thúc mỗi điều kiện có dòng tính tổng ở cột C sheets"KETQUA" đếm xem có bao nhiêu thửa đất
ở cột D sheets"KETQUA" đếm xem có bao nhiêu tờ bản đồ, ở cột F tính tổng diện tích
Với trường hợp chọn vào Button "LỌC TẤT CẢ" chương trình sẽ lọc toàn bộ dữ liệu bên sheets"DATA" sang sheets"KETQUA" với điều kiện như trên
Dữ liệu và kết quả mong muốn em đã thể hiện trong file đính kèm ạ
Em cảm ơn Thầy cô và anh chị trên diễn đàn giúp đỡ ạ

Mở file và chọn điều kiện

Lọc dữ liệu có điều kiện và Merge Cell (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ắn bó

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

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

File đính kèm

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

Thành viên mới

File đính kèm

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

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

File đính kèm

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

File đính kèm

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

Thành viên tích cực

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

Biên Hòa, Đồng Nai

Đang đi tìm hòn đá

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

Thành viên tích cực

Đang đi tìm hòn đá

Biên Hòa, Đồng Nai

Thành viên tích cực

Biên Hòa, Đồng Nai

Thành viên tích cực

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

Biên Hòa, Đồng Nai

Đang đi tìm hòn đá

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

Biên Hòa, Đồng Nai

Biên Hòa, Đồng Nai

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

Biên Hòa, Đồng Nai

File đính kèm

Thành viên mới

Chuyên gia GPE

File đính kèm

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