الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ترقيم تلقائي في إكسل بالكود (فكرة سهلة جدا)

رائج
بدأه همام ابوعرقوب في 30 سبتمبر 2007 · 17 رد · 43,533 مشاهدة · في طلب و دراسة وشرح البرامج
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني، كثر الطلب على الترقيم التلقائي ، وخاصة في الاكسس، وها انا هنا بعد ان طرحت فكرتي بالاكسس، اطرحها بالاكسل، ولكن بسطر من الكود،، واحد فقط، تخيل!!!

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 1) = Target.Row
End Sub

بمجرد الكتابة في اي خلية من العمود B مثلا يكتب بعدها في السطر المقابل من العمود A رقما تلقائيا بعد اخر رقم كتب اولا...

سطر سهل جدا به كل العجائب، حتى بعد حذف السجل ، وكتابة سجل جديد، تحتاج فقط الى الدخول الى الخلية التي تريد تعديل ترقيمها والضغط على Enter وبهذا تحصل على رقم تلقائي،

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

تم تعديل المرفقات لوجود تحسين ومقترحات من الاخوة الكرام

همام

ExcelAutoNumber.rar

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 1 أكتوبر 2007 في 17:17

1

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#2

شكرا لك فعلا فكرة رائعة

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#3

بارك الله لك و لاهلك

وجزاك الجنة

سطر راائع

وماذا افعل حتى اجعل البداية رقم 1 في السطر السادس مثلا

تم تعديل هذه المشاركة بواسطة muhammadey في 30 سبتمبر 2007 في 23:03

e37sr2.gif
#4

كود ممتاز من رجل هُمام

جزاك الله خير

كتبت عدة اسماء وليكن30 وتذكرت اني كررت اسم في الصف الرابع مثلا فـمسحـته

اريد طريقة

بارك الله لك تجعل الترقيم بعد الازالة يتم تلقائي بعد المسح مباشرة

#5

أخي العزيز / همام ... أسعد الله أوقاتك

بالنسبة الى الكود والملف المرفق لاحظت انه عند اضافة سطر جديد بعد السطر الرابع لم يتم الترقيم التلقائي لا اعرف السبب

اتمنى ان توضح ذلك .. لانه نحن المحاسبين نحتاج كثيرا الى الترقيم التلقائي في المعاملات المالية.

بارك الله فيك على جهودك الطيبة

[يمين]

إذا كـان تـرك الـدين يعــنــي تقــدمــاً

فـيا نفــس مـوتــي قبــل أن تتقـدمــي

[/يمين]

#6
kamal alnahhal كتب:
أخي العزيز / همام ... أسعد الله أوقاتك

بالنسبة الى الكود والملف المرفق لاحظت انه عند اضافة سطر جديد بعد السطر الرابع لم يتم الترقيم التلقائي لا اعرف السبب

اتمنى ان توضح ذلك .. لانه نحن المحاسبين نحتاج كثيرا الى الترقيم التلقائي في المعاملات المالية.

بارك الله فيك على جهودك الطيبة

عفواً ... أخي همام يبدو أن في السهر لا توجد فائدة حيث لم يعمل البرنامج وفي هذا الصباح شغلت البرنامج وكانت مفاجئتي أن البرنامج يعمل 100/100

بارك الله فيك وأتمنى لك صلاوة وقياماً وصوماً مقبولاً بإذن الله تعالى.

مع خالص تحياتي

[يمين]

إذا كـان تـرك الـدين يعــنــي تقــدمــاً

فـيا نفــس مـوتــي قبــل أن تتقـدمــي

[/يمين]

#7

بارك الله لك يا استاذ همام

تم تعديل هذه المشاركة بواسطة muhammadey في 1 أكتوبر 2007 في 18:13

e37sr2.gif
#8

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

الله يجبر بخاطرك اخي كمال.. وتسلم..

اخ muhammadey كما قلت سابقا البرنامج مجرد فكرة بداية سابني عليه الكثير الكثير، ويحتاج بالتاكيد الى افكار تطويرية..

نعم هناك طرق ولو تمعنتم في المثال ستجدون انه بمجرد التغيير في اي خلية حتى A او عمود B يعود الترقيم تلقائيا كما كان..

ساعمل جاهدا لتحسينه وارفق الجديد باذن الله..

همام

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#9

الاخوة الكرام....

تحديث على المرفقات السابقة.. تم تلبية معظم الطلبات... شاهد الكود، واذا ارت اعادة الترقيم هناك زر..

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

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

حمل المرفق من (هنا)

همام

تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 1 أكتوبر 2007 في 17:20

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#10

بداية الترقيم ليست اساسا في العمود الاول عند كل المستخدمين

وليست الاسماء اساسا في العمود التاني عند كل المستخدمين

نريد شرح كيفية تغيير بداية الارقام وبداية كتابة الاسماء في الاعمدة المختلفة

تم تعديل هذه المشاركة بواسطة muhammadey في 1 أكتوبر 2007 في 18:24

e37sr2.gif
#11

للرفع

e37sr2.gif
#12

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

لكن بالنسبة للكود اين يوضع ... جزاك الله خيراً

#13

بصراحة جميل فكرة الكود أخي همام

وبالتالي أرفق لسيادتك ملف هو ترقيم تلقائي حتى إذا تم حذف صف بمعادلة =row

اتمنى ان تحاول فيها بالكود

مع خالص تحياتي

الملف بالمرفقات

Book1.rar

1
#14

جزيل الشكر

mr toto

الادارة: تم حذف الصورة لأنها مخالفة.

#15

استاذ همام المحترم

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

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

مع اضافة زر امر جديد في الشيت يتم اضافة رقم جديد علي الرقم القديم بقيمة واحد

يعني لو رقم الفاتورة 100 بعد الضغط علي زر الامر يصبح 101

شاكرا لك حسن تعاونك

وتقبلوا تحياتي وتقديري

اخوك ابو محمود

سوف احاول اضافة مثال بالاكسل وانت تتفضل بالتعديل عليه لو تكرمت

_____.rar

رَبَّنَا لَا تُؤَاخِذْنَا إِنْ نَسِينَا أَوْ أَخْطَأْنَا رَبَّنَا وَلَا تَحْمِلْ عَلَيْنَا إِصْرًا كَمَا حَمَلْتَهُ عَلَى الَّذِينَ

مِنْ قَبْلِنَا رَبَّنَا وَلَا تُحَمِّلْنَا مَا لَا طَاقَةَ لَنَا بِهِ وَاعْفُ عَنَّا وَاغْفِرْ لَنَا وَارْحَمْنَا أَنْتَ مَوْلَانَا

فَانْصُرْنَا عَلَى الْقَوْمِ الْكَافِرِينَ...... آمين يا رب العالمين.

#16
همام ابوعرقوب كتب:

اخواني، كثر الطلب على الترقيم التلقائي ، وخاصة في الاكسس، وها انا هنا بعد ان طرحت فكرتي بالاكسس، اطرحها بالاكسل، ولكن بسطر من الكود،، واحد فقط، تخيل!!!

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 1) = Target.Row
End Sub

بمجرد الكتابة في اي خلية من العمود B مثلا يكتب بعدها في السطر المقابل من العمود A رقما تلقائيا بعد اخر رقم كتب اولا...

سطر سهل جدا به كل العجائب، حتى بعد حذف السجل ، وكتابة سجل جديد، تحتاج فقط الى الدخول الى الخلية التي تريد تعديل ترقيمها والضغط على Enter وبهذا تحصل على رقم تلقائي،

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

تم تعديل المرفقات لوجود تحسين ومقترحات من الاخوة الكرام

همام

الف شكر بارك الله فيك

#17

شكر الله لك

#18

السلام عليكم و رحمة الله تعالى و بركاته و بعد أشكر الإخوة على هذا العمل المفيد للجميع إن شاء الله 

عندي استفسار عن كيفية إعادة الترقيم بعد الفلترة و لكن برمجيا أي بــ: vba  و جزاكم الله خيرا

مواضيع مشابهة