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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




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





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

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



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

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




14-04-2018 10:19 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 54
يتابعهم : 8
يتابعونه : 375
قوة السمعة : 5356
الاعجاب : 1097
 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
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14754
الاعجاب : 5508
 offline 
look/images/icons/i1.gif كود ترقيم vba لايعمل
بارك الله فيك أخي الحبيب محمد الدسوقي
ومشكور على التفاعل المثمر والذي أنتظره من الجميع
والأكواد مرنة ويمكن تطويعها كما تشاء حسب الحاجة .. المهم هو كيفية الاستفادة منها 
تقبل تحياتي

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




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

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


توقيع :AMIN FAID

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

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

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

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

 

 
 



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود ترقيم تلقائي معقد المبتدأ
3 92 ali mohamed ali
كود ترقيم تلقائي المبتدأ
5 164 المبتدأ
طلب ترقيم تلقائي للمستند khaled alborene
13 253 YasserKhalil
اريد طريقة سهله وسريعة للترقيم المتسلسل في الاكسل عمودي وافقي في نفس الوقت ابو يوسف80
14 323 Eslam Abdullah
حل مشكلة معادلة الترقيم التلقائي مربوطة بخلية مجاورة malik
8 628 YasserKhalil

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


 







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



الساعة الآن 06:48 صباحا

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