Tìm số không liên tục trong dãy số

[youkosuk]

Anh chị nào giúp em lấy được các số không liên tục trong một dãy số không ?

Vi dụ: 1,2,3,4,5,7,8,9 thi khong co so 6. Làm cách nào để biết là không có số 6 và lấy số ra.

Cái bảng dữ liệu của me nó nhiều quá không biết số nào bị sót. Nhờ các anh chị giúp đỡ.

Em có đọc bài ở mục này:Kiểm tra sự liên tục của các số trong 1 cột. nhưng không biết sử dụng cái này như thế nào.

Loay hoay làm mãi mà chẳng có kết quả gì. Gấp lắm rùi, chuẩn bị quyết toán nữa.Giúp em với các sư phụ ơi.

 

[ndu96081631]

Anh chị nào giúp em lấy được các số không liên tục trong một dãy số không ?

Vi dụ: 1,2,3,4,5,7,8,9 thi khong co so 6. Làm cách nào để biết là không có số 6 và lấy số ra.

Cái bảng dữ liệu của me nó nhiều quá không biết số nào bị sót. Nhờ các anh chị giúp đỡ.

Em có đọc bài ở mục này:Kiểm tra sự liên tục của các số trong 1 cột. nhưng không biết sử dụng cái này như thế nào.

Loay hoay làm mãi mà chẳng có kết quả gì. Gấp lắm rùi, chuẩn bị quyết toán nữa.Giúp em với các sư phụ ơi.

Với dảy số là số liên tục thì dể rồi... Người ta xác định được nguyên tắc số này cách số liền kề 1 đơn vị ---> Vậy xem như đã có thuật toán để làm
Còn với dử liệu thật của bạn, điều quan trọng nhất bạn cần xác định là: THẾ NÀO THÌ GỌI LÀ ĐẦY ĐỦ ---> Từ đây sẽ suy ra được THẾ NÀO THÌ GỌI LÀ THIẾU (Quá dể, không đủ là thiếu)
Nói ví dụ nhé:
- Bạn có 1 list đầy đủ
- Giờ bạn muốn kiểm tra xem trong 1 list khác, có Item nào bị thiếu không (so với list gốc)
Theo bạn có nên đưa file lên hay không?

 

[youkosuk]

Day la file du lieu cua minh

Mình có một bảng kê số hóa đơn đã phát hành trong năm, vì số lượng hóa đơn phát hành quá nhiều và số hủy cũng nhiều, nên khi quyết toán thì không thể nhớ được là mình đã hủy bao nhiêu số hóa đơn. Nếu ngồi đếm bằng tay hoặc đếm từng số hóa đơn trên Excel thì phê quá, mà kết quả thì không thể chắc chắn đúng đến mức tối thiểu.

Trên đây là file dữ liệu nhỏ, Bảng dữ liểu đầy đủ cả 50.000 cái hóa đơn, mà tìm bằng tay thì mỏi cả mắt. Mong mọi người giúp mình cái này.

 

[ST-Lu!]

Em xin gửi một cách cực kỳ củ chuối? Nhưng vẫn chưa đúng yêu cầu đề lắm/ cho trường hợp thiếu đến hơn 2 số liên tiếp
--------
Mà mình thấy dữ liệu bạn gửi lên không ổn lắm. vì số hóa đơn bạn dùng theo quyển, mà quyển lại bố trí không liên tục. Ví dụ: từ số 000611 --> chuyển sang số 122883
Thì làm sao đây?
Theo mình kiểm soát hóa đơn hủy phải làm ngay từ đầu (chỉ với một cuốn sổ tay nhỏ cũng ổn)
Chứ việc xảy ra như này...mệt lắm


Suy nghĩ thêm đã

 

[youkosuk]

Ghi bằng tay ?

Nếu ghi được bằng tay thì mình đã ghi rùi. Số lượng hóa đơn nhiều quá làm sao mà nhớ để ghi. Mà nếu ghi bằng tay thì minh lấy báo cáo sử dụng hóa đơn hàng tháng ra ghi lại cho rồi. Khỏi phải kiểm tra chi cho mắc công.

Hóa đơn thì số của mỗi cuốn khác nhau, nó chỉ liên tục được khoản 1000 số, qua cuốn khác thì là dãy số khác liên tục káhc rùi. khi bị hủy thì có lúc hủy gần cả 10 số, mà khi kê khai thuế thì có lúc 1 số hóa đơn được tách ra để kê khai 2 lần, khi lấy dữ liệu ra thì trên bảng kê sẽ có những hóa đơn trùng nhau nên khi tìm thì gặp nhiều khó khăn.

Còn file của mình đưa lên thì chỉ cắt một phần nhỏ dữ liện thôi. Vì file upload không được có dung lượng lớn nên mình chỉ đưa lên chừng đó thôi.

Thật lòng mong các anh chị giúp đõ mình. Cám ơn rất nhiều.

 

[ST-Lu!]

Còn với dử liệu thật của bạn, điều quan trọng nhất bạn cần xác định là: THẾ NÀO THÌ GỌI LÀ ĐẦY ĐỦ ---> Từ đây sẽ suy ra được THẾ NÀO THÌ GỌI LÀ THIẾU (Quá dể, không đủ là thiếu)

Bạn nên nhớ hướng dẫn của anh NDU
Vấn đề ở thiếu hay đủ ở đây là ở chỗ bạn có dữ liệu của CÁI ĐỦ CHƯA?
Ví dụ: Dùng hóa đơn theo nguyên tắc dùng thứ tự lần lượt: mỗi cuốn là 50 số.
Bạn tạo một dữ liệu đủ là một cột (theo thứ tự -) đầy đủ gồm cả số mất, hủy và số vẫn dùng
-Sau đó bạn dùng công thức mảng so sánh dữ liệu dữ liệu 2 trường
- Những giá trị trả về False nghĩa là những số này đã hủy
- Những giá trị trả về True nghĩa là những số này đang dùng

Bạn xem ví dụ sau nhé (mình chỉ lấy ví dụ trong một quyển thôi 50 số hóa đơn)
Sau đó bạn lọc tay ra những giá trị False đó (làm thủ công một tí nhé mình cũng mới học Excel mà)

 

[youkosuk]

Trường hợp nhiều cuốn hóa đơn

1. Cột kết quả có thể lấy được con số thiếu ra không thay vì trả về giá trị TRUE hay FALSE ?

2.Trường hợp từ 020401 đến 020550 có số 020404 xuất hiện 2 lần, 020471 xuất hiện 4 lần (trùng) thì kết quả không không như ví dụ nữa. (Vì trong kê khai thuế thí 1 hóa đơn có thể tách ra để kê khai). File này là dữ liệu thật phát hành khoản 200 cái hóa đơn (dung lượng lớn không đưa lên hết được). Bạn xem hộ mình.

3.Trường hợp nhiều cuốn hóa đơn có số khác nhau thì sao? vì số hóa đơn chỉ liên tục đến khoản 1000, sau đó chuyển qua số khác.
Nếu nhập vào cột dữ liệu đầy đủ thì biết nhập đến bao giờ cho xong ví số lượng hóa đơn rất lớn.

4.Cố gắng giúp mình vụ này. Bây gìơ phải về rùi. Cơ quan đóng cửa không cho làm nữa.
Thanks so much.

 

[ndu96081631]

1. Cột kết quả có thể lấy được con số thiếu ra không thay vì trả về giá trị TRUE hay FALSE ?

2.Trường hợp từ 020401 đến 020550 có số 020404 xuất hiện 2 lần, 020471 xuất hiện 4 lần (trùng) thì kết quả không không như ví dụ nữa. (Vì trong kê khai thuế thí 1 hóa đơn có thể tách ra để kê khai). File này là dữ liệu thật phát hành khoản 200 cái hóa đơn (dung lượng lớn không đưa lên hết được). Bạn xem hộ mình.

3.Trường hợp nhiều cuốn hóa đơn có số khác nhau thì sao? vì số hóa đơn chỉ liên tục đến khoản 1000, sau đó chuyển qua số khác.
Nếu nhập vào cột dữ liệu đầy đủ thì biết nhập đến bao giờ cho xong ví số lượng hóa đơn rất lớn.

4.Cố gắng giúp mình vụ này. Bây gìơ phải về rùi. Cơ quan đóng cửa không cho làm nữa.
Thanks so much.

Thật ra tôi cũng chưa hiểu lắm những câu hỏi của bạn! Dựa vào list mà bạn nói là đầy đủ, tôi tìm ra số thiếu bằng 2 cách:
- Liệt kê số thiếu, dùng VBA
- Tô màu số thiếu, dùng Conditional Formating
Xem file ---> Có gì chưa đúng ta bàn tiếp
(Trong file này, tôi tìm theo nguyên tắc: Cứ không có trong list đầy đủ thì xem như là THIẾU)

 

[ChanhTQ@]

Bạn thử kiểm lại xem sao, theo file đính kèm!

Option Explicit

Sub TimThieu()
 Dim lRw As Long, Jj As Long, Ww As Long
 Dim bColor As Byte
 
 lRw = [d65500].End(xlUp).Row:                      bColor = 33
 Range("D4:D" & lRw).ClearFormats:                  Range("F2:F" & lRw).Clear
5 Range("F4:F" & lRw).NumberFormat = "000###":            [f4] = 0
 For Jj = 5 To lRw
    With Cells(Jj, "D")
        If CLng(.Value) > 1 + CLng(.Offset(-1)) And .Offset(, -1).Value = .Offset(-1, -1).Value Then
            For Ww = 1 To (.Value - .Offset(-1) - 1)
                [f65500].End(xlUp).Offset(1).Value = .Offset(-1) + Ww
                bColor = bColor + Ww
                If bColor > 41 Then bColor = 34
                [f65500].End(xlUp).Interior.ColorIndex = bColor
            Next Ww
            .Interior.ColorIndex = bColor
            bColor = 33
        End If
    End With
 Next Jj
End Sub

 

[youkosuk]

Còn 1 xíu mới thấy ok được.

1-Theo cách của bạn ndu96081631 thì mình tìm ra đúng số mà đã bị thiếu, nhưng khi nhấn vào nút TÌM SỐ THIẾU 2 lần thì nó sẽ thêm số thiếu mà nó tìm ra đầu tiên thêm 1 lần nữa, có nghĩa là trong danh sách thay vì chi có 29 số thiếu thì nó lại đưa đưa ra 30 số thiếu.

Một điều nữa là có thể tự động đưa ra một danh sách đầy đủ đượng không , thay vì mình phải nhập 1 cái list đầy đủ thì nó đọc trong cái dãy chưa đầy đủ có bao nhiêu dẫy và sẽ tạo ra bấy nhiêu dãy đầy đủ, điều kiện biên đọ làm tròn dãy là 50 số.

Ví dụ như: trong 1 dãy 3 dãy không đầy đủ: 00561 đến 00572, 12200 đến 12289, 45001 đến 45525 thì nó sẽ đữa ra 3 dãy đầy đủ là: 00561 đến 00600, 12200 đến 12300, 45001 đến 45550

2-Theo cách của bạn ChanhTQ@ thì rất cám ơn bạn đã giúp đỡ, nhưng thiệt tình hỏng biết sử dụng như thế nào ? Có thể hướng dẫn mình cách tạo ra 1 cái nút như bạn ndu96081631 được không ?

 

[ndu96081631]

1-Theo cách của bạn ndu96081631 thì mình tìm ra đúng số mà đã bị thiếu, nhưng khi nhấn vào nút TÌM SỐ THIẾU 2 lần thì nó sẽ thêm số thiếu mà nó tìm ra đầu tiên thêm 1 lần nữa, có nghĩa là trong danh sách thay vì chi có 29 số thiếu thì nó lại đưa đưa ra 30 số thiếu.
?

Sơ ý thôi!
- Bạn mở file lên ---> Bấm Atl + F11
- Trong cửa sổ này, bấm vào mục Modules ở khung trái, rồi tiếp tục double click vào Module1, bạn sẽ nhìn thấy code ở khung phải ---> Dòng thứ 2 của code là:
Range([I4], [I65536].End(xlUp)).Offset(1).ClearContents
Bạn sửa lại thành:
Range([I4], [I65536].End(xlUp)).ClearContents
Đóng cửa sổ này lại rồi bấm nút chạy lần nữa xem

 

[youkosuk]

Cám ơn bạn nhiều, về cơ bản mình đã làm được.

Về cơ bản đã giải quyết được vấn đề, nhưng vẫn còn công phú quá, cái list đầy đủ vẫn chưa tự động được

 

[ChanhTQ@]

Thêm nút lệnh & hướng dẫn khi dùng

. . .
2-Theo cách của bạn ChanhTQ@ thì thiệt tình hỏng biết sử dụng như thế nào ? Có thể hướng dẫn mình cách tạo ra 1 cái nút như bạn ndu96081631 được không ?

Xin lỗi bạn vì chưa hướng dẫn sử dụng, như sau:

* Khi bấm nút chạy macro, ta sẽ có hai cột bị tô các màu khác nhau ở những số liệu khác nhau;
Khẳng định những ô được tô màu sẽ liên quan đến các vận đơn đang thiếu (cột 'F') hay gần ngay với vận đơn thiếu (cột 'D')
Màu sắc khác nhau, chứng tỏ chúng thiếu nhiều hay ít trong khoảng liên tục của chúng, ví dụ:
(+) Ô [D10] được tô màu lơ do phiếu 000567 thiếu; nhưng ô [D21] màu vàng nhạc do 2 phiếu trên nó thiếu; Ô [d47] màu tím do 4 phiếu trên nó thiếu, . . .
(+) Ô [F13] có màu xanh dương do trên nó liên tục liệt kê các hóa đơn từ 000574 ... 000579 ( mà trong đó có 2 ô màu tím). Thực ra kể cả [F14] cũng phải tô màu sẩm hơn, nhưng chúng ta xài có 6 màu nền nên gây trùng lặp lại màu ban đầu)
Chúc vui.

 

[youkosuk]

OK

Minh làm được cái cái nút rùi, nhưng ở dòng kết quả thì ô đâu tiên sao lại có 3 số không (000) ?

Mà bạn có thể cho hiện kết quả nằm ở cột ghi chú được không ? nếu được như thế này thì tiện quá ?

Trong trường hợp cái dãy số hóa đơn mình chưa sắp sếp theo thứ tự tăng dần thì sẽ bị lỗi không tìm được.

 

[ChanhTQ@]

Minh làm được cái cái nút rùi, nhưng ở dòng kết quả thì ô đâu tiên sao lại có 3 số không (000) ?

(+) Xin chúc mừng với thành công mới!
(+) có ba số 'OOO' do các câu lệnh tại dòng 5 (Mình vừa thêm số dòng lệnh tại bài trước, xem lại, nếu còn quan tâm)
Câu đầu, chúng ta formmat toàn cột dữ liệu ;
Câu lệnh sau của dòng, ta lại gán cho nó trị => 0 mà.
(Câu sau này nhằm chép các hóa đơn thiếu vô dưới ô này, [F4])

Mà bạn có thể cho hiện kết quả nằm ở cột ghi chú được không ? nếu được như thế này thì tiện quá ?
Trong trường hợp cái dãy số hóa đơn mình chưa sắp sếp theo thứ tự tăng dần thì sẽ bị lỗi không tìm được.

Bạn xem trong file đính kèm & làm lại cho mình nút lệnh mới để chạy macro; Trong trường hợp ngược lại, tạm dùng fím nóng vậy nha!

Option Explicit

Sub TimThieu()
 Dim lRw As Long, Jj As Long, Ww As Long
 Dim bColor As Byte
 
 lRw = [d65500].End(xlUp).Row:                      bColor = 33
 Range("D3:D" & lRw).ClearFormats:                  Range("L3:L" & lRw).Clear
 Range("L3:L" & lRw).NumberFormat = "000###"
 For Jj = 4 To lRw
    With Cells(Jj, "D")
        If CLng(.Value) > 1 + CLng(.Offset(-1)) And .Offset(, -1).Value = .Offset(-1, -1).Value Then
            For Ww = 1 To (.Value - .Offset(-1) - 1)
                [L65500].End(xlUp).Offset(1).Value = .Offset(-1) + Ww
                bColor = bColor + Ww
                If bColor > 41 Then bColor = 34
                [L65500].End(xlUp).Interior.ColorIndex = bColor
            Next Ww
            .Interior.ColorIndex = bColor
            bColor = 33
        End If
    End With
 Next Jj
End Sub

 

[youkosuk]

Sao nó lại như thế này ?

1- Bạn xem lại họ mình cái file, sao minh copy dữ liệu khác bỏ vào thì nó lại bị lỗi tại (bColor = bColor + Ww)

