Lấy ngày của tuần trùng nhau

[hongphuong1997]

Các bác và anh chị viết giúp em hàm này với ạ
Em xin cảm ơn ạ

 

[CHAOQUAY]

Các bác và anh chị viết giúp em hàm này với ạ
Em xin cảm ơn ạ

Thử hàm dưới đây
Cú pháp = Loc(dòng 5, dòng 6, dòng 3)
Chỉ số dòng mẫu lấy theo file ví dụ

Option Explicit

Function Loc(mangGoc_, mangSosanh_, mangSo_)
Dim mangGoc, mangSosanh, mangSo
Dim j, k
mangGoc = mangGoc_
mangSosanh = mangSosanh_
mangSo = mangSo_
For j = 1 To UBound(mangGoc, 2)
    If mangGoc(1, j) = mangSosanh(1, j) Then
        k = k & " " & mangSo(1, j)
    End If
Next j
Loc = Replace(Trim(k), " ", ";")
End Function

 

[hongphuong1997]

Thử hàm dưới đây
Cú pháp = Loc(dòng 5, dòng 6, dòng 3)
Chỉ số dòng mẫu lấy theo file ví dụ

Option Explicit

Function Loc(mangGoc_, mangSosanh_, mangSo_)
Dim mangGoc, mangSosanh, mangSo
Dim j, k
mangGoc = mangGoc_
mangSosanh = mangSosanh_
mangSo = mangSo_
For j = 1 To UBound(mangGoc, 2)
    If mangGoc(1, j) = mangSosanh(1, j) Then
        k = k & " " & mangSo(1, j)
    End If
Next j
Loc = Replace(Trim(k), " ", ";")
End Function

Ối! em cảm ơn anh ạ
Anh @CHAOQUAY oi, còn các dòng tiếp theo thì như nào hở anh oi
anh thức khuya vậy hở anh?

Bài đã được tự động gộp: 4/11/20

Cái anh @snow25 vẫn chưa khò khò hở mà anh cười gì vậy?

 

[CHAOQUAY]

Ối! em cảm ơn anh ạ
Anh @CHAOQUAY oi, còn các dòng tiếp theo thì như nào hở anh oi
anh thức khuya vậy hở anh?

Bài đã được tự động gộp: 4/11/20

Cái anh @snow25 vẫn chưa khò khò hở mà anh cười gì vậy?

Ví dụ:
= Loc(dòng 5, dòng 7, dòng 3)
= Loc(dòng 5, dòng 8, dòng 3)

Các dòng khác tương tụ

 

[hongphuong1997]

Ví dụ:
= Loc(dòng 5, dòng 7, dòng 3)
= Loc(dòng 5, dòng 8, dòng 3)

Các dòng khác tương tụ

Hi hi anh oi
Em chưa nói hết ý anh oi
Như này anh oi
= Loc(dòng 5, dòng 6, dòng 3)
= Loc(dòng 5, dòng 6,dòng7, dòng 3)
= Loc(dòng 5, dòng 6,dòng7, dòng8,dòng 3)
= Loc(dòng 5, dòng 6,dòng7, dòng8,dòng9,dòng 3)
Anh sửa cho em với ạ
Em cảm ơn anh.

 

[CHAOQUAY]

Hi hi anh oi
Em chưa nói hết ý anh oi
Như này anh oi
= Loc(dòng 5, dòng 6, dòng 3)
= Loc(dòng 5, dòng 6,dòng7, dòng 3)
= Loc(dòng 5, dòng 6,dòng7, dòng8,dòng 3)
= Loc(dòng 5, dòng 6,dòng7, dòng8,dòng9,dòng 3)
Anh sửa cho em với ạ
Em cảm ơn anh.

Hiểu nhầm bài 1, bạn thử hàm dưới đây xem sao

Option Explicit

Function Loc(mangGoc_, mangSo_)
Dim mangGoc, mangSo
Dim rws
Dim i, j, k, x, t
mangGoc = mangGoc_
mangSo = mangSo_
rws = UBound(mangGoc)
For j = 1 To UBound(mangGoc, 2)
    x = mangGoc(1, j)
    k = 1
    For i = 2 To rws
        If mangGoc(i, j) = x Then k = k + 1
    Next i
    If k = rws Then t = t & " " & mangSo(1, j)
Next j
Loc = Replace(Trim(t), " ", ";")
End Function

---
Code này dùng cho vùng kiểm tra (Tuần/ ) nhiều hơn 1 dòng nhé bạn

 

[hongphuong1997]

Hiểu nhầm bài 1, bạn thử hàm dưới đây xem sao

Option Explicit

Function Loc(mangGoc_, mangSo_)
Dim mangGoc, mangSo
Dim rws
Dim i, j, k, x, t
mangGoc = mangGoc_
mangSo = mangSo_
rws = UBound(mangGoc)
For j = 1 To UBound(mangGoc, 2)
    x = mangGoc(1, j)
    k = 1
    For i = 2 To rws
        If mangGoc(i, j) = x Then k = k + 1
    Next i
    If k = rws Then t = t & " " & mangSo(1, j)
Next j
Loc = Replace(Trim(t), " ", ";")
End Function

---
Code này dùng cho vùng kiểm tra (Tuần/ ) nhiều hơn 1 dòng nhé bạn

Em cảm ơn anh @CHAOQUAY rất nhiều ạ
Khiếp có mấy phút mà anh trả lời giúp cho bao nhiều người, bao nhiêu vấn đề.
Em chúc anh Ngủ nhon nhon anh nhé!