Cần trợ giúp 1 công thức(mảng) !!! (1 người xem)

[lbnguyen]

Mình có 2 cột dữ liệu: Ngày và ĐH

Mình muốn tạo một CT để lọc dữ liệu ĐH tương ứng với 1 ngày nào đó như file đính kèm

Ai biết giúp mình nhé !!!

 

[SA_DQ]

Mình giúp bạn 1 hàm mảng tự tạo nhe:

Đầu tiên bạn chép đoạn mã này vô module1:

Option Explicit
Function Arr_(Num As Byte, Rng As Range)
 Dim Rws As Long, Jj As Integer, sRng As Range, Cls As Range
 
 Rws = Rng.Rows.Count
 ReDim Arr(1 To Rws)
 Set sRng = Rng.Find(Num, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Each Cls In Range(sRng, Rng(Rws))
        If Cls.Value = Num Then
            Jj = Jj + 1
            Arr(Jj) = Cls.Offset(, 1).Value
        End If
    Next Cls
 End If
 For Rws = Jj + 1 To Rws
    Arr(Rws) = ""
 Next Rws
 Arr_ = WorksheetFunction.Transpose(Arr())
End Function

Bước hai:
Bạn dùng chuộc chọn vùng I8:i13 & bấm chuộc lên thanh công thức & nhập cú fáp:

=Arr_(D12,D717) ​

Cuối cùng là bấm tổ hợp fím dành cho hàm mảng.

(húc thành công & những mong khỏi đưa file lên!

 

[ndu96081631]

Mình có 2 cột dữ liệu: Ngày và ĐH

Mình muốn tạo một CT để lọc dữ liệu ĐH tương ứng với 1 ngày nào đó như file đính kèm

Ai biết giúp mình nhé !!!

Công thức đương nhiên là được ---> Hãy tìm các bài toán liên quan đến lọc dữ liệu theo điều kiện nhé
Tuy nhiên, tôi cho rằng bài này dùng Advanced Filter là nhanh nhất:

[video=youtube;DOpFr3iF8rM]http://www.youtube.com/watch?v=DOpFr3iF8rM&feature=youtu.be[/video]

 

[lbnguyen]

Đầu tiên bạn chép đoạn mã này vô module1:

Option Explicit
Function Arr_(Num As Byte, Rng As Range)
 Dim Rws As Long, Jj As Integer, sRng As Range, Cls As Range
 
 Rws = Rng.Rows.Count
 ReDim Arr(1 To Rws)
 Set sRng = Rng.Find(Num, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Each Cls In Range(sRng, Rng(Rws))
        If Cls.Value = Num Then
            Jj = Jj + 1
            Arr(Jj) = Cls.Offset(, 1).Value
        End If
    Next Cls
 End If
 For Rws = Jj + 1 To Rws
    Arr(Rws) = ""
 Next Rws
 Arr_ = WorksheetFunction.Transpose(Arr())
End Function

Bước hai:
Bạn dùng chuộc chọn vùng I8:i13 & bấm chuộc lên thanh công thức & nhập cú fáp:

=Arr_(D12,D717) ​

Cuối cùng là bấm tổ hợp fím dành cho hàm mảng.

(húc thành công & những mong khỏi đưa file lên!

Bước 2 thì OK
Bước 1 : không biết cái module1 ở đâu

 

[lbnguyen]

Công thức đương nhiên là được ---> Hãy tìm các bài toán liên quan đến lọc dữ liệu theo điều kiện nhé
Tuy nhiên, tôi cho rằng bài này dùng Advanced Filter là nhanh nhất:

[video=youtube;DOpFr3iF8rM]http://www.youtube.com/watch?v=DOpFr3iF8rM&feature=youtu.be[/video]

Cái này mình biết làm rồi nhưng không tiện vì khi thay đổi điều kiện lại phải làm lại thao tác hơn nữa không thể chuyển sang sheet khác, file khác

 

[SA_DQ]

Bạn xem trong file

B2 - OK
Bước 1 : không biết cái module1 ở đâu

:nguguc: . . . . . . . . .

 

[lbnguyen]

Không ra kết quả
AAAAAA được rồi cảm ơn các bạn nhiều

 

[lbnguyen]

Cái Mảng này dùng được trong excel 2003 nhưng không được trong 2007. Lỗi #NAME? Có cách nào không các bạn ơi