يوسف عطا قام بنشر يوليو 5, 2009 قام بنشر يوليو 5, 2009 (معدل) لو أمكن أريد تعديله بحيث يكتب كل رقم فى خلية تتكون من خليتين مدموجتين 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 بواسطه يوسف عطا
ابو القبطان قام بنشر يوليو 6, 2009 قام بنشر يوليو 6, 2009 للرفع أخي العزيز : يوسف اطيب تحيات الصباح حسب ما فهمت من سؤالك انك تريد أن تظهر سلسلة الاقام المطلوبة في عمودين خلاياهم مدمجة ، أي كل رقم سيظهر في خليتين مدمجتين ، إن كنت تريد ذلك فالامر جدا بسيط . والكود لا يحتاج تعديل اولا : إدمج أي خليتين في بداية العمود ، طبعا ستظهر الخليتين المدمجتين كواحدة . ثانيا: قف على هذه الخلية ومن علامة السحب إسحب للمدى الذي تريد . ثالثا : أضفت صوره ( لعلها تضحكك ) لتلطف جو العمل .. إعتبرها زر للماكرو إليك أخي الملف المرفق . . وتمنياتي بصباح سعيد تملاؤه البسمة والصحة أخوك new4a AUTO_NUMBER_CODE.rar
يوسف عطا قام بنشر يوليو 6, 2009 الكاتب قام بنشر يوليو 6, 2009 للرفع أخي العزيز : يوسف اطيب تحيات الصباح حسب ما فهمت من سؤالك انك تريد أن تظهر سلسلة الاقام المطلوبة في عمودين خلاياهم مدمجة ، أي كل رقم سيظهر في خليتين مدمجتين ، إن كنت تريد ذلك فالامر جدا بسيط . والكود لا يحتاج تعديل اولا : إدمج أي خليتين في بداية العمود ، طبعا ستظهر الخليتين المدمجتين كواحدة . ثانيا: قف على هذه الخلية ومن علامة السحب إسحب للمدى الذي تريد . ثالثا : أضفت صوره ( لعلها تضحكك ) لتلطف جو العمل .. إعتبرها زر للماكرو إليك أخي الملف المرفق . . وتمنياتي بصباح سعيد تملاؤه البسمة والصحة أخوك new4a عزيزى الكريم نيو أشكر لك فعلك ولكن لا يا عزيزى ليس عمودين خلاياهم مدموجة بل صفين خلاياهم مدموجة فعندما استخدم هذا الكود لترقيم مثلاً أرقام من 50 إلى 100 يعمل جيداً فى حالة الخلايا مفردة ولكن فى حالة الخلايا المدموجة يعد فقط من 50 إلى 75 هل وصلتك مشكلتى أخى العزيز ؟؟ شكراً لمحاولتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.