Hỏi: Lọc Giá Trị Max - Min Theo Điều Kiện Cho Trước?? (8 người xem)

  • Thread starter Thread starter nad582
  • Ngày gửi Ngày gửi
Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
nad582

nad582

Thành viên thường trực
Tham gia
7/6/11
Bài viết
317
Được thích
48
Chào các a(c) trong GPE, e có vấn đề sau, mong a(c) giúp đỡ?
Vấn đề như sau:
Cột B e có "tên 1", cột R e có "tên 2", cột I là giá trị "M"
Đối với 1 tên của cột "tên 1" thì có 3 tên ứng với cột "Tên 2", như vậy tìm giá trị nhỏ nhất - lớn nhất ứng với 3 tên của côt "tên 2".
Ví dụ:
Ở cột "tên 1" có 1 tên là D13 ứng với cột "tên 2" là 3 tên "D1315 - D1320 - D1315" và ứng với cột "tên 2" có giá trị "M". Vậy tìm:
giá trị nhỏ nhất ứng với tên "D1315",
giá trị lớn nhất ứng với tên "D1320",
giá trị nhỏ nhất ứng với tên "D1315",
Những giá trị tìm được thì tô màu đỏ!!
....................................................
Nếu cho hình dung được e sẽ trình bày rõ hơn!! a(c) xem trong file đính kèm!! Chân thành cảm ơn nhiều!!
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
nad582 đã viết:
Chào các a(c) trong GPE, e có vấn đề sau, mong a(c) giúp đỡ?
Vấn đề như sau:
Cột B e có "tên 1", cột R e có "tên 2", cột I là giá trị "M"
Đối với 1 tên của cột "tên 1" thì có 3 tên ứng với cột "Tên 2", như vậy tìm giá trị nhỏ nhất - lớn nhất ứng với 3 tên của côt "tên 2".
Ví dụ:
Ở cột "tên 1" có 1 tên là D13 ứng với cột "tên 2" là 3 tên "D1315 - D1320 - D1315" và ứng với cột "tên 2" có giá trị "M". Vậy tìm:
giá trị nhỏ nhất ứng với tên "D1315",
giá trị lớn nhất ứng với tên "D1320",
giá trị nhỏ nhất ứng với tên "D1315",
Những giá trị tìm được thì tô màu đỏ!!
....................................................
Nếu cho hình dung được e sẽ trình bày rõ hơn!! a(c) xem trong file đính kèm!! Chân thành cảm ơn nhiều!!
Nhấp chuột vào đây để mở rộng...

nếu đã được sắp xếp như trong bài thì thử
Mã: 
Sub LocGiaTriNhoNhat()
Dim debai, kq(1 To 60000, 1 To 17) As Variant, i, k As Long, ten2 As String
With Sheets("debai")
    debai = .Range(.[b14], .[b14].End(4)).Resize(, 17).Value
End With

For i = 1 To UBound(debai)
    If debai(i, 17) = ten2 Then
        If kq(k, 8) > debai(i, 8) Then kq(k, 8) = debai(i, 8)
    Else
        k = k + 1
        kq(k, 1) = debai(i, 1)
        kq(k, 8) = debai(i, 8)
        kq(k, 17) = Right(debai(i, 17), 3)
        ten2 = debai(i, 17)
    End If
Next i

If k Then
    With Sheets("ketqua")
    .[a14:g60000].ClearContents
    .[b14].Resize(k, 17) = kq
    End With
End If
End Sub

nếu chưa được sắp xếp thì phải xài dictionary
 
Upvote 0
nhapmon đã viết:
nếu đã được sắp xếp như trong bài thì thử
Mã: 
Sub LocGiaTriNhoNhat()
Dim debai, kq(1 To 60000, 1 To 17) As Variant, i, k As Long, ten2 As String
With Sheets("debai")
    debai = .Range(.[b14], .[b14].End(4)).Resize(, 17).Value
End With

