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

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


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





تكرار الرقم مع اكثر من رقم بالمعادلات

احتاج تعديل علي الملف تعديل بسيط الكود يقبل الي 15 رقم في عمود A احتاجه يقبل الي 50 رقم وشكرا الطلب اللي يخص الجمع ل ..



14-04-2021 06:49 مساء
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 

احتاج تعديل علي الملف تعديل بسيط
الكود يقبل الي 15 رقم  في عمود A   احتاجه يقبل الي 50 رقم
وشكرا 
الطلب اللي يخص الجمع لا احتاجه فقط الطلب اللي ذكرته وهو عدد 50
الشرح مرفق في الملف
واشكرك من جديد استاذي الكريم الموضوع مدموج من مواضيع متعدّدة
 
 
  توزيع.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(264.896) KB


12-04-2021 04:44 مساء
مشاهدة مشاركة منفردة [1]
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
يعطيكم العافيه
بعطيكم شرح لطلبي علي ارقام بسيطه وبعدها احتاج اطبق نفس الشرح علي ارقام اكثر ولكن بالمعادلات

عندي الارقام التاليه
1
2
3

احتاج معرفة جميع الاحتمالات التي ممكن يجتمع فيها الارقام الثلاثه مع بعض
لتوضيح الحل

1
2
3
12
123
13
23

مع العلم  12  هي نفسها 21   يعني طريقة الترتيب ماتهم اهم شي ان الارقام تتكرر مع بعض بجميع الاحتمالات

طيب انا احتاج تطبيق الطريقه علي الارقم 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
وشكرا لكم
 

14-04-2021 09:05 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
السلام عليكم
قم بوضع القيم 1 و 2 و 3 في النطاق من الخلية A1 حتى الخلية A3 ثم جرب الكود التالي عله يفي بالغرض
Sub Test()
    Dim b
    b = Convert2DArrayTo1DArray(Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value)
    Call GrayCode(b)
End Sub

Function Convert2DArrayTo1DArray(arr As Variant)
    Dim b(), i As Long
    ReDim b(1 To UBound(arr, 1))
    For i = 1 To UBound(arr, 1)
        b(i) = arr(i, 1)
    Next i
    Convert2DArrayTo1DArray = b
End Function

Function GrayCode(Items) As String
    Dim v() As Integer, f As Boolean, b As Boolean, subList As String, newSub As String, i As Integer, k As Integer, lower As Integer, upper As Integer
    k = 0: b = True
    lower = LBound(Items): upper = UBound(Items)
    ReDim v(lower To upper)
    Do Until f
        newSub = ""
        For i = lower To upper
            If v(i) = 1 Then
                If newSub = "" Then newSub = "," & Items(i) Else newSub = newSub & Items(i)
            End If
        Next i
        subList = subList & vbCrLf & newSub
        If newSub <> "" Then
            k = k + 1
            Cells(k, 3) = Mid(newSub, 2)
        End If
        If b Then
            v(lower) = 1 - v(lower)
        Else
            i = lower
            Do While v(i) <> 1
                i = i + 1
            Loop
            If i = upper Then f = True Else i = i + 1: v(i) = 1 - v(i)
        End If
        b = Not b
    Loop
    GrayCode = subList
End Function

15-04-2021 09:44 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
هل جربت الكود في المشاركه السابقه للاستاذ الكبير ابو البراء 
طبق الكود ثم أبدأ بالتعليق على الجزئيه التى تريدها

16-04-2021 11:41 صباحا
مشاهدة مشاركة منفردة [4]
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
نعم جربته لكن هذا حل لطلبي الاول
طلبي الاخير الكود يقبل الي 15 رقم احتاجه الي 50 رقم فضلا لا امرا


 

17-04-2021 11:43 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
بعد إذن الاستاذ الكبير ابو البراء 
عدل
Dim k as integer
إلى
Dim k as long

 

18-04-2021 09:29 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
أخي العزيز حسونة 
الفكرة ليست في تغيير نوع المتغير فقط إلى Long
عدد الاحتمالات لـ 50 رقم سيكون ضخم للغاية ولن يتمكن الإكسيل من احتواء النتائج .. 
إذا أردت معرفة عدد الاحتمالات اتبع القاعدة التالية: 2^ن - 1
لذا لو كانت الأرقام 20 رقم فهذا يعني 2^ 20 -1 = 1048575 وهو تقريباً عدد صفوف الإكسيل جميعها 




الكلمات الدلالية
استاذي ، اشكر ، YasserKhalil ، الكريم ، احتاج ، ولكن ، مساعدتي ، تعديل ، الملف ،


 










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

الساعة الآن 08:21 مساء