logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





  • غير مجابة
14-04-2021 06:49 مساءً
احتاج تعديل علي الملف تعديل بسيط
الكود يقبل الي 15 رقم في عمود A احتاجه يقبل الي 50 رقم
وشكرا
الطلب اللي يخص الجمع لا احتاجه فقط الطلب اللي ذكرته وهو عدد 50
الشرح مرفق في الملف
واشكرك من جديد استاذي الكريم الموضوع مدموج من مواضيع متعدّدة
 
 
  توزيع.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(264.896) KB





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

عندي الارقام التاليه
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
وشكرا لكم




look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
  14-04-2021 09:05 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
السلام عليكم
قم بوضع القيم 1 و 2 و 3 في النطاق من الخلية A1 حتى الخلية A3 ثم جرب الكود التالي عله يفي بالغرض
CODE
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

أثارت هذه المشاركة إعجاب: ali mohamed ali، hassona229، asd2000،



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

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



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





[quote = hassona229] Have you tried the code in the previous post of the great professor Abu Al-Baraa?




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




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

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



look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
  18-04-2021 09:30 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
سؤال للأخ السائل
لما تحتاج لمثل هذه العمليات الحسابية؟ لربما لو شاركتنا الفكرة ، ربما تجد أفكار اخرى من الاخوة الأعضاء بالمنتدى.




look/images/icons/i1.gif تكرار الرقم مع اكثر من رقم بالمعادلات
  07-10-2021 05:37 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس :
تاريخ الميلاد : 19-1-1980
قوة السمعة : 18
الاعجاب : 0
الفكره لان عندي قيم معينه كلما اجتمعت قيم مع بعض تكون اقوي
مثلا
123
افوي من
12
و
123456
اقوي من
12345
لكي اعرف اقوي القسم مجتمعه فارتبها لاري افضلها
هذه الفكرة هل لها حل غير فكرتي في التكرار




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
دالة لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial Number UDF Function YasserKhalil
14 3452 YasserKhalil
انتهاء صدور بطاقة الرقم القومى محمدمطر
4 405 علي بطيخ سالم
تحويل لون خط الرقم الى الاسود مع الابقاء على لون الخط بالون الاحمر وليد 99999
4 1231 وليد 99999
طلب كود توزيع وتعديل الرقم القومي وليد 99999
2 701 وليد 99999
استخلاص اول سبع ارقام من الرقم القومى ahmed moh
3 661 YasserKhalil

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









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

الساعة الآن 09:32 AM