الرقم التسلسلي

[ربيع]

يوجد عندي عدة خلايا الخلية الاولى مسلسل والخلية الثانية اسم الطالب

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

وهكذا بالنسبة للبقية

[محمد حجازي]

السلام عليكم ...

ابحث في المنتدى عن "الترقيم التلقائي" وستجد إن شاء الله الكثير من الموضوعات المشابهة.

[فلسطيني]

السلام عليكم

مرفق ملف عن الترقيم التلقائي

autonum.rar

[غريب 200]

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

[علي السحيب]

المرفق التالي يحتوي على أربع طرق لعمل ترقيم تلقائي .. أختر منها ما شئت .. وإن لم تستطع التعامل مع الصيغ .. أرسل الملف الذي تعمل عليه أو ملف آخر مشابه له ليجري التعديل عليه،

_________________________.rar

[halwim]

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

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

ولكن تكمن المشكلة عند ما ندرج صف جديد بحيث نقحمه بين صفين تم ترقيمهما مسبقا فمثلا إذا أدرجت صف جديد بين صف 3 وصف 4 فإن الترقيم التلقائي يتعطل مع هذا الصف رغم إدخال البيانات فيه كغيره .

نريد حلا لهذه المشكلة، سواء بكود أو بصيغة بحيث تنتقل الصيغة المعنية بالترقيم الى الصف المدرج بين الصفوف المعبأة .

تحياتي

[علي السحيب]

في هذه الحالة لديك حلين:

1- إعادة نسخ الصيغة الخاصة بالترقيم في كل مرة تقوم فيها بإدراج صف جديد.

2- إستخدام الترقيم التلقائي عن طريق الكود .. وأعتقد أن هذا الحل هو الأفضل والأسرع.

وللترقيم التلقائي عن طريق الكود راجع المشاركة التالية .. والتي أعتقد أنك قد أطلعت عليها .. ولكنك لم تنتبه إلى أن ما تبحث عنه موجود هناك.

http://www.officena.net/ib/index.php?showtopic=13866

[halwim]

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

مرحبا بكم ...... أستاذنا الفاضل أباحسين

نعم سبق لي تنزيل مرفقكم الرائع على الرابط المذكرو أعلاه ولكن بعد ترحيل السجلات إلى الصفحة الفرعية مثلا أدرجت صفا جديدا بين تلك الصفوف ولم يترقم وحتى بعد ضغط زر الترقيم، فإن الترقيم لم يشمل الصف المدرج ...... أيضا لفت انتباهي مايلي :

إقتباس من بيانكم نبذة عن المرفق هناك ( 5. بعد الترحيل يتم تحديث الترقيم التسلسلي لكل من البيانات في الصفحة الرئيسية والبيانات في الصفحة الفرعية.

6. وجود زر في كل من الصفحة الرئيسة والفرعية لتحديث الترقيم التسلسلي متى شئت. )

إذا كان الكود يقوم بتحديث الترقيم كما في البند 5 فمافائدة وجود زر للترقيم التلقائي كما ذكرتم في البند رقم 6 ؟؟

حاولت الإستفادة من بعض الصفحات مثل :

http://www.officena.net/ib/index.php?act=S...f=14&t=3825

ونظرا لعدم خبرتي في الأكواد حاولت استخلاص كود الترقيم من بين أكواد المرفق فلم أستطع معرفته بالدقة - لذلك خطر ببالي أن أعمل زر ماكرو سجلت فيه مايلي أن يحدد أول ثلاث خلايا ثم يكتب في الخلية الأولى رقم 1 ثم في الخلية الثانية رقم 2 وفي الخلية الثالثة رقم 3 ثم يقوم بعملية السحب .

وهذه الطريقة نجحت معي حتى مع إدراج صف جديد بين صفوف مرقمة سابقا، ولكن ما أريده أن تتم هذه العملية بشكل آلي بدون ضغط زر الماكرو .

يوجد ملف مرفق أرجو التعديل عليه.

تحياتي

______________________.rar

تم تعديل أكتوبر 6, 2006 بواسطه halwim

[علي السحيب]

نعم سبق لي تنزيل مرفقكم الرائع على الرابط المذكور أعلاه ولكن بعد ترحيل السجلات إلى الصفحة الفرعية مثلا أدرجت صفا جديدا بين تلك الصفوف ولم يترقم وحتى بعد ضغط زر الترقيم، فإن الترقيم لم يشمل الصف المدرج ......

مستحيل .. لقد قمت قبل قليل بإدراج صف جديد بين الصفوف الموجودة مسبقاً .. وقمت بالضغط على زر الترقيم التسلسلي وتم ترقيم جميع الصفوف ومن ضمنها الصف الجديد بشكل طبيعي وممتاز.

وأعتقد أنه لم يتم ترقيم الصف الجديد الذي أدرجته .. لأنه خالي من البيانات والترقيم يعتمد على ضرورة وجود بيانات في الخلية الثانية من الصف (الاسم) ليتم ترقيمه..

والآن جرب الكتابة في الخلية الثانية ثم اضغط على زر الترقيم وأخبرني عن النتيجة.

اقتباس من بيانكم نبذة عن المرفق هناك ( 5. بعد الترحيل يتم تحديث الترقيم التسلسلي لكل من البيانات في الصفحة الرئيسية والبيانات في الصفحة الفرعية.

6. وجود زر في كل من الصفحة الرئيسة والفرعية لتحديث الترقيم التسلسلي متى شئت. )

إذا كان الكود يقوم بتحديث الترقيم كما في البند 5 فما فائدة وجود زر للترقيم التلقائي كما ذكرتم في البند رقم 6 ؟؟

الفائدة هو تحديث الترقيم التسلسلي عند إدراج صف جديد أو حذف صف موجود مسبقاً ..

وهذا بالضبط ما احتجت أنت إليه عندما قمت بإدراج صف جديد .. أليس كذلك.

ونظرا لعدم خبرتي في الأكواد حاولت استخلاص كود الترقيم من بين أكواد المرفق فلم أستطع معرفته بالدقة - لذلك خطر ببالي أن أعمل زر ماكرو سجلت فيه مايلي أن يحدد أول ثلاث خلايا ثم يكتب في الخلية الأولى رقم 1 ثم في الخلية الثانية رقم 2 وفي الخلية الثالثة رقم 3 ثم يقوم بعملية السحب

وهذه الطريقة نجحت معي حتى مع إدراج صف جديد بين صفوف مرقمة سابقا، ولكن ما أريده أن تتم هذه العملية بشكل آلي بدون ضغط زر الماكرو ..

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

على كل حال المرفق يحتوي على طريقتين من الترقيم التسلسلي وهما كالتالي:

1- ترقيم كل صف على حدا .. بعبارة أخرى أنه يتم الترقيم عندما تنتهي من كتابة الاسم وهذا هو الكود الخاص به:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Ali
TC = Target.Column
TR = Target.Row
T = Target

If TC = 2 And TR > 1 And T <> "" Then Cells(TR, 1) = Cells(TR, 1).Row - 1

Ali:
If Err <> 0 Then Exit Sub
End Sub

2- ترقيم جميع الصفوف التي تحتوي على أسماء دفعة واحدة .. وهذا هو الكود الخاص به:

Sub Numbering()

[A2:A100].ClearContents

For A = 2 To 100
If Sheet1.Cells(A, 2) <> "" Then Sheet1.Cells(A, 1) = Sheet1.Cells(A, 1).Row - 1
Next
End Sub

أتمنى أن يكون هذا ما تريده،

________________________.rar

تم تعديل أكتوبر 7, 2006 بواسطه علي السحيب

[halwim]

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

شكرا على تجشمكم عناء التعليق والشرح الأكثر من راائع .

واقعا أعجبني المرفق الأخير، الشيء الرائع أن الكودين يعملان بالطريقتين في مكان واحد .

إقتباس من مشاركتكم السابقة

جرب الكتابة في الخلية الثانية ثم اضغط على زر الترقيم وأخبرني عن النتيجة.

نعم كما قلت السبب عدم وجود الكتابة، والآن اتضح لي سبب إهمال ترقيم الصفوف الفارغة بسبب وجود شرط ذكي وهذا نعم يجعل الملف أكثر كفائة!!

إقتباس آخر من مشاركتكم السابقة

الفائدة هو تحديث الترقيم التسلسلي عند إدراج صف جديد أو حذف صف موجود مسبقاً ..

