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



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





كود ترقيم vba لايعمل

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



14-04-2018 05:50 مساء
AMIN FAID
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 250
المشاركات : 17
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 64
الاعجاب : 22
 offline 
السلام عليكم ورحمة الله وبركاتة
جزى الله خيرا علي ما يقدمه اساتذتنا من علم .
لدي نسخة اوفيس 2010 وللأسف هذا الكود لايعمل .. وهو للترقيم التلقائي هل هناك حل لهذه المشكلة


Sub test1()
Range("A1").Select
Selection.DataSeries Rowcol:=xlColumns, Step:=1, Stop:=10
End Sub










توقيع :AMIN FAID

رغم كيد العدا .. رغم كل النقــم

سوف نسعى إلى .. أن تعم النعـم

سوف نرنو إلى .. رفع كل الهمــم

للمســير للعلي .. ومناجاة القمــم

 

 
 



14-04-2018 06:02 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
وعليكم السلام أخي الكريم
جرب الكود بهذا الشكل
Sub Sequence()
    With Range("A1")
        .Value = 1
        .DataSeries Rowcol:=xlColumns, Step:=1, Stop:=10
    End With
End Sub

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




14-04-2018 06:05 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
وهذا كود آخر أسرع باستخدام المصفوفات
Sub Sequence()
    ReDim a(1 To 100) As Variant
    Dim i As Long
    
    For i = LBound(a) To UBound(a)
        a(i) = i
    Next i
    
    Range("A1").Resize(UBound(a)).Value = Application.Transpose(a)
End Sub

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




14-04-2018 06:08 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
وهذا كود ثالث
Sub Fill_Sequence()
    Dim i     As Long
    
    i = 100# - 1#
    
    With Range("A1")
        .Value = 1#
        .AutoFill Destination:=Range("A1").Resize(i + 1), Type:=xlFillSeries
    End With
End Sub

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




14-04-2018 06:18 مساء
مشاهدة مشاركة منفردة [4]
AMIN FAID
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 250
المشاركات : 17
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 64
الاعجاب : 22
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
جزاك الله خيرا استاذ / ياسر ... الاكواد كلها تعمل  123142

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


توقيع :AMIN FAID

رغم كيد العدا .. رغم كل النقــم

سوف نسعى إلى .. أن تعم النعـم

سوف نرنو إلى .. رفع كل الهمــم

للمســير للعلي .. ومناجاة القمــم

 

 
 


14-04-2018 06:24 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
وجزيت خيراً أخي الكريم أمين ..
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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




14-04-2018 10:19 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 308
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 37
يتابعهم : 7
يتابعونه : 199
قوة السمعة : 2101
الاعجاب : 494
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
بارك الله فيك أخى الحبيب / أبو البراء
ولا حرمنا الله من ابدعاتك الغالية
وبعد اذنك إضافة بسيطة على الكود الأول يمكن وضع متغير lr ليعبر عن آخر صف سيقف عنده الترقيم بالكود الأول  اعتمادا على بيانات عمود آخر به قيم
بدلا من تحديد رقم بعينه 10 فى المشاركة
ليكون الكود بالشكل التالى
Sub Sequence()
Dim lr As Long
lr = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
    With Range("A1")
        .Value = 1
        .DataSeries Rowcol:=xlColumns, Step:=1, Stop:=lr
    End With
End Sub


كما يمكن عمل نفس الاضافة على الكود الثانى للترقيم التلقائى
ليكون التعديل ( وسامحنى فى كلمة التعديل ـ فليس هناك تعديل عليكم ، وإنما هى محاولة لاثراء المشاركة لتعم الفائدة فى جميع الأحوال) كما يلى
Sub Sequence_2()
Dim lr As Long
lr = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
'-------------------------------------------------
    ReDim a(1 To lr) As Variant
    Dim i As Long
    For i = LBound(a) To UBound(a)
        a(i) = i
    Next i
    Range("A1").Resize(UBound(a)).Value = Application.Transpose(a)
End Sub

 

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




14-04-2018 10:29 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3106
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8724
الاعجاب : 2920
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
بارك الله فيك أخي الحبيب محمد الدسوقي
ومشكور على التفاعل المثمر والذي أنتظره من الجميع
والأكواد مرنة ويمكن تطويعها كما تشاء حسب الحاجة .. المهم هو كيفية الاستفادة منها 
تقبل تحياتي

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حل مشكلة معادلة الترقيم التلقائي مربوطة بخلية مجاورة malik
8 197 YasserKhalil
ملف 2مرفق لحل مشكلة معالدة الترقيم التلقائي بها معادلة مجاورة لها malik
4 111 YasserKhalil
ملف حل مشكلة معادلة الترقيم التلقائي مربوطة بخلية مجاورة malik
3 126 hben
كود ترقيم الاصناف ابو حمادة
1 186 ابو حمادة

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


 







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



الساعة الآن 10:07 مساء

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