Tìm số ngày nghỉ liền nhau 2 ngày trở lên (1 người xem)

  • Thread starter Thread starter nvh611
  • 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)
nvh611 đã viết:
Nhờ các bạn trên diễn đàn giúp đỡ như file đính kèm
Cảm ơn các bạn
Nhấp chuột vào đây để mở rộng...
Dùng hàm tự tạo nhé.
Mã: 
Function solan(ByVal mang As Range) As Integer
         Dim arr, i As Long, j As Integer, tong As Integer, a As Integer
         arr = mang.Value
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To UBound(arr, 1) - 1
                 If UCase(arr(i, j)) = "X" And UCase(arr(i + 1, j)) = "X" Then
                    a = a + 1
                 Else
                    tong = tong + a
                    a = 0
                 End If
             Next i
             tong = tong + a
        Next j
       solan = tong
End Function
Mã: 
=solan(C5:F27)
 

File đính kèm

Lần chỉnh sửa cuối:
HieuCD đã viết:
Theo cách tính của các cột phụ
=COUNTIFS(C5:F26,"X",C6:F27,"X")
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @HieuCD bạn sử dụng công thức hay quá.
Bài đã được tự động gộp:

snow25 đã viết:
Dùng hàm tự tạo nhé.
Mã: 
Function solan(ByVal mang As Range) As Integer
         Dim arr, i As Long, j As Integer, tong As Integer, a As Integer
         arr = mang.Value
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To UBound(arr, 1) - 1
                 If UCase(arr(i, j)) = "X" And UCase(arr(i + 1, j)) = "X" Then
                    a = a + 1
                 Else
                    tong = tong + a
                    a = 0
                 End If
             Next i
             tong = tong + a
        Next j
       solan = tong
End Function
Mã: 
=solan(C5:F27)
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @snow25 hàm rất đúng trong trường hợp này
Bây giờ mình muốn tìm số ngày liên tiếp =3 hoặc bất kỳ bằng 4,5...... thì thay đổi hàm chỗ nào được nhỉ
 
Lần chỉnh sửa cuối:
nvh611 đã viết:
Cảm ơn bạn @HieuCD bạn sử dụng công thức hay quá.
Bài đã được tự động gộp:


Cảm ơn bạn @snow25 hàm rất đúng trong trường hợp này
Bây giờ mình muốn tìm số ngày liên tiếp =3 hoặc bất kỳ bằng 4,5...... thì thay đổi hàm chỗ nào được nhỉ
Nhấp chuột vào đây để mở rộng...
Vậy bạn dùng cái này xem.Thích số mấy thì điền vào.
Mã: 
Function solan(ByVal mang As Range, Optional ByVal so As Integer = 1) As Integer
         Dim arr, i As Long, j As Integer, tong As Integer, a As Integer
         arr = mang.Value
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To UBound(arr, 1) - 1
                 If UCase(arr(i, j)) = "X" And UCase(arr(i + 1, j)) = "X" Then
                    a = a + 1
                 Else
                    If a >= so Then tong = tong + a
                    a = 0
                 End If
             Next i
             If a >= so Then tong = tong + a
        Next j
       solan = tong
End Function
Mã: 
=solan(C5:F27,3)
 
snow25 đã viết:
Vậy bạn dùng cái này xem.Thích số mấy thì điền vào.
Mã: 
Function solan(ByVal mang As Range, Optional ByVal so As Integer = 1) As Integer
         Dim arr, i As Long, j As Integer, tong As Integer, a As Integer
         arr = mang.Value
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To UBound(arr, 1) - 1
                 If UCase(arr(i, j)) = "X" And UCase(arr(i + 1, j)) = "X" Then
                    a = a + 1
                 Else
                    If a >= so Then tong = tong + a
                    a = 0
                 End If
             Next i
             If a >= so Then tong = tong + a
        Next j
       solan = tong