2- Khi insẻt them 24 dong trống ở trên, Dữ liệu chạy từ dòng D24 trở đi, kết quả hiện từ dòng L24 trở đi. thì lại báo lỗi ở. If CLng(.Value) > 1 + CLng(.Offset(-1)) And .Offset(, -1).Value = .Offset(-1, -1).Value Then

Không biết mình có làm gì sai không ?

 

[ChanhTQ@]

Sao nó lại như thế này ?
1- Bạn xem lại họ mình cái file, sao minh copy dữ liệu khác bỏ vào thì nó lại bị lỗi tại (bColor = bColor + Ww)
2- Khi insẻt them 24 dong trống ở trên, Dữ liệu chạy từ dòng D24 trở đi, kết quả hiện từ dòng L24 trở đi. thì lại báo lỗi ở. If CLng(.Value) > 1 + CLng(.Offset(-1)) And .Offset(, -1).Value = .Offset(-1, -1).Value Then
Không biết mình có làm gì sai không ?

(1) Hẵn nhiên có sai ở chổ nào đó, vì trước khi đưa file lên mình đã thử vài bận rồi mà, này nha:

Nếu dữ liệu bắt đầu từ dòng thứ 4, thì vòng lặp bắt đầu xét từ dòng 5, để có cái mà so sánh chứ!
Khi bạn thêm 24 dòng trống, đương nhiên trong macro phải đổi các thông số mới làm việc bình thường được.

(2) bColor là biến chỉ dao động từ 33 cho tới 42 gì đó là cùng thôi, nên lỗi này không có file thì mình chịu chết thôi!

(3) Nếu không tiện đưa file lên, mình sẽ diễn dịch macro để tự bạn sửa cho fù hợp, một khi có iêu cầu.

Thân ái.

 

[youkosuk]

File đây

bạn xem hộ mình cái file minh làm trên tờ khai thuế no như thế này.

Không biết mình sửa lại mấy cái số như thế nào mà nó chạy tùm lum.

 

[youkosuk]

So sanh

2-Cho mình hỏi thêm cái này, mình đem so sánh cách làm của 2 bạn ChanhTQ va ndu96081631 thì kết qảu của 2 bạn là khác nhau mặc dù cùng 1 dữ liệu. (File sosanh).
Trong file có 2 sheet: Sheet 1 là làm theo của bạn ChanhTQ còn Sheet 2 là làm theo bạn ndu96081631.

Tìm theo cách của bạn ChanhTQ thìkhông tìm ra được số 045301
Còn theo cách của bạn ndu96081631 thì tìm ra số 045301.
Kiểm tra lại trên số liệu nhập trong phần mềm thì số hóa đơn này mình đã bị huỷ.

 

[ChanhTQ@]

Mình phân tích cái chưa đúng, như thế này

bạn xem hộ mình cái file minh làm trên tờ khai thuế no như thế này. Không biết mình sửa lại mấy cái số như thế nào mà nó chạy tùm lum.

 [COLOR=Lime]Range("D24:D" & lRw).ClearFormats: [/COLOR]                 Range("L24:L" & lRw).Clear
 Range("L24:L" & lRw).NumberFormat = "000###"

Khi mới chép dữ liệu qua, vùng [L17:L655..] là không có dữ liệu;
Bạn chạy macro lần đầu
khi nó thấy hóa đơn thiếu nó sẽ chép vô lần lượt từ trên xuống, bắt đầu từ [L17]
Câu lệnh này chứng tỏ điều đó:

 [L65500].End(xlUp).Offset(1).Value = .Offset(-1) + Ww

Nhưng lần chạy sau, bạn & tôi, chúng ta chỉ xóa các dữ liệu mới phát sinh từ sau ô [L23] bằng câu lệnh
Range("L24:L" & lRw).Clear trích dẫn bên trên
như vậy vùng [L17:L23] không bao giờ thay đổi nữa; & chính vùng này làm bạn hoa mắt.

Cách sửa ư?

chọn 1 trong hai cách:
(1) Muốn nó chép hóa đơn chưa có từ [L17] thì sửa lại lệnh có Clear cho đúng
(2) muốn nó chép từ [L24], thì từ đầu chương trình (nói cho to tác) ta cho [l23]=0
Còn câu lệnh format = "000###" bạn nới rọng cả cột cũng không ảnh hưởng đến ai.

Một khi sửa được rồi thì hôm nay bạn sẽ ngủ ngon giấc, chắc vậy.

Thân ái.