For i = 1 To UBound(debai)
    If debai(i, 17) = ten2 Then
        If kq(k, 8) > debai(i, 8) Then kq(k, 8) = debai(i, 8)
    Else
        k = k + 1
        kq(k, 1) = debai(i, 1)
        kq(k, 8) = debai(i, 8)
        kq(k, 17) = Right(debai(i, 17), 3)
        ten2 = debai(i, 17)
    End If
Next i

If k Then
    With Sheets("ketqua")
    .[a14:g60000].ClearContents
    .[b14].Resize(k, 17) = kq
    End With
End If
End Sub

nếu chưa được sắp xếp thì phải xài dictionary
Nhấp chuột vào đây để mở rộng...
Cảm ơn bài của a, nhưng ở #1 là yêu cầu: tìm giá trị nhỏ nhất - lớn nhất. Còn kết quả bài a chỉ tìm giá trị nhỏ nhất ak!!
xem giúp em:
nad582 đã viết:
Vấn đề như sau:
Cột B e có "tên 1", cột R e có "tên 2", cột I là giá trị "M"
Đối với 1 tên của cột "tên 1" thì có 3 tên ứng với cột "Tên 2", như vậy tìm giá trị nhỏ nhất - lớn nhất ứng với 3 tên của côt "tên 2".
Ví dụ:
Ở cột "tên 1" có 1 tên là D13 ứng với cột "tên 2" là 3 tên "D1315 - D1320 - D1315" và ứng với cột "tên 2" có giá trị "M". Vậy tìm:
giá trị nhỏ nhất ứng với tên "D1315",
giá trị lớn nhất ứng với tên "D1320",
giá trị nhỏ nhất ứng với tên "D1315",
Những giá trị tìm được thì tô màu đỏ, "như trong sheet debai"!!
Nhấp chuột vào đây để mở rộng...
Mong các a(c) giúp đỡ!!
 
Upvote 0
nhapmon đã viết:
như vậy là
đoạn đầu tìm min
giữa tìm max
cuối tìm min?
Nhấp chuột vào đây để mở rộng...
Vâng đúng rồi ak!!
Nhưng số dòng có thể thay đổi chứ nó không có định như vậy vì có dữ liệu nhiều và dữ liệu ít!
Mặc dù số dòng thay đổi nhưng cái dạng nó vẫn giữ nguyên như vậy!!
Mong a(c) giúp dùm!!!
 
Upvote 0
nad582 đã viết:
Vâng đúng rồi ak!!
Nhưng số dòng có thể thay đổi chứ nó không có định như vậy vì có dữ liệu nhiều và dữ liệu ít!
Mặc dù số dòng thay đổi nhưng cái dạng nó vẫn giữ nguyên như vậy!!
Mong a(c) giúp dùm!!!
Nhấp chuột vào đây để mở rộng...

thôi thì cứ thử cái này
Mã: 
Sub LocGiaTriNhoNhat()
Dim debai, kq(1 To 60000, 1 To 17) As Variant, cnt, i, k As Long, ten2 As String
With Sheets("debai")
    debai = .Range(.[b14], .[b14].End(4)).Resize(, 17).Value
End With

For i = 1 To UBound(debai)
If cnt = 3 Then cnt = 0
    If debai(i, 17) = ten2 Then
        If cnt <> 2 And kq(k, 8) > debai(i, 8) Then kq(k, 8) = debai(i, 8)
        If cnt = 2 And kq(k, 8) < debai(i, 8) Then kq(k, 8) = debai(i, 8)
    Else
        k = k + 1
        kq(k, 1) = debai(i, 1)
        kq(k, 8) = debai(i, 8)
        kq(k, 17) = Right(debai(i, 17), 3)
        ten2 = debai(i, 17)
        cnt = cnt + 1
    End If
Next i

If k Then
    With Sheets("ketqua")
    .[a14:g60000].ClearContents
    .[b14].Resize(k, 17) = kq
    End With
End If
End Sub
 
Upvote 0
nhapmon đã viết:
thôi thì cứ thử cái này
Mã: 
Sub LocGiaTriNhoNhat()
Dim debai, kq(1 To 60000, 1 To 17) As Variant, cnt, i, k As Long, ten2 As String
With Sheets("debai")
    debai = .Range(.[b14], .[b14].End(4)).Resize(, 17).Value
