Đếm số lần không xuất hiện từ 10 ngày trở lên của các con số (2 người xem)

[hophoang]

Xin chào cả nhà
Em có một vấn đề này xin cả nhà giúp
Em có 100 con số cho vào 10 cell,mỗi cell chứa 10 số con từ 0 đến 9
Mỗi ngày em nhập từ 50 con đến 60 con còn lại từ 30 đến 40 con.nhưng em không biết dùng cái gì để đếm các con số còn lại không xuất hiện 10 ngày trở lên.
Mong cả nhà giúp xin chân thành cảm ơn

 

[thangnguquen]

Bạn dung hàm count đi.

 

[hophoang]

Bạn dung hàm count đi.

Cái đó thì đơn giản rồi nhưng ở đây ta tính số lần không xuất hiện 10 ngày trở lên còn các số còn lại bỏ qua

 

[Ba Tê]

Xin chào cả nhà
Em có một vấn đề này xin cả nhà giúp
Em có 100 con số cho vào 10 cell,mỗi cell chứa 10 số con từ 0 đến 9
Mỗi ngày em nhập từ 50 con đến 60 con còn lại từ 30 đến 40 con.nhưng em không biết dùng cái gì để đếm các con số còn lại không xuất hiện 10 ngày trở lên.
Mong cả nhà giúp xin chân thành cảm ơn

Cái này mà Hợp dùng từ "đếm" dễ gây hiểu lầm (không có mặt làm sao mà đếm), phải là tìm xem "thằng nào" trong 1 khoảng thời gian mà nó không " ra trình diện" mới phải!
Thử với hàm tự tạo xem, kết quả là 1 chuỗi à nghe:

Public Function Hop(Rng As Range, Hang As Range) As String
Dim Dic As Object, Tem As String, I As Long, Dau As Long, Cuoi As Long, Cll As Range
Set Dic = CreateObject("Scripting.Dictionary")
    Dau = Hang * 10: Cuoi = Hang * 10 + 9
        For Each Cll In Rng
            If Cll.Value <> "" Then
                If Not Dic.Exists(Cll.Value) Then
                    Dic.Add Cll.Value, ""
                End If
            End If
        Next
            For I = Dau To Cuoi
                If Not Dic.Exists(I) Then
                    Tem = Tem & Format(I, "00") & "; "
                End If
            Next I
    Hop = Left(Tem, Len(Tem) - 2)
Set Dic = Nothing
End Function

 

[hophoang]

Cái này mà Hợp dùng từ "đếm" dễ gây hiểu lầm, phải là tìm xem "thằng nào" trong 1 khoảng thời gian mà nó không " ra trình diện" mới phải!
Thử với hàm tự tạo xem, kết quả là 1 chuỗi à nghe:

Hình như nó chưa tuyệt đối thầy ơi (
1.Vì nếu thêm những số nào chưa xuất hiện thì lỗi #VALUE!
2.Đếm những số không xuất hiện không định thời gian mà là lấy từ trên xuống nếu nó không xuất hiện lớn hơn or bằng 10 ngày trở lên.
Em cám ơn thầy

 

[Quang_Hải]

Sao giống nghiên cứu số đề quá vậy ta?

 

[hophoang]

Sao giống nghiên cứu số đề quá vậy ta?

Cái này là mình quản lý số paleet trong kho mình đó đại ca

 

[vodoi2x]

Cái này là mình quản lý số paleet trong kho mình đó đại ca

paleet là gì???

Cái này mà Hợp dùng từ "đếm" dễ gây hiểu lầm (không có mặt làm sao mà đếm), phải là tìm xem "thằng nào" trong 1 khoảng thời gian mà nó không " ra trình diện" mới phải!
Thử với hàm tự tạo xem, kết quả là 1 chuỗi à nghe:

Public Function Hop(Rng As Range, Hang As Range) As String
Dim Dic As Object, Tem As String, I As Long, Dau As Long, Cuoi As Long, Cll As Range
Set Dic = CreateObject("Scripting.Dictionary")
    Dau = Hang * 10: Cuoi = Hang * 10 + 9
        For Each Cll In Rng
            If Cll.Value <> "" Then
                If Not Dic.Exists(Cll.Value) Then
                    Dic.Add Cll.Value, ""
                End If
            End If
        Next
            For I = Dau To Cuoi
                If Not Dic.Exists(I) Then
                    Tem = Tem & Format(I, "00") & "; "
                End If
            Next I
    Hop = Left(Tem, Len(Tem) - 2)
Set Dic = Nothing
End Function

dùng code này cho đơn giản hơn, pac BaTe ah
từ ý tưởng pác bate, ra code này:

Public Function Hop(Rng As Range, Hang As Range) As String
    Dim St As String, Cll
    St = "#0;#1;#2;#3;#4;#5;#6;#7;#8;#9;"
    St = Replace(St, "#", CStr(Hang))
    For Each Cll In Rng
        If Cll.Value <> "" Then St = Replace(St, Format$(Cll.Value, "00"";"""), "")
        If St = "" Then GoTo 1
    Next Cll
    St = Left(St, Len(St) - 1)
1:  Hop = St
End Function

công thức sử dụng hàm như trong file bác bate

 

[vodoi2x]

Sao giống nghiên cứu số đề quá vậy ta?

số đề là bị quốc cấm đó, đề nghị chủ thớt giải thích rõ?

 

[hophoang]

paleet là gì???
[

Paleet là đồ dùng để chứa hàng nó có dạng hình chữ nhật.Anh chưa gặp cái này lần nào àh.
Trong kho em dùng paleet để chứa hàng.Để quản lý được số paleet sản xuất ra hàng ngày em đặt cho mỗi paleet mang một số riêng biệt để thuận tiện cho việc xuất hàng sau này.File này lúc trước Bác BaTe có làm một code nhập rồi nay thêm code xuất

 

[Quang_Hải]

Paleet là đồ dùng để chứa hàng nó có dạng hình chữ nhật.Anh chưa gặp cái này lần nào àh.
Trong kho em dùng paleet để chứa hàng.Để quản lý được số paleet sản xuất ra hàng ngày em đặt cho mỗi paleet mang một số riêng biệt để thuận tiện cho việc xuất hàng sau này.File này lúc trước Bác BaTe có làm một code nhập rồi nay thêm code xuất

Có lẻ là chữ Pallet đấy. Mình làm khuân vác nên xài chữ này cũng thường

 

[olegtran]

Có một cách giải bài này hơi khác

Mình không biết về VB, mà chỉ tư duy theo lối giải toán thôi. Mình làm nhiều chương trình theo tư duy toán kiểu này, tức là dùng "ẩn số phụ", cũng đơn giản thôi, và kết quả cũng không đến nỗi tồi, đỡ dùng macro dễ mắc cổ.