كان قصدي هو إجراء تحديث ذكي آلي بدون ضغط زر كما في التصفية التنازلية أو التصاعدية ، بحيث يتم تعويض كل صف برقم يناسبه وذلك إعتمادا على تعريف الكود بخريطة المستند، بأن أول خلية في أول صف من عمود التسلسل دائما تعطى رقم واحد ، وهكذا مابعدها دائما يعطى رقم اثنين ، ثم مابعده ثلاثة .....الخ

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

تحياتي

تم تعديل أكتوبر 7, 2006 بواسطه halwim

[علي السحيب]

هل هذا ما تقصد،

________________________.rar

[halwim]

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

نعم هذا هو المطلوب ، سلمت يداك

هل لاحظتم أن المستند ثقيل نوعما ، لاحظت أنه بعد كل عملية إضافة أو حذف للصفوف تتم عملية تشبه عملية التحميل وكأن مصدر هذا الثقل من معالج الجهاز حيث يتحول الماوس إلى سهمين متقابلين لفترة 3 أو 4 ثواني بعد إدراج أوحذف صف ترى لماذا ؟

تحياتي

[علي السحيب]

أولاً فترة عمل الكود تأخذ معي وقت قصير جداً .. على الأكثر ثانية واحدة فقط .. وذلك لأن الكود يعمل في كل مرة تقوم فيها بأي تغيير على ورقة العمل بشكل كامل من حذف أو إضافة للصفوف أو غيرها.

[halwim]

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

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

يعني من السهل أن نعمل ماكرو ونربطه بزر ولكن من الصعب ربطه بحدث معين وعلى سبيل المثال أريد معرفة ربط

الماكرو الذي أرفقت في المشاركة رقم (8) مع غظ النظر عن ترقيمه للصفوف الفارغة.... المهم

أريد معرفة كيف يتم الترقيم بمجرد حصول حدث معين كإدراج صف أوحذفه أو تحرير أي خلية مثلا

أريد فقط الوصفة و سوف أقوم بتجربتها بعد ذلك .

تحياتي

[علي السحيب]

يكون ذلك بوضع الماكرو في الموديول الخاص بالصفحة وليس في موديول خارجي

بالإضافة إلى تحديد عنوان أو صف أو عمود الخلية المرتبطة بالحدث

تم تعديل أكتوبر 15, 2006 بواسطه علي السحيب

[halwim]

السلام عليكم

يكون ذلك بوضع الماكرو في الموديول الخاص بالصفحة وليس في موديول خارجي

مالمقصود بالموديل الخارجي ؟ قد فتحت المحرر من خلال alt+f11 وضغطت بيمين الماوس على إسم الورقة رقم واحد التي فيها الماكرو وكنت قد نسخت كود الماكرو منها واخترت insert ثم module والنتيجه أنه تم فتح موديلآخر برقم 2 فهل هذا المديل هو الذي تقصد بأنه موديل خاص بالصفحة ؟؟

بالإضافة غلى تحديد عنوان أو صف أو عمود الخلية المرتبطة بالحدث

هذه الجملة كبيرة علينا ، ليتك تشرحها من خلال وضع توضيح عملي مبسط ، أتمنى لو تسلسل الطريقة عبر ترقيم الخطوات ، 1 - الخطوة الأولى 2- الخطوة الثانية 3- كذا .... الخ

تحياتي

[علي السحيب]

التعامل مع تطبيقات الفيجوال بيسك يتطلب إلمام كبير باللغة الإنجليزية .. فإذا كانت لغتك الإنجليزية ضعيفة فلن تستطيع التعامل مع الأكواد بسهولة ..

لأن اللغة الإنجليزية تساعدك على كتابة الأكواد وفهم الأكواد التي كتبها الأخرين ..

[halwim]

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

الأستاذ الفاضل أباحسين ،،،

كلامك صحيح ، ولكن أنا لا أريد الإلمام بجميع تطبيقات الفيجوال بيسك ، فقط أريد تطبيق واحد أحتاج إليه ، وهو ما تمنيت التعليق عليه في المشاركة رقم 16 وبذلك إن شاء الله تكون قد وضعتنا على بداية الدرب ، وقديما قيل من سار على الدرب وصل ......... على أي حال

يوجد مرفقات أرجو التعديل ، والتعليق .

تحياتي ودعائي لك بكل خير و السلاااام

_________________.rar

[halwim]

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

أتمنى أن يتم الرد على طلبي الأخير في أسرع وقت يمكنم ، دعائي لكم بالتوفيق والخير والبركة والمغفرة لي ولكم في هذا الشهر الكريم ،، آمين