أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





مساعدة في كود ترقيم

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



23-08-2019 08:47 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 126
الاعجاب : 40
 offline 

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

في الخلية A1  يوجد رقم اريد ان يضيف عليه بنفس الخلية  مثلا   ASD-001  عند الضغط على زر الماكرو   يقوم  الاضافة الى نفس الخلية  A1 = ASD-002 وهكدا يتم الاضافة في كل مرة يتم الضغط على زر الماكرو 
هذا الكود الذي حاولت معه لكن لم يفلح  
Sub dd()
Dim SS As Variant
SS = Range("A1").Value
Range("a1").Value = "asd-001"
 
 Range("a1").Value = Range("a1").Value + 1

End Sub
انوه على شي قد قمت بالبحث في المنتدى ولم اجد مبتغاي 
 
 
  NUMBERING.xls   تحميل xls مرات التحميل :(12)
الحجم :(32.768) KB







23-08-2019 09:47 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
وعليكم السلام أخي الكريم

جرب الكود التالي عله يفي بالغرض إن شاء الله





23-08-2019 09:55 مساء
مشاهدة مشاركة منفردة [2]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 126
الاعجاب : 40
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
اخي ياسر الرجاء كتابة الكود   بعد ما ادخل على رابط  التحميل ينقلنا الى صفحة بعد الضغط على تخطي الاعلانات ينقلنا الى صفحة لايوجد فيها اي رابط 





23-08-2019 09:57 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
في الموضوع التالي شرح لكيفية تخطي الإعلان وأعتذر عن ذلك .. 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب





23-08-2019 10:07 مساء
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 126
الاعجاب : 40
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
شكر اخي ياسر تم الحصول على الكود   هذا ما اريده 

أثارت هذه المشاركة إعجاب: YasserKhalil،




23-08-2019 10:30 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
ولشرح الدالة  Split  يمكن ذالك لفديو استاذنا العزيز ياسر خليل ايضا من الرابط التالى



وبعد اذن استاذنا العزيز ايضا لان كل الطرق تؤدى الى روما يمكن استخدام نفس كود الاستاذ ياسر خليل مع الدالة mid

وبتغير السطر

Range("A1").Value = Split(v, "-")(0) & "-" & Format(Val(Split(v, "-")(1)) + 1, "000")

الى السطر
Range("A1").Value = "asd-" & Format(Mid(Range("A1").Value, 5, 10) + 1, "000")


تكون نفس النتيجه بفكرة جديده


واتمنى كل من لديه افكار اخرى لاى موضوع يشاركنا بها
تحياتى

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


23-08-2019 11:13 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 126
الاعجاب : 40
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
شكرا اخي محمود على هذه الاضافة 

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




24-08-2019 06:24 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
بارك الله فيك أخي الحبيب محمود
استخدام جيد للدالة MID ولكن لا يمكن استخدامها إذا كان الجزء الأول متغير أي أكثر أو أقل من 3 حروف
استخدام الدالة Split سيعتمد على وجود الشرطة في أي مكان في النص ..

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




24-08-2019 09:27 صباحا
مشاهدة مشاركة منفردة [8]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
عرضت الحل على حسب الطلب وبالفعل الدالة split مرنه اكثر لذالك عرضت الشرح الخاص بها ايضا 

تحياتى وتقديرى
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


24-08-2019 10:45 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
لا حرمنا الله منك أبداً أخي الغالي محمود وأشكرك على النشاط الرائع في المنتدى

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




24-08-2019 11:16 صباحا
مشاهدة مشاركة منفردة [10]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 153
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 126
الاعجاب : 40
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
شكرا الى  كل من ساهم في حل هذه المسالة 

أثارت هذه المشاركة إعجاب: YasserKhalil،




24-08-2019 12:29 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif مساعدة في كود ترقيم
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى OmarGad
4 453 OmarGad
ترقيم المدارس بالتسلسل دون ترقيم المكرر محمدمطر
5 257 YasserKhalil
الترقيم التلقائى karim.mohamed33
2 208 YasserKhalil
كود ترقيم تلقائي معقد المبتدأ
3 330 ali mohamed ali
كود ترقيم تلقائي المبتدأ
5 450 المبتدأ

الكلمات الدلالية
ترقيم ، مساعدة ،


 







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



الساعة الآن 08:22 مساء

أعلن هنا
أعلن هنا
أعلن هنا