Special_Sequences

[سليم حاصبيا]

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

 

special_sequence.rar

[بن علية حاجي]

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

وددت أن أشارك هذا العمل الجميل بإضافة معادلة أخرى للفائدة....

بن علية

special_sequence.rar

[إبراهيم ابوليله]

مشاء الله

اعمال جميله

ومفيده بالفعل

بارك الله فيكم

تقبلوا تحياتى

[ياسر العربى]

تفضلوا مشاركة منى بالاكواد

Sub Test()
    Dim numx As Long, x As Long, z As Long, bb As Byte
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    bb = Range("D1").Value
    numx = bb
    numl = Range("F1").Value
    ReDim y(1 To numl, 1 To 1)
    For x = 1 To numl
        If x = numx Then numx = numx + bb: GoTo 86
        If x <> numx Then
            z = z + 1
            y(z, 1) = x
        End If
86  Next
    If z > 0 Then Cells(1, 1).Resize(z, 1).Value = y()
    MsgBox "Done.....  (-_-)"
End Sub

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

special_sequence.rar

[جلال الجمال_ابو أدهم]

سليم حاصبيا

بن علية حاجي

ياسر العربى

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

 

[سليم حاصبيا]

 

تفضلوا مشاركة منى بالاكواد

Sub Test()
    Dim numx As Long, x As Long, z As Long, bb As Byte
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    bb = Range("D1").Value
    numx = bb
    numl = Range("F1").Value
    ReDim y(1 To numl, 1 To 1)
    For x = 1 To numl
        If x = numx Then numx = numx + bb: GoTo 86
        If x <> numx Then
            z = z + 1
            y(z, 1) = x
        End If
86  Next
    If z > 0 Then Cells(1, 1).Resize(z, 1).Value = y()
    MsgBox "Done.....  (-_-)"
End Sub

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

special_sequence.rar

نفس الكود لكن بطريقة مختصرة

Sub Test1()
    Dim x As Long, bb As Byte, m As Integer
    Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    m = 0: bb = Range("D1").Value: numl = Range("F1").Value
    For x = 1 To numl: If x Mod bb = 0 Then x = x + 1
    Cells(m + 1, 1) = x: m = m + 1: Next
    MsgBox "Done.....  (-_-)"
End Sub