End Function
Mã: 
=solan(C5:F27,3)
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn, nhanh quá
Vẫn bị sai bạn à
Nếu trường hợp =3 thì đúng
Khi mình thay =4 thì kết quả =0
Bạn chỉnh giúp mình với nhé.
 
nvh611 đã viết:
Cảm ơn bạn, nhanh quá
Vẫn bị sai bạn à
Nếu trường hợp =3 thì đúng
Khi mình thay =4 thì kết quả =0
Bạn chỉnh giúp mình với nhé.
Nhấp chuột vào đây để mở rộng...
Tạm sửa lại thế này
Mã: 
Function SolanX(ByVal mang As Range, Optional ByVal So As Long = 2) As Integer
         Dim arr, i As Long, j As Long, a As Long, n As Long, k As Long, Tim As Boolean
         arr = mang.Value
         a = 0
         n = UBound(arr, 1) - So + 1
         For j = 1 To UBound(arr, 2)
             For i = 1 To n
                 Tim = True
                 For k = i To i + So - 1
                    If Not UCase(arr(k, j)) = "X" Then Tim = False: Exit For
                 Next
                 If Tim Then a = a + 1
             Next i
        Next j
       SolanX = a
End Function

Công thức (ví dụ)
=SolanX(C5:F27,4)
 
tam888 đã viết:
Tạm sửa lại thế này
Mã: 
Function SolanX(ByVal mang As Range, Optional ByVal So As Long = 2) As Integer
         Dim arr, i As Long, j As Long, a As Long, n As Long, k As Long, Tim As Boolean
         arr = mang.Value
         a = 0
         n = UBound(arr, 1) - So + 1
         For j = 1 To UBound(arr, 2)
             For i = 1 To n
                 Tim = True
                 For k = i To i + So - 1
                    If Not UCase(arr(k, j)) = "X" Then Tim = False: Exit For
                 Next
                 If Tim Then a = a + 1
             Next i
        Next j
       SolanX = a
End Function

Công thức (ví dụ)
=SolanX(C5:F27,4)
Nhấp chuột vào đây để mở rộng...
Bỏ bớt 1 vòng For theo dòng được không bạn, tốc độ tăng lên nhiều :p
 
HieuCD đã viết:
Bỏ bớt 1 vòng For theo dòng được không bạn, tốc độ tăng lên nhiều :p
Nhấp chuột vào đây để mở rộng...
có đây, cũng vừa nghĩ nên bỏ bớt
Mã: 
Function solan(ByVal mang As Range, Optional ByVal So As Long= 2) As Integer
         Dim arr, i As Long, j As Long, tong As Long, a As Long, n As Long
         arr = mang.Value
         tong = 0
         n=UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                 Else
                    If a >= So Then tong = tong + a - So + 1
                    a = 0
                 End If
             Next i
             If a >= So Then tong = tong + a - So + 1
        Next j
       solan = tong
End Function
 
Lần chỉnh sửa cuối:
tam888 đã viết:
có đây, cũng vừa nghĩ nên bỏ bớt
Mã: 
Function solan(ByVal mang As Range, Optional ByVal So As Integer = 2) As Integer
         Dim arr, i As Long, j As Long, tong As Long, a As Integer, n As Long
         arr = mang.Value
         tong = 0
         n=UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                 Else
                    If a >= So Then tong = tong + a - So + 1
                    a = 0
                 End If
             Next i
             If a >= So Then tong = tong + a - So + 1
        Next j
       solan = tong
End Function
Nhấp chuột vào đây để mở rộng...
Hay quá :), code chạy rất nhanh, nếu rút ngắn thêm vài dòng lệnh là tuyệt vời :p
 
