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

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


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





إيجاد محموع معين لأرقام متتالية

السلام عليكم إخواني الكرام صادفني لغز بسيط وأحببت أن تشاركوا بإيجاد الحل المناسب باستخدام الأكواد اللغز: أوجد 5 أرقام ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


02-12-2021 07:02 صباحا
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 

السلام عليكم إخواني الكرام

صادفني لغز بسيط وأحببت أن تشاركوا بإيجاد الحل المناسب باستخدام الأكواد

اللغز: أوجد 5 أرقام متتالية مجموعهم يساوي 100

اللغز بسيط ويمكن برمجة الأكواد بطرق شتى ، في انتظار ابداعاتكم ..


أفضل إجابة مقدمة من Eslam Abdullah وهي:
 البرهان بالرياضيات
n=(100-10)/5
={n,n+1,n+2,n+3,n+4}

الحل بالمعادلات
=(100-10)/5&"+"&(100-10)/5+1&"+"&(100-10)/5+2&"+"&(100-10)/5+3&"+"&(100-10)/5+4

الحل بالكود
Sub test()
Dim n As Integer
n = 100
n = (n - 10) / 5
Debug.Print n & "+" & n + 1 & "+" & n + 2 & "+" & n + 3 & "+" & n + 4
End Sub
عرض الإجابة




02-12-2021 01:23 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 237
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 34
قوة السمعة : 2349
عدد الإجابات: 31
 offline 
look/images/icons/i1.gif إيجاد محموع معين لأرقام متتالية
السلام عليكم ورحمة الله
ربما هذا الكود
الرسالة تشير الى اول خلية فى الخلايا الخمسة التى يساوى مجموعها 100
Sub HundTest()
Dim C As Range
For Each C In [A1:A50]
X = WorksheetFunction.Sum(Range(Cells(C.Row, 1), Cells(C.Row + 4, 1)))
If X = 100 Then
MsgBox C.Address
End If

Next

End Sub

02-12-2021 05:25 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif إيجاد محموع معين لأرقام متتالية
وعليكم السلام أخي الغالي ابراهيم
بارك الله فيك ومشكور على مساهمتك الرائعة وفي انتظار بقية الأخوة. اللغز ليس صعب برمجته على الإطلاق الرجاء المحاولة

02-12-2021 07:22 مساء
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif إيجاد محموع معين لأرقام متتالية
وعليكم السلام ورحمة الله وبركاته 

sub test()
    Dim xStr As String
    Dim xSum As Double
    Dim xCell As Range
    xSum = 100

    For Each xCell In Range("a2:a50")
        If Not (xSum / xCell < 1) Then
            xStr = xStr & Int(xSum / xCell) & " of " & xCell & "  "
            xSum = xSum - (Int(xSum / xCell)) * xCell
        End If
    Next
    Range("c3")= xStr
End sub

03-12-2021 05:00 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif إيجاد محموع معين لأرقام متتالية
اللغز بسيط الهدف منه ليس البحث عن أرقام في نطاق ويكون مجموعهم 100
اللغز ما هي الخمس أرقام المتتالية التي مجموعها 100 والإجابة هي 18 - 19 - 20 -21 -22
كيف نحصل على الإجابة بأكواد الإكسيل أو بأي طريقة تراها سهلة

04-12-2021 03:22 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 90
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif إيجاد محموع معين لأرقام متتالية
 البرهان بالرياضيات
n=(100-10)/5
={n,n+1,n+2,n+3,n+4}

الحل بالمعادلات
=(100-10)/5&"+"&(100-10)/5+1&"+"&(100-10)/5+2&"+"&(100-10)/5+3&"+"&(100-10)/5+4

الحل بالكود
Sub test()
Dim n As Integer
n = 100
n = (n - 10) / 5
Debug.Print n & "+" & n + 1 & "+" & n + 2 & "+" & n + 3 & "+" & n + 4
End Sub

04-12-2021 04:43 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif إيجاد محموع معين لأرقام متتالية
الله ينور أخي الغالي إسلام وجزاك الله خيراً


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
إيجاد ، محموع ، معين ، لأرقام ، متتالية ،


 










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

الساعة الآن 03:28 صباحا