كود ترقيم تلقائى لح حد أول وأخير وقابل للزيادة

[يوسف عطا]

لو أمكن أريد تعديله

بحيث يكتب كل رقم فى خلية تتكون من خليتين مدموجتين

Sub AutoNumbering()

ActiveCell = ActiveCelltiveCell
NS:
A = Application.InputBox("أدخل أول ر قم في السلسلة التي تريد إنشاؤها", "أول رقم")
B = Application.InputBox("أدخل آخر ر قم في السلسلة التي تريد إنشاؤها", "آخر رقم")

If A = False Or B = False Then
Exit Sub
ElseIf A = "" Or B = "" Then
MsgBox "!تأكد من إدخال الأرقام بشكل صحيح", vbExclamation, "إدخال خاطئ"
Else

If [IV65536] = 1 Then
ActiveCell = A
Else: Columns(ActiveCell.Column).Rows(65536).End(xlUp).Select
If ActiveCell = "" Then
ActiveCell = A
Else: ActiveCell.Offset(1, 0).Select
Selection = A
End If
End If
ActiveCell.DataSeries xlColumns, , , 1, B
End If

If Application.WorksheetFunction.CountA(Columns(ActiveCell.Column)) = 1 Then
ActiveCell.ClearContents
Beep
If MsgBox("أول رقم في السلسلة أكبر من آخر رقم .. هل تود إعادة المحاولة؟", vbQuestion + vbYesNo, "إدخال خاطئ") = vbNo Then
Exit Sub
Else: GoTo NS
End If
End If

Beep
If MsgBox("إستمرار؟", vbYesNo + vbQuestion, "إنشاء سلسلة أخرى") = vbNo Then
Exit Sub

Else: GoTo NS

End If
End Sub

بعد وضع الكود فى المصنف

تقف فى الخلية المراد بدء العد منها

تدوس على أمر تنفيذ الماكرو

تختار الماكرو من قائمة الماكرووات إللى عندك

تفتحلك ويندو

حط أول رقم ودوس أنتر

حط آخر رقم ودوس أنتر

لو عاوز تعمل سلسلة جديدة أو لأ تختار

والرجاء لو أمكن تعديل الكود لكى يضع كل رقم فى خليتين مدموجتين

أكون له من الشاكرين

تم تعديل يوليو 5, 2009 بواسطه يوسف عطا

[ابو القبطان]

للرفع

أخي العزيز : يوسف

اطيب تحيات الصباح

حسب ما فهمت من سؤالك انك تريد أن تظهر سلسلة الاقام المطلوبة في عمودين خلاياهم مدمجة ، أي كل رقم سيظهر في خليتين مدمجتين ، إن كنت تريد ذلك فالامر جدا بسيط . والكود لا يحتاج تعديل

اولا : إدمج أي خليتين في بداية العمود ، طبعا ستظهر الخليتين المدمجتين كواحدة .

ثانيا: قف على هذه الخلية ومن علامة السحب إسحب للمدى الذي تريد .

ثالثا : أضفت صوره ( لعلها تضحكك ) لتلطف جو العمل .. إعتبرها زر للماكرو

إليك أخي الملف المرفق . . وتمنياتي بصباح سعيد تملاؤه البسمة والصحة

أخوك

new4a

AUTO_NUMBER_CODE.rar

[يوسف عطا]

للرفع

أخي العزيز : يوسف

اطيب تحيات الصباح

حسب ما فهمت من سؤالك انك تريد أن تظهر سلسلة الاقام المطلوبة في عمودين خلاياهم مدمجة ، أي كل رقم سيظهر في خليتين مدمجتين ، إن كنت تريد ذلك فالامر جدا بسيط . والكود لا يحتاج تعديل

اولا : إدمج أي خليتين في بداية العمود ، طبعا ستظهر الخليتين المدمجتين كواحدة .

ثانيا: قف على هذه الخلية ومن علامة السحب إسحب للمدى الذي تريد .

ثالثا : أضفت صوره ( لعلها تضحكك ) لتلطف جو العمل .. إعتبرها زر للماكرو

إليك أخي الملف المرفق . . وتمنياتي بصباح سعيد تملاؤه البسمة والصحة

أخوك

new4a

عزيزى الكريم نيو

أشكر لك فعلك ولكن لا يا عزيزى

ليس عمودين خلاياهم مدموجة

بل صفين خلاياهم مدموجة

فعندما استخدم هذا الكود لترقيم مثلاً أرقام من 50 إلى 100

يعمل جيداً فى حالة الخلايا مفردة

ولكن فى حالة الخلايا المدموجة

يعد فقط من 50 إلى 75

هل وصلتك مشكلتى أخى العزيز ؟؟

شكراً لمحاولتك