مراجعة تسلسل ارقام

[المبارك55]

السلام عليكم ورحمة  الله

لدي شيت اكسيل به معلومات سندات قبض محولة من تقرير من برنامج حسابات وبه تسلسل ارقام السندات

احتاج لمعرقة بان هذا التسلسل متكامل واذا فيه ارقام ساقطة من التسلسل فماهي ؟

لكم خالص الشكر 

ارقام ناقصة سندات القبض.xlsx

[أ / محمد صالح]

تكمن المشكلة في أن الأرقام التي يصدرها البرنامج لا يعتبرها الإكسل أرقاما

نظرا لأنها تحتوي على رموز غريبة غير مرئية char(254)

لذلك ينبغي علينا :

أولا إصلاح تنسيق الأرقام

ثانيا: إيجاد المفقود من سلسلة الأرقام

تفضل هذا كود إجرائين للغرضين السابقين

Sub mas()
lr = Cells(2, 2).End(xlDown).Row
Range("A1:L" & lr).NumberFormat = "General"
Range("D1:D" & lr).NumberFormat = "@"
Range("L1").Value = "القيم المفقودة"
For n = 2 To lr
Range("b" & n).Value = Replace(Range("b" & n).Value, Chr(254), "")
Range("c" & n).Value = Replace(Range("c" & n).Value, Chr(254), "")
Range("d" & n).Value = Replace(Range("d" & n).Value, Chr(254), "")
Next n
FindMissingNumbers Range("b2:b" & lr), Range("l2")
End Sub

Sub FindMissingNumbers(InputRange As Range, OutputRange As Range)
For i = WorksheetFunction.Min(InputRange) To WorksheetFunction.Max(InputRange)
If InputRange.Find(i, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
OutputRange.Cells(j + 1, 1).Value = i
j = j + 1
End If
Next i
MsgBox "Done"
End Sub

بعد تنفيذ الإجراء mas

سيتم تعديل الأرقام والتواريخ وتغيير تنسيق رقم الحساب إلى نص لأنه يبدأ بصفر على اليسار

ثم إيجاد الأرقام المفقودة ووضعها في العمود L

ملحوظة: لا يوجد أرقام مفقودة في ملفك. ولتجربة الكود يمكنك حذف أي عدد من الصفوف بطريقة عشوائية وسيتم كتابتهم في العمود L

بالتوفيق

[المبارك55]

شكرا استاذنا القدير عمل رائع اكرر شكري وتقديري لكم