Thống kê dữ liệu ngày cuối

hongphuong1997 · 26/8/18

Nhờ các bác trên diễn đàn viết code giúp như file đính kèm

truongvu317 · 27/8/18

Dùng vba nhá cưng, cơ mà chả hiểu cái mô tê gì.

hongphuong1997 · 27/8/18

truongvu317 đã viết:
Dùng vba nhá cưng, cơ mà chả hiểu cái mô tê gì.

Vâng ạ! Anh viết code cho em với anh nhé!

concogia · 27/8/18

hongphuong1997 đã viết:
Nhờ các bác trên diễn đàn viết code giúp như file đính kèm

Thử em này, viết theo cấu trúc của bài thôi nhé

Mã:

Public Sub Teo()
    Dim Vung, I, J, K, Kq
    Set Vung = [B4:M10]: K = 1
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then
                Kq(1, 1) = Vung(I, 1)
                For J = 2 To Vung.Columns.Count
                    If Len(Vung(I, J)) = 3 Then
                        K = K + 1
                        Kq(1, K) = Vung(I, J)
                    End If
                Next J
                Exit For
            End If
        Next I
    [B16].Resize(, Vung.Columns.Count) = Kq
End Sub

Ba Tê · 27/8/18

concogia đã viết:

Thử em này, viết theo cấu trúc của bài thôi nhé

Mã:

Public Sub Teo()
    Dim Vung, I, J, K, Kq
    Set Vung = [B4:M10]: K = 1
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then
                Kq(1, 1) = Vung(I, 1)
                For J = 2 To Vung.Columns.Count
                    If Len(Vung(I, J)) = 3 Then
                        K = K + 1
                        Kq(1, K) = Vung(I, J)
                    End If
                Next J
                Exit For
            End If
        Next I
    [B16].Resize(, Vung.Columns.Count) = Kq
End Sub

Híc!
Hên là dòng cuối có vài ô Len()=3, nếu không có thì "phải nàm thao"?

concogia · 27/8/18

Ba Tê đã viết:
Híc!
Hên là dòng cuối có vài ô Len()=3, nếu không có thì "phải nàm thao"?

Nếu hông có thì....muốn sao thì sao, đã nói viết theo đề bài mà. Huhu
Chắc phải "zì"

Mã:

For I = Vung.Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then
                Kq(1, 1) = Vung(I, 1)
                For J = 2 To Vung.Columns.Count
                    If Len(Vung(I, J)) = 3 Then
                        K = K + 1
                        Kq(1, K) = Vung(I, J)
                    End If
                Next J
                If K > 1 Then Exit For
            End If
        Next I

Híc, Ba Tê để ý ghế quá

phihndhsp · 27/8/18

concogia đã viết:
Nếu hông có thì....muốn sao thì sao, đã nói viết theo đề bài mà. Huhu
Híc

Lâu lắm rồi mới thấy bác cò ghé thăm diễn đàn hihi

concogia · 27/8/18

phihndhsp đã viết:
Lâu lắm rồi mới thấy bác cò ghé thăm diễn đàn hihi

Hihi, thấy nhớ anh em, với lại ôn bài không thì quên hết Phi ạ

hongphuong1997 · 27/8/18

concogia đã viết:
Nếu hông có thì....muốn sao thì sao, đã nói viết theo đề bài mà. Huhu
Chắc phải "zì"

Mã:

For I = Vung.Rows.Count To 1 Step -1 If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then Kq(1, 1) = Vung(I, 1) For J = 2 To Vung.Columns.Count If Len(Vung(I, J)) = 3 Then K = K + 1 Kq(1, K) = Vung(I, J) End If Next J If K > 1 Then Exit For End If Next I

Híc, Ba Tê để ý ghế quá

Cháu cảm ơn bác Congà. Bác ơi nhưng mà cháu nói là (Ở DÒNG CUỐI CÙNG BÁC À)
VẬY NẾU DÒNG CUỐI CÙNG KHÔNG CÓ THÌ THÔNG SẼ BÁO LÀ "nO" BÁC À
Nhưng ở đây dòng cuối không có 3 chữ số thì bác lại cho nhảy lên dòng bên trên
Bác sửa giúp cho cháu với.
Cháu cảm ơn

Ba Tê · 27/8/18

concogia đã viết:
Hihi, thấy nhớ anh em, với lại ôn bài không thì quên hết Phi ạ

Khà khà!!!!!!!!!!!!!!
Xem bài #9 thì mới thấy "tèo" vì "muốn trả bài sợ quên!"
Từ đầu tui "nghi nghi..." rồi.

Phan Thế Hiệp · 27/8/18

Ba Tê đã viết:
Khà khà!!!!!!!!!!!!!!
Xem bài #9 thì mới thấy "tèo" vì "muốn trả bài sợ quên!"
Từ đầu tui "nghi nghi..." rồi.

Ủa! anh Ba! ai dám bắt anh Cò "trả bài" dzậy ta!?

Khà khà khà!
/-*+/

concogia · 27/8/18

hongphuong1997 đã viết:
Cháu cảm ơn bác Congà. Bác ơi nhưng mà cháu nói là (Ở DÒNG CUỐI CÙNG BÁC À)
VẬY NẾU DÒNG CUỐI CÙNG KHÔNG CÓ THÌ THÔNG SẼ BÁO LÀ "nO" BÁC À
Nhưng ở đây dòng cuối không có 3 chữ số thì bác lại cho nhảy lên dòng bên trên
Bác sửa giúp cho cháu với.
Cháu cảm ơn

Thế thì "zì":

Mã:

Public Sub Teo()
    Dim Vung, I, J, K, Kq
    Set Vung = [B4:M10]: K = 1
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then
                Kq(1, 1) = Vung(I, 1)
                For J = 2 To Vung.Columns.Count
                    If Len(Vung(I, J)) = 3 Then
                        K = K + 1
                        Kq(1, K) = Vung(I, J)
                    End If
                Next J
                Exit For
            End If
        Next I
    [B16].Resize(, Vung.Columns.Count).ClearContents
    If K > 1 Then
        [B16].Resize(, Vung.Columns.Count) = Kq
    Else
        [B16] = "NO NO NO"
    End If
End Sub

Thân

Ba Tê · 27/8/18

concogia đã viết:

Thế thì "zì":

Mã:

Public Sub Teo()
    Dim Vung, I, J, K, Kq
    Set Vung = [B4:M10]: K = 1
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then
                Kq(1, 1) = Vung(I, 1)
                For J = 2 To Vung.Columns.Count
                    If Len(Vung(I, J)) = 3 Then
                        K = K + 1
                        Kq(1, K) = Vung(I, J)
                    End If
                Next J
                Exit For
            End If
        Next I
    [B16].Resize(, Vung.Columns.Count).ClearContents
    If K > 1 Then
        [B16].Resize(, Vung.Columns.Count) = Kq
    Else
        [B16] = "NO NO NO"
    End If
End Sub

Thân

Tự tác giả làm khó nhau, ngày cuối là ngày 5 thì đừng nhập số 6, 7.... bên dưới.
Đếm dòng cuối bi nhiêu cái Len()=3 thì liệt kê, hổng có thì "No no no..."
Híc!

hongphuong1997 · 27/8/18

concogia đã viết:

Thế thì "zì":

Mã:

Public Sub Teo()
    Dim Vung, I, J, K, Kq
    Set Vung = [B4:M10]: K = 1
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then
                Kq(1, 1) = Vung(I, 1)
                For J = 2 To Vung.Columns.Count
                    If Len(Vung(I, J)) = 3 Then
                        K = K + 1
                        Kq(1, K) = Vung(I, J)
                    End If
                Next J
                Exit For
            End If
        Next I
    [B16].Resize(, Vung.Columns.Count).ClearContents
    If K > 1 Then
        [B16].Resize(, Vung.Columns.Count) = Kq
    Else
        [B16] = "NO NO NO"
    End If
End Sub

Thân

Được rùi bác à
Cháu cảm ơn bác Congà

Bài đã được tự động gộp: 27/8/18

concogia đã viết:

Thế thì "zì":

Mã:

Public Sub Teo()
    Dim Vung, I, J, K, Kq
    Set Vung = [B4:M10]: K = 1
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.WorksheetFunction.CountA(Vung.Rows(I)) > 1 Then
                Kq(1, 1) = Vung(I, 1)
                For J = 2 To Vung.Columns.Count
                    If Len(Vung(I, J)) = 3 Then
                        K = K + 1
                        Kq(1, K) = Vung(I, J)
                    End If
                Next J
                Exit For
            End If
        Next I
    [B16].Resize(, Vung.Columns.Count).ClearContents
    If K > 1 Then
        [B16].Resize(, Vung.Columns.Count) = Kq
    Else
        [B16] = "NO NO NO"
    End If
End Sub

Thân

Bác Congà ơi cho cháu hỏi thêm nhé "Đã hỏi thì hỏi cho chót"
Cháu muốn thống kê thêm cả số liệu của các số hàng ngàn (Tức là số có 4 chữ số)
Xuống dòng dưới của kết quả 3 chữ số thì làm như nào hở bác
Bác giúp cháu với nhé
Cháu cảm ơn bác!

Thống kê dữ liệu ngày cuối

hongphuong1997

Thành viên tiêu biểu

File đính kèm

truongvu317

Thành viên tích cực

hongphuong1997

Thành viên tiêu biểu

concogia

Gội rồi mới Cạo

Ba Tê

Cạo Rồi Khỏi Gội

concogia

Gội rồi mới Cạo

phihndhsp

Thành viên gạo cội

concogia

Gội rồi mới Cạo

hongphuong1997

Thành viên tiêu biểu

Ba Tê

Cạo Rồi Khỏi Gội

Phan Thế Hiệp

-⍟-

concogia

Gội rồi mới Cạo

Ba Tê

Cạo Rồi Khỏi Gội

hongphuong1997

Thành viên tiêu biểu

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

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