tam888 đã viết:
có đây, cũng vừa nghĩ nên bỏ bớt
Mã: 
Function solan(ByVal mang As Range, Optional ByVal So As Long= 2) As Integer
         Dim arr, i As Long, j As Long, tong As Long, a As Long, n As Long
         arr = mang.Value
         tong = 0
         n=UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                 Else
                    If a >= So Then tong = tong + a - So + 1
                    a = 0
                 End If
             Next i
             If a >= So Then tong = tong + a - So + 1
        Next j
       solan = tong
End Function
Nhấp chuột vào đây để mở rộng...
cẢM ƠN BẠN @tam888 CÔNG THỨC ĐÃ ĐÚNG
 
HieuCD đã viết:
Hay quá :), code chạy rất nhanh, nếu rút ngắn thêm vài dòng lệnh là tuyệt vời :p
Nhấp chuột vào đây để mở rộng...
Thôi, có mỗi hàm nhỏ, rút nữa cũng chắc chẳng được lợi bao nhiêu
Bài đã được tự động gộp:

Tôi thì quan tâm tính hiệu quả về thời gian, còn độ ngắn dòng lệnh thì ít để ý
Bài này có thể nhanh hơn chút nếu dùng Do While, ai đó thử sức xem sao. Tuy thế với số lượng dữ liệu ít thì hiệu quả này là không đáng kể
 
Lần chỉnh sửa cuối:
Cho em ké với: :p
Mã: 
Function solan(ByVal mang As Range, Optional ByVal So As Long = 2) As Integer
         Dim arr, i As Long, j As Long, a As Long, n As Long
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                    If a >= So Then solan = solan + 1
                Else
                    a = 0
                 End If
             Next i
        Next j
End Function
 
phuocam đã viết:
Cho em ké với: :p
Mã: 
Function solan(ByVal mang As Range, Optional ByVal So As Long = 2) As Integer
         Dim arr, i As Long, j As Long, a As Long, n As Long
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                    If a >= So Then solan = solan + 1
                Else
                    a = 0
                 End If
             Next i
        Next j
End Function
Nhấp chuột vào đây để mở rộng...
Quá tuyệt vời :)
Chúc các bạn buổi tối vui :)
 
tam888 đã viết:
có đây, cũng vừa nghĩ nên bỏ bớt
Mã: 
Function solan(ByVal mang As Range, Optional ByVal So As Long= 2) As Integer
         Dim arr, i As Long, j As Long, tong As Long, a As Long, n As Long
         arr = mang.Value
         tong = 0
         n=UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                 Else
                    If a >= So Then tong = tong + a - So + 1
                    a = 0
                 End If
             Next i
             If a >= So Then tong = tong + a - So + 1
        Next j
       solan = tong
End Function
Nhấp chuột vào đây để mở rộng...
Phiền bạn @tam888 và bạn @HieuCD cho thêm dòng tìm số ngày nghỉ liên tiếp lớn nhất
Cảm ơn các bạn bạn
 
nvh611 đã viết:
tìm số ngày nghỉ liên tiếp lớn nhất
Nhấp chuột vào đây để mở rộng...
Mã: 
Function MaxX(ByVal mang As Range) As Integer
         Dim arr, i As Long, j As Long, a As Long, n As Long
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                    If a > MaxX Then MaxX = a
                Else
                    a = 0
                 End If
             Next i
        Next j
End Function
 
phuocam đã viết:
Mã: 
Function MaxX(ByVal mang As Range) As Integer
         Dim arr, i As Long, j As Long, a As Long, n As Long
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                    If a > MaxX Then MaxX = a
                Else
                    a = 0
                 End If
             Next i
        Next j
End Function
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @phuocam liệu 2 hàm này ghép với nhau được không bạn?
 
nvh611 đã viết:
Cảm ơn bạn @phuocam liệu 2 hàm này ghép với nhau được không bạn?
Nhấp chuột vào đây để mở rộng...
Bạn xem code đúng không nhé.
Mã: 
Function solan(ByVal mang As Range, Optional ByVal so As Integer = 2) As String
         Dim arr, i As Long, j As Long, a As Long, n As Long, tong As Integer, max As Integer
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                    If a >= so Then tong = tong + 1
                Else
                    If a >= max Then max = a
                    a = 0
                 End If
             Next i
        Next j
       solan = tong & ";" & max
End Function
Mã: 
=solan(C5:F27,3)
 
nvh611 đã viết:
Nhờ các bạn trên diễn đàn giúp đỡ như file đính kèm
Cảm ơn các bạn
Nhấp chuột vào đây để mở rộng...
Dùng công thức cho trường hợp n ngày liên tiếp:
=SUM(IFERROR(SQRT(FREQUENCY(ROW(C5:F28)+(COLUMN(C5:F28)-1)*ROWS(C5:C28),IF(C5:F28<>"x",ROW(C5:F28)+(COLUMN(C5:F28)-1)*ROWS(C5:C28)))-2)^2,""))
Bấm Ctrl+Shift+Enter!
Muốn thay đổi số ngày liên tiếp khác thì sửa số -2 thành -3 hoặc-4... Muốn tìm ngày liên tiếp lớn nhất thì sửa Sum thành Max là được.
 
excel_lv1.5 đã viết:
Dùng công thức cho trường hợp n ngày liên tiếp:
=SUM(IFERROR(SQRT(FREQUENCY(ROW(C5:F28)+(COLUMN(C5:F28)-1)*ROWS(C5:C28),IF(C5:F28<>"x",ROW(C5:F28)+(COLUMN(C5:F28)-1)*ROWS(C5:C28)))-2)^2,""))
Bấm Ctrl+Shift+Enter!
Muốn thay đổi số ngày liên tiếp khác thì sửa số -2 thành -3 hoặc-4... Muốn tìm ngày liên tiếp lớn nhất thì sửa Sum thành Max là được.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn công thức
Siêu đẳng
Bài đã được tự động gộp:

snow25 đã viết:
Bạn xem code đúng không nhé.
Mã: 
Function solan(ByVal mang As Range, Optional ByVal so As Integer = 2) As String
         Dim arr, i As Long, j As Long, a As Long, n As Long, tong As Integer, max As Integer
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                    If a >= so Then tong = tong + 1
                Else
                    If a >= max Then max = a
                    a = 0
                 End If
             Next i
        Next j
       solan = tong & ";" & max
End Function
Mã: 
=solan(C5:F27,3)
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @snow25 công thức quá hay và quá tuyệt vời
Ý tưởng của mình là khác
(Nhưng bạn làm như này thì hay hơn tuyệt vời hơn vì nó luôn luôn báo trước cho số ngày nghỉ liên tiếp lớn nhất)
Cảm ơn rất nhiều.
 
Lần chỉnh sửa cuối:
snow25 đã viết:
Bạn xem code đúng không nhé.
Mã: 
Function solan(ByVal mang As Range, Optional ByVal so As Integer = 2) As String
         Dim arr, i As Long, j As Long, a As Long, n As Long, tong As Integer, max As Integer
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = "X" Then
                    a = a + 1
                    If a >= so Then tong = tong + 1
                Else
                    If a >= max Then max = a
                    a = 0
                 End If
             Next i
        Next j
       solan = tong & ";" & max
End Function
Mã: 
=solan(C5:F27,3)
Nhấp chuột vào đây để mở rộng...
Chào bạn @snow25 để công thức tiện xử dụng bạn có thể sửa giúp mình thêm 1 hằng số được không
=solan(C5:F27,3) tức là khi tìm bất kỳ hằng số nào đó không phải là X
If UCase(arr(i, j)) = "X" Then
Thì bạn thêm =solan("Y";C5:F27,3) thì bạn thêm hằng số "Y' vào biểu thức
Cảm ơn bạn!
 