End With

For i = 1 To UBound(debai)
If cnt = 3 Then cnt = 0
    If debai(i, 17) = ten2 Then
        If cnt <> 2 And kq(k, 8) > debai(i, 8) Then kq(k, 8) = debai(i, 8)
        If cnt = 2 And kq(k, 8) < debai(i, 8) Then kq(k, 8) = debai(i, 8)
    Else
        k = k + 1
        kq(k, 1) = debai(i, 1)
        kq(k, 8) = debai(i, 8)
        kq(k, 17) = Right(debai(i, 17), 3)
        ten2 = debai(i, 17)
        cnt = cnt + 1
    End If
Next i

If k Then
    With Sheets("ketqua")
    .[a14:g60000].ClearContents
    .[b14].Resize(k, 17) = kq
    End With
End If
End Sub
Nhấp chuột vào đây để mở rộng...
a xem lại giúp, nó vẫn ko giống với kết quả em đánh dấu màu đỏ ở "sheet debai"!! vẫn là tìm ra min thôi!!
chân thành cảm ơn!!
 
Upvote 0
Với dữ liệu y như trong bài thì thử code này:
Mã: 
Public Sub ToTe()
    Dim Vung, I, Kq, Wf, A, iHang, M
        Set Vung = Range([B14], [B50000].End(xlUp)).Resize(, 17)
        Set Wf = Application.WorksheetFunction
        iHang = Vung.Rows.Count / 6
        ReDim Kq(1 To iHang, 1 To Vung.Columns.Count)
            For I = 1 To Vung.Rows.Count Step 6
                M = M + 1
                Kq(M, 1) = Vung(I, 1): Kq(M, 17) = Right(Vung(I, 1), 1) & Vung(I, 16)
                    If Right(Vung(I, 17), 1) = "5" Then
                        A = Wf.Min(Vung(I, 8).Resize(6))
                    Else
                        A = Wf.Max(Vung(I, 8).Resize(6))
                    End If
                Kq(M, 8) = A
            Next I
    Sheets("ketqua").[B14:R50000].ClearContents
    Sheets("ketqua").[B14].Resize(iHang, 17) = Kq
End Sub
Nếu khác thì......."tèo"
 
Upvote 0
Fải xài đủ kiểu ăn chơi mới được Cò Già thân mến!
 

File đính kèm

Upvote 0
Cảm ơn bài của a(c), kết quả đều đúng với ý đồ của e, nhưng đới với bài #8 thì đúng hơn vì em kiểm tra khi thêm dữ liệu khác vào (số dòng thay đổi) thì nó vẫn đúng!!
Nhưng ở bài #1 là tìm ra kết quả Min - Max - Min rồi tô màu đỏ tại sheet "debai" luôn, sheet "ketqua" là chỉ để so sánh kết quả thôi ạ
Mong a(c) giúp đỡ!!
 
Upvote 0
nad582 đã viết:
Cảm ơn bài của a(c), kết quả đều đúng với ý đồ của e, nhưng đới với bài #8 thì đúng hơn vì em kiểm tra khi thêm dữ liệu khác vào (số dòng thay đổi) thì nó vẫn đúng!!
Nhưng ở bài #1 là tìm ra kết quả Min - Max - Min rồi tô màu đỏ tại sheet "debai" luôn, sheet "ketqua" là chỉ để so sánh kết quả thôi ạ
Mong a(c) giúp đỡ!!
Nhấp chuột vào đây để mở rộng...

tưởng dể ăn nhảy dzô...........làm té khói......hichic
mượn code bài #8, làm thử
Mã: 
Sub LocGiaTriNhoNhat()
Dim sarr, arr, debai, tam(1 To 60000, 1 To 1) As Variant, cnt, i, j, k As Long, ten2 As String, rng As Range
With Sheets("debai")
    Set rng = .Range(.[b14], .[b14].End(4))
    sarr = rng.Offset(, 7).Value
    arr = rng.Offset(, 7).Value
    debai = rng.Resize(, 17).Value

For i = 1 To UBound(debai)
If cnt = 3 Then cnt = 0
    If debai(i, 17) = ten2 Then
        If cnt < 2 And tam(k, 1) > debai(i, 8) Then arr(j, 1) = tam(k, 1): tam(k, 1) = debai(i, 8): arr(i, 1) = "": j = i
        If cnt = 2 And tam(k, 1) < debai(i, 8) Then arr(j, 1) = tam(k, 1): tam(k, 1) = debai(i, 8): arr(i, 1) = "": j = i ': MsgBox i
    Else
        k = k + 1: j = i
        tam(k, 1) = debai(i, 8)
        arr(i, 1) = ""
        ten2 = debai(i, 17)
        cnt = cnt + 1
    End If
Next i

If k Then
With .[i14].Resize(UBound(debai))
    .Clear
    .Value = arr
    .SpecialCells(4).Font.Color = vbRed
    .Value = sarr
   .Borders.Weight = xlThin
End With
End If
    End With
End Sub
 
Upvote 0
Let'GâuGâu đã viết:
tưởng dể ăn nhảy dzô...........làm té khói......hichic
mượn code bài #8, làm thử
Mã: 
Sub LocGiaTriNhoNhat()
Dim sarr, arr, debai, tam(1 To 60000, 1 To 1) As Variant, cnt, i, j, k As Long, ten2 As String, rng As Range
With Sheets("debai")
    Set rng = .Range(.[b14], .[b14].End(4))
    sarr = rng.Offset(, 7).Value
    arr = rng.Offset(, 7).Value
    debai = rng.Resize(, 17).Value

For i = 1 To UBound(debai)
If cnt = 3 Then cnt = 0
    If debai(i, 17) = ten2 Then
        If cnt < 2 And tam(k, 1) > debai(i, 8) Then arr(j, 1) = tam(k, 1): tam(k, 1) = debai(i, 8): arr(i, 1) = "": j = i
        If cnt = 2 And tam(k, 1) < debai(i, 8) Then arr(j, 1) = tam(k, 1): tam(k, 1) = debai(i, 8): arr(i, 1) = "": j = i ': MsgBox i
    Else
        k = k + 1: j = i
        tam(k, 1) = debai(i, 8)
        arr(i, 1) = ""
        ten2 = debai(i, 17)
        cnt = cnt + 1
    End If
Next i

If k Then
With .[i14].Resize(UBound(debai))
    .Clear
    .Value = arr
    .SpecialCells(4).Font.Color = vbRed
    .Value = sarr
   .Borders.Weight = xlThin
End With
End If
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Chân thành cảm ơn bài của a, nó đúng với yêu cầu của em!
Ngoài cách trên, có thể làm cách khác ngắn gọn hơn cho em dẽ hiểu hơn được hok (hoặc cách xử lý khác hơn), vì e mới tiếp cận đến với VBA!! e muốn học hỏi thêm nhiều cách!!
cảm ơn rất nhiều!!
 
Upvote 0
tôi nghĩ giải pháp là như vậy (nhưng chưa làm...hihihih)
1- tạo ra một cột số tt (để trả lại nguyên trạng sau khi sort, nếu trong số liệu ban đã có thì khỏi phải tạo)
2-sort theo ưu tiên cột B, ưu tiên 2 cột R, ưu tiên 3 cột I (cột I từ nhỏ đến lớn)
3- dùng vòng lặp như trên, ô đâu tiên tô màu đỏ, khi biến cnt=2 thì ko tô, vòng cuối thì resize lên trên một ô (tức là cái max của nhóm trên), tô màu đỏ cho 2 ô này
4 sau khi kết thúc vòng lặp, sort lại theo cột số tt để trả lại nguyên trạng
 
Upvote 0
nad582 đã viết:
Chân thành cảm ơn bài của a, nó đúng với yêu cầu của em!
Ngoài cách trên, có thể làm cách khác ngắn gọn hơn cho em dẽ hiểu hơn được hok (hoặc cách xử lý khác hơn), vì e mới tiếp cận đến với VBA!! e muốn học hỏi thêm nhiều cách!!
cảm ơn rất nhiều!!
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub locminmax()
Dim r, s, x, y
Set s = Sheets("debai").[I13]
x = [I:Q].Columns.Count
y = [I:R].Columns.Count
Do While s.Offset(1, y - 1) <> ""
    Set s = s.Offset(1)
    Minmax = s
    r = s.Row
    Rows(r).Font.Color = vbRed
    Do While s.Offset(1, y - 1) = s.Offset(, y - 1)
        Set s = s.Offset(1)
        If s < Minmax And s.Offset(, x - 1) = 15 Or _
        s > Minmax And s.Offset(, x - 1) = 20 Then
            Minmax = s
            s.EntireRow.Font.Color = vbRed
            Rows(r).Font.Color = vbBlack
            r = s.Row
        End If
    Loop
Loop
End Sub
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

NguyenBaChien
Nhờ tách lấy số và tính tổng có điều kiện của dãy số (4 người xem)
Trả lời
3
Đọc
31
NguyenBaChien
NguyenBaChien
H
xin mọi người giúp em làm tròn với ạ (1 người xem)
Trả lời
5
Đọc
94
vietduc147258
V
L
[Xin giúp] Cách copy công thức từ bảng tham chiếu vào một ô (2 người xem)
Trả lời
2
Đọc
38
Lá chanh
L
hoangluongvinh
Cách nhặt các dữ liệu bị trùng của 1 đối tượng
Trả lời
8
Đọc
167
tt_kimbai
T
N
  • Question Question
Cách viết tiếng việt có dấu trong msgbox,....... Hoàn toàn mới (1 người xem)
    • Thích
2
Trả lời
35
Đọc
5K
ligktit
L
T
  • Question Question
Lọc dữ liệu có nhiều điều kiện
Trả lời
2
Đọc
117
tt_kimbai
T
longhungvnpost
cả nhà giúp e tạo ô tìm kiếm gợi ý trong danh sách nhé
Trả lời
3
Đọc
105
longhungvnpost
longhungvnpost
S
Cố định độ rộng/ cao của cột/hàng?
Trả lời
12
Đọc
17K
khanhnth02
K
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
15 16 17
Trả lời
329
Đọc
26K
tt_kimbai
T
dung1983
Hỏi về import - Table/ XML cho bảng, trang có chứa JS
Trả lời
0
Đọc
61
dung1983
dung1983
HeSanbi
  • Đã giải quyết
VBA_FastCode v2.22 - Công cụ học và viết mã VBA một cách nhanh nhất (*27/10/2023) (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
51
Đọc
15K
HeSanbi
HeSanbi
Manhhung90
Mail merge in ấn theo từng trang mong muốn.
Trả lời
1
Đọc
109
Hoàng Tuấn 868
H
L
Xin giúp đỡ đổi màu chữ trong mathtype powerpoint sang màu đen
Trả lời
4
Đọc
128
LINHCM
L
ongke0711
  • Question Question
Form Đăng nhập và phân quyền cơ bản
    • Thích
2 3
Trả lời
40
Đọc
5K
Gà Công Nghệ
Gà Công Nghệ
vnxgiokinhtoi
Nhờ giúp đỡ công thức lưu dữ liệu và mở lại dữ liệu cũ đã save (1 người xem)
Trả lời
6
Đọc
213
DeTong
D
A
  • Question Question
Addin lúc hiện lúc không
Trả lời
1
Đọc
109
anhdepjai
A
T
  • Question Question
Ẩn hiện các sheet khi click vào HyperLink
Trả lời
6
Đọc
299
Gà Công Nghệ
Gà Công Nghệ
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
17
Đọc
3K
chienthang2682
C
C
Tải kết quả xổ số 3 miền về excel
    • Thích
3 4 5
Trả lời
98
Đọc
14K
HNam_Phan
H
S
Xuất các bảng công phụ từ bảng công chính trong gg sheet
Trả lời
0
Đọc
117
sirhungvla
S
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom