طلب تعديل كود للترقيم التلقائي

[محمد عبدالسلام]

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

 

المرجومن الأحوة  تعديل  الكود  اريد بمجرد الكتابة في الخلية e يتم نزول الترقيم تلقائي في الخلية c10:الىc 60

انا هو لي الأخ الفضل رجب جاويش جزاه الله خير

 

 

 

 

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, LR As Integer
LR = Cells(Rows.Count, 2).End(xlUp).Row
Set Rng = Range(Cells(1, 1), Cells(LR, 1))
Rng.Formula = "=IF(NOT(ISBLANK(B1)),COUNTA(B$1:B1),"""")"
End Sub

 

الترقيم التلقائي.zip

[ياسر خليل أبو البراء]

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

إليك الملف المرفق تم وضع كود في حدث ورقة العمل المسماة Invoice >> كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code ستجد الكود بعد التعديل ... يتم تفعيل الحدث بمجرد التعديل في العمود الخامس أي العمود E كما طلبت ويتم الترقيم في العمود الثالث أي العمود C ...

حمل الملف من هنا

[محمد عبدالسلام]

جزاك الله خيرا اخي ياسر خليل  وبارك الله فيك وانار لك طريقك بالعلم والايمان وجعلك من الاخيار الابرار ومن زمره الاتقياء الانقياء وبوأك من جنه الفردوس قصرأ وفقك الله

[محمد حسن المحمد]

58 دقائق مضت, محمد عبدالسلام said:

جزاك الله خيرا اخي ياسر خليل  وبارك الله فيك وانار لك طريقك بالعلم والايمان وجعلك من الاخيار الابرار ومن زمره الاتقياء الانقياء وبوأك من جنه الفردوس قصرأ وفقك الله

السلام عليكم 

أخي الحبيب محمد عبد السلام عليكم...بارك الله بكم..وددت أن يكون لإخوته أيضا حظا من هذا الدعاء الذي يقشعر له البدن...وفق الله أخانا أبو البراء لإرضائه عنه بهذا العلم الذي يبسطه بين أيدينا...جزاكم الله خيرا والسلام عليكم.

تم تعديل مارس 27, 2016 بواسطه محمد حسن المحمد

[حسين العصلوجى]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
1 r = 1
LR = Range("E65436").End(xlUp).Row
Range("$c$1:$c$" & LR).ClearContents
For x = 1 To LR
If Cells(x, "E") <> "" Then
Cells(x, "C") = r
r = r + 1
End If
Next
End If
End Sub

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

 

 

 

ترقيم تلقائي3.rar

تم تعديل مارس 27, 2016 بواسطه حسين العصلوجى

[محمد عبدالسلام]

أخي الحبيب حسين العصلوجى السلام عليكم...جزاك الله خير الجزاء وجعله في ميزان حسناتك

[ياسر خليل أبو البراء]

أخي الحبيب محمد عبد السلام

بارك الله فيك على دعائك الطيب المبارك وجزيت خيراً .. ولك بمثل إن شاء الله

 

أخي الغالي أبو يوسف

جزيت خيراً على مرورك العطر وكلماتك الطيبة .. ولك ولكل الأخوة بالمنتدى مثل هذا الدعاء وزيادة

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

 

أخي الحبيب حسين العصلوجي

بارك الله فيك على إثرائك للموضوع .. وجزاكم الله خيراً ..

والله لا تعرف مدى سعادتي بوجودك بيننا

 

ولكن بالنسبة للحل المقدم : اسمح لي الاعتراض على استخدام الحلقات التكرارية .. فمن المعروف في حالة أن البيانات كثيرة سيتسبب ذلك في ثقل في تنفيذ الكود خصوصاً أن الكود في حدث تغير ورقة العمل ..

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

Rng.Value = Rng.Value

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

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

[حسين العصلوجى]

5 دقائق مضت, ياسر خليل أبو البراء said:

أخي الحبيب حسين

بارك الله فيك على إثرائك للموضوع ..

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

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

Rng.Value = Rng.Value

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

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

اخي الغالي / ابو البراء تحية طيبه لك علي مشاركتك ونقاشك لان هذا هو هدف المنتدي طرح العديد من الرؤي ومناقشتها للوصول للافضل واضافة المزيد من الخبرات

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

لكن :- مع اضافة السطر الذي اقترحته يكون هو الحل الامثل والاسرع

تقبل تحياتي

 

 

[ياسر خليل أبو البراء]

أخي العزيز حسين

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

بارك الله وجزاك الله كل خير .. وواصل بلا فواصل .. فما زال في جعبتك الكثير والكثير والكثير ....

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