عمل تسلسل رقمي حتى 25000

[م. خالد البقار]

كيف عمل تسلسل رقمي من 1 - 2- 3 -4 ------الى 25000

بدون سحب علامة + فى الخلية

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

جرب الكود التالى :

Sub Serl()
    For i = 1 To 25000
    Sheet1.Cells(i, "A") = i
    Next
End Sub

السلام عليكم

[bahraini]

السلام عليكم جميعاً

بصراحة ياأخ هادى سالم أنت أستاذ

بس اسمح لي شوي راح اثقل عليك

طيب لوحبيت أيكون التسلسل فردي 1-3-5 ... الخ أو زوجي 2-4-6 .. الخ أو الفرق كل خمسة أرقام يعني 5-10-15 .. الخ كيف يكون ذلك مع الشكر الجزيل

أخوك بوفاطمة

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

للأرقام الفرديه استخدم هذا الكود :

Sub SerSin()
    Dim cont As Integer
    cont = 1
    For i = 1 To 13000
        Sheet1.Cells(i, "A") = cont
        If Cells(i, "A") < 25000 Then
            cont = cont + 2
        Else
            Cells(i, "A").Clear
            Exit Sub
        End If
    Next
End Sub

للأرقام الزوجيه استخدم هذا الكود :

Sub SerDbl()
    Dim cont As Integer
    cont = 2
    For i = 1 To 25000
        Sheet1.Cells(i, "A") = cont
        If Cells(i, "A") < 25000 Then
            cont = cont + 2
        Else
            Exit Sub
        End If
    Next
End Sub

ليكون الفرق 5 استخدم هذا الكود :

Sub SerFive()
    Dim cont As Integer
    cont = 5
    For i = 1 To 13000
        Sheet1.Cells(i, "A") = cont
        If Cells(i, "A") < 25000 Then
            cont = cont + 5
        Else
            Exit Sub
        End If
    Next
End Sub

السلام عليكم

[mafekry]

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

الاخ العزيز هادى

شكرا جزيلا لك على هذه المعلومات الثمينه ولكن اسمح لى ان اثقل عليك بسؤالى

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

السؤال

بعد كتابة الكود ماذا افعل لكى استخدمه؟؟؟

وشكرا لك ولكل المشرفين على المنتدى

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم



ستجد شرح مفصل على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=12203



السلام عليكم

[bahraini]

الأخ الفاضل المبدع هادي سالم

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

ماذا عساي أن أقول ياأخي الكريم

جزاك الله خير الجزاء

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

فأنت وأمثالك يجعلون هذا المنتدى مميز بمعنى الكلمة

أخوك بوفاطمة