Tính Max hoặc min khoảng theo hàng bằng VBA (2 người xem)

[1986QV]

Anh chị viết code cho cách tính Max hoặc Min cho khoảng trống theo hàng bằng VBA được mô tả theo file đính kèm.
Cảm ơn A/C quan tâm!

 

[ndu96081631]

Anh chị viết code cho cách tính Max hoặc Min cho khoảng trống theo hàng bằng VBA được mô tả theo file đính kèm.
Cảm ơn A/C quan tâm!

Bài bạn hỏi chắc là giống bài này:
http://www.giaiphapexcel.com/forum/showthread.php?26024-Xác-định-blank-lớn-nhất
Tham khảo nhé

 

[hoangvuluan]

Dùng tạm hàm "củ chuối" sau trong khi chờ các anh chị khác nhé:

Function cntMaxBlank(ra As Range) As Long
Dim s As String, iC As Long, j As Long, i As Long, k As Long
    iC = ra.Cells.Count
    If iC < 2 Then
        i = 1
        GoTo endF
    End If
    For i = 1 To iC
        If ra.Cells(i) <> "" Then Exit For
    Next
    If i >= iC - 1 Then
        i = 1
        GoTo endF
    End If
    For j = iC To i Step -1
        If ra.Cells(j) <> "" Then Exit For
    Next
    If j < i - 1 Then
        i = 1
        GoTo endF
    End If
    For k = j To i Step -1
        If ra.Cells(k) = "" Then Exit For
    Next
    k = k + 1
    If k < i Then
        i = 1
        GoTo endF
    End If
   
    For j = i To k 'ra.Cells.Count
        s = s & "|" & ra.Cells(j)
    Next
    For i = Len(s) To 1 Step -1
        If InStr(s, String(i, "|")) > 0 Then Exit For
    Next
endF:
    cntMaxBlank = (i - 1)
End Function

 

[1986QV]

Bác có thể viết lại code với đúng dạng bài của em được không?
Cảm ơn A/C quan tâm!

 

[hoangvuluan]

Bác có thể viết lại code với đúng dạng bài của em được không?
Cảm ơn A/C quan tâm!

Thế bạn đã kiểm tra file đính kèm chưa????

 

[1986QV]

Mình kiểm tra rùi. Đang coi lại bài của bác ndu96081631 xem thế nào? bạn có thể coi qua đi
Cảm ơn A/C quan tâm!

 

[1986QV]

Không thấy bác ndu96081631 trả lời em vậy? em coi qua chạy thử rồi không ổn.
Thứ nhất chạy theo cột, chỉ 1 cột thôi. Thứ hai bài toán của em theo hàng và mảng lớn
Bác xem chỉ giáo dùm em
Cảm ơn mọi người cùng quan tâm!

 

[viehoai]

Không thấy bác ndu96081631 trả lời em vậy? em coi qua chạy thử rồi không ổn.
Thứ nhất chạy theo cột, chỉ 1 cột thôi. Thứ hai bài toán của em theo hàng và mảng lớn
Bác xem chỉ giáo dùm em
Cảm ơn mọi người cùng quan tâm!

Dựa trên code của Bác ndu96081631 mình bổ sung thêm phù hợp với file của bạn
(không tính số Blanks đầu và cuối vùng dữ liệu phải không?)

 

[ndu96081631]

Không thấy bác ndu96081631 trả lời em vậy? em coi qua chạy thử rồi không ổn.
Thứ nhất chạy theo cột, chỉ 1 cột thôi. Thứ hai bài toán của em theo hàng và mảng lớn
Bác xem chỉ giáo dùm em
Cảm ơn mọi người cùng quan tâm!

Gần giống thì cũng phải sửa lại đôi chút chứ

Function MaxBlank(ByVal SrcRng As Range) As Long
  Dim Max As Long, Clls As Range, Chk As Boolean
  For Each Clls In SrcRng
    If Clls.Value <> "" Then Chk = True
    If Chk Then
      If IsEmpty(Clls) Then
        Max = Max + 1
      Else
        If MaxBlank < Max Then MaxBlank = Max
        Max = 0
      End If
    End If
  Next
End Function

 

[1986QV]

Không biết file có lỗi gì không chạy tất các file của các bác và anh em chiến hữu đều không chạy được. Em bực quá. Điên hết cả người. không hiểu vì sao A/e ah? Nản quá.

 

[viehoai]

Không biết file có lỗi gì không chạy tất các file của các bác và anh em chiến hữu đều không chạy được. Em bực quá. Điên hết cả người. không hiểu vì sao A/e ah? Nản quá.

Không chạy nghĩa là sao? Nó có thông báo gì không? bạn phải nói cụ thể chứ, chẳng việc gì phải bực cả khi đã đưa lên GPE

 

[hoangvuluan]

Không chạy nghĩa là sao? Nó có thông báo gì không? bạn phải nói cụ thể chứ, chẳng việc gì phải bực cả khi đã đưa lên GPE

Không lẽ chưa thiết lập chế độ chạy macro???

 

[viehoai]

Không lẽ chưa thiết lập chế độ chạy macro???

Cũng nghĩ vậy, nhưng nếu do vậy thì bạn ấy đã thử code các bài trước đó như thế nào???

 

[1986QV]

Đây là lỗi các bạn coi góp ý mình.

 

[hoangvuluan]

Hic, không những chưa thiết lập mà VBA còn chưa được install.

 

[1986QV]

Bác xem lại đi rõ ràng em thử với code bài khác chạy ngon. Mà bác chưa cài VBA là sao? Do lỗi gì ???

 

[hoangvuluan]

À tại thấy thông báo lỗi VBA chưa cài đặt.
Bạn bảo thử với code bài khác chạy ngon, code đó là VBA hay hàm?

 

[1986QV]

Em chạy lại báo lỗi Application.WindowState = xlMinimized là sao đây các a?

 

[ndu96081631]

Bác xem lại đi rõ ràng em thử với code bài khác chạy ngon. Mà bác chưa cài VBA là sao? Do lỗi gì ???

Bạn đưa nguyên cái file đang bị lỗi lên đây xem thế nào nhé

 

[1986QV]

Xin lỗi mọi người sáng nay mới nhắn lại được. Thực em bị khi chạy hàm nên báo lỗi như vậy. Không biết thủ tục và cách chạy hàm ntn ? Em coi kỹ rồi vẫn bị lỗi. Mọi chỉ cách dùm.