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



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





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

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



14-04-2018 05:50 مساء
AMIN FAID
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 250
المشاركات : 20
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 72
الاعجاب : 26
 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
المشاركات : 3633
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10111
الاعجاب : 3488
 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
المشاركات : 3633
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10111
الاعجاب : 3488
 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
المشاركات : 3633
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10111
الاعجاب : 3488
 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
المشاركات : 20
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 72
الاعجاب : 26
 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
المشاركات : 3633
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10111
الاعجاب : 3488
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
وجزيت خيراً أخي الكريم أمين ..
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

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




14-04-2018 10:19 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 360
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 228
قوة السمعة : 2379
الاعجاب : 592
 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
المشاركات : 3633
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 285
قوة السمعة : 10111
الاعجاب : 3488
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
بارك الله فيك أخي الحبيب محمد الدسوقي
ومشكور على التفاعل المثمر والذي أنتظره من الجميع
والأكواد مرنة ويمكن تطويعها كما تشاء حسب الحاجة .. المهم هو كيفية الاستفادة منها 
تقبل تحياتي

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




23-04-2018 10:09 صباحا
مشاهدة مشاركة منفردة [8]
AMIN FAID
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 250
المشاركات : 20
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 72
الاعجاب : 26
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
شكرا استاذنا محمد الدسوقي ... لا حرمنا الله منكم

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


توقيع :AMIN FAID

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

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

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

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

 

 
 



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

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


 







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



الساعة الآن 01:27 صباحا

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