nvh611 đã viết:
Chào bạn @snow25 để công thức tiện xử dụng bạn có thể sửa giúp mình thêm 1 hằng số được không
=solan(C5:F27,3) tức là khi tìm bất kỳ hằng số nào đó không phải là X
If UCase(arr(i, j)) = "X" Then
Thì bạn thêm =solan("Y";C5:F27,3) thì bạn thêm hằng số "Y' vào biểu thức
Cảm ơn bạn!
Nhấp chuột vào đây để mở rộng...
Đây bạn xem.Mặc định của nó là "X" nếu bạn không chọn gì.
Mã: 
=solan(B4:B8,2,"x")
Mã: 
Function solan(ByVal mang As Range, Optional ByVal so As Integer = 2, Optional ByVal dk As String = "X") As String
         Dim arr, i As Long, j As Long, a As Long, n As Long, tong As Integer, max As Integer
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = UCase(dk) Then
                    a = a + 1
                    If a >= so Then tong = tong + 1
                Else
                    If a >= max Then max = a
                    a = 0
                 End If
             Next i
        Next j
       solan = tong & ";" & max
End Function
 
snow25 đã viết:
Đây bạn xem.Mặc định của nó là "X" nếu bạn không chọn gì.
Mã: 
=solan(B4:B8,2,"x")
Mã: 
Function solan(ByVal mang As Range, Optional ByVal so As Integer = 2, Optional ByVal dk As String = "X") As String
         Dim arr, i As Long, j As Long, a As Long, n As Long, tong As Integer, max As Integer
         arr = mang.Value
          n = UBound(arr, 1)
         For j = 1 To UBound(arr, 2)
             a = 0
             For i = 1 To n
                 If UCase(arr(i, j)) = UCase(dk) Then
                    a = a + 1
                    If a >= so Then tong = tong + 1
                Else
                    If a >= max Then max = a
                    a = 0
                 End If
             Next i
        Next j
       solan = tong & ";" & max
End Function
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn @snow25
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

V
Công thức để phân công chuyên môn cho giáo viên (2 người xem)
Trả lời
5
Đọc
249
vietvanyen
V
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng (1 người xem)
Trả lời
12
Đọc
216
Phan Thế Hiệp
Phan Thế Hiệp
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel
Trả lời
3
Đọc
55
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính
Trả lời
16
Đọc
281
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++
    • Thích
Trả lời
7
Đọc
647
nguyendang95
N
T
Tìm số hóa đơn trong chuỗi
Trả lời
8
Đọc
348
tranhungdao12a3
T
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
129
Nga1852k
Nga1852k
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
14
Đọc
1K
tung1423
tung1423
D
xin hỏi về lỗi mô đun ẩn.
Trả lời
3
Đọc
142
ongke0711
ongke0711
H
Xin anh chị hướng dẫn công thức excel ạ. (3 người xem)
Trả lời
9
Đọc
274
Phan Thế Hiệp
Phan Thế Hiệp
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
4
Đọc
1K
LeThangbk
L
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
381
Đọc
44K
tuanktt3
T
M
Add-in Excel kết nối cơ sở dữ liệu
Trả lời
1
Đọc
105
ptm0412
ptm0412
Đ
tách dữ liệu từ một dòng thành hai dòng
Trả lời
2
Đọc
146
Phuocam
Phuocam
longhuy
Lỗi error 20728: F
Trả lời
0
Đọc
73
longhuy
longhuy
H
Trang tính chỉ hiển thị vùng có dữ liệu
Trả lời
7
Đọc
605
vinhkm6
vinhkm6
mrjun80
Có hàm nào đếm tổng các số nằm trong 1 ô không mọi người
Trả lời
12
Đọc
495
Phan Thế Hiệp
Phan Thế Hiệp
N
Hàm DATEDIF trong Excel 2016
Trả lời
16
Đọc
14K
Phan Thế Hiệp
Phan Thế Hiệp
Tiger Nau
Đánh số thứ tự trên tờ vé số
Trả lời
6
Đọc
185
ptm0412
ptm0412
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

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

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom