ألغاز إكسيلية (موضوع ترفيهي)

[ياسر خليل أبو البراء]

كودي ليس رائع بل كود هو الأروع ..لأنني إذا قمت بمسح محتويات النطاق لا يتم إضافة كلمة Blank بخلاف كودك ..

عموماً محاولة رائعة منك وتسلم يا كبير..

فين بقا ألغازك يا أبو المقالب ؟! عايزين منك لغز كدا شغل الدماغ النايمة دي

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

في موضوع الالغاز و بناءً لطلب الاخ ياسر

اريد أول عشرة اعداد يتوفر فيها هذا الشرط

اذا قسمت اي عدد منها على 2, 5,4,3 ,و 6  يكون الباقي 1

طبعاً بواسطة المعادلات

[طارق محمود]

السلام عليكم

الموضوع جميل وشيق
تسلم أخي الحبيب ياسر (أبا البراء) علي الفكرة الحلوة

==============
أخي الغالي / سليم

الفكرة في سؤالك أن الأرقام المتتالية من 2 إلي 6 حاصل ضربهم بالمعادلة Fact سيكون 720

و Fact لمن لايعلم هي إختصار للدالة Factorial أي المضروب باللغة العربية
وهي تعني حاصل ضرب الرقم (في حالتنا 6) من أول 6 إلي 2 (أي 6 × 5 × ... ×2)
صيغتها كالتالي 

=FACT(6)

الجزء التالي من السؤال أول 10 أرقام تقبل القسمة علي ذلك وهذا يعني 720×1 ، 720×2  ، 720×3 ، 720×4 ،،، ، 720×10
مع إضافة 1 لكل من النواتج

إذن ستحتاج إلي 10 صفوف لإظهار الناتج
وتحتاج لمعادلة صفيف كالتالي في عشرة صفوف

{=ROW(INDIRECT("1:10"))*FACT(6)+1}

وستجد النواتج

721

1441

2161

2881

3601

4321

5041

5761

6481

7201

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

استاذ طارق 

مع اعتذاري الشديد الجواب ليس صحيحاً 

ما رأيك بالعدد 121 مثلا

[طارق محمود]

السلام عليكم

عندك حق أخي سليم

أنا تسرعت بالحل

لم أقرأ جيدا

الحل في المضاعف المشترك الأصغرللأعداد وليس في المضروب ودالة المضاعف المشترك الأصغر هي LCM: Least Common Multiple

إذن الحل كما هو بالسابق مع استبدال الدالة Fact بالدالة LCM

إذن ستحتاج إلي 10 صفوف لإظهار الناتج

وتحتاج لمعادلة صفيف كالتالي في عشرة صفوف

{=ROW(INDIRECT("1:10"))*LCM(2,3,4,5,6)+1}

وستجد النواتج

61

121

181

241

301

361

421

481

541

601

 

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

جيد استاذ طارق

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

[طارق محمود]

إذن اكتب المعادلة التالية في أي خلية بالصف الأول من الورقة

=ROW()*LCM(2,3,4,5,6)+1

ثم اسحبها للأسفل بقدر ماتريد

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

استاذ طارق 

ما رأيك بهذه المعادلة (تستطيع ان تحدد عدد الارقام المطلوب من الخلية D1)

=IF(ROWS($A$1:A1)>$D$1,"",LCM(2,3,4,5,6)*ROWS($A$1:A1)+1)

و تضعها اينما تريد وتسحب نزولاً

[طارق محمود]

معادلة ممتازة والفكرة جميلة

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

اخواني في المنتدى

لغز جديد من الغاز اكسل الرائعة

لا استطيع الشرح لذلك حملت الملف مع باسوورد لحماية المعادلات

عندما يجد احد ما الحل سوف ابلغكم بكلمة لمرور 

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

 

جدول متحرك.rar

[عبدالله المجرب]

السلام عليكم 

محاولة للإجابة على لغز جدول متحرك

ضع هذه المعادلة في الخلية B4 ثتم إسحب الى الأسفل والى اليسار

=IF(AND(ROWS($A$1:$A1)<=$J$2;COLUMNS($A$1:A$1)<=$K$2);COUNTA(A$4:A4)+(COUNTA($A4:A4)-1)*$J$2;"")

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

 أشكر مروركم الكريم استاذ عبدالله ،لكن الامر لم ينجح

اذ ان هناك عامود زائد الى اليمين 

[عبدالله باقشير]

وعليكم السلام

 

محاولة للإجابة على لغز جدول متحرك

ضع هذه المعادلة في الخلية B4 ثتم إسحب الى الأسفل والى اليسار

=IF(OR(ROW()-3>$J$2;COLUMN()-1>$K$2);"";((COLUMN()-2)*$J$2)+ROW()-3)

تحياتي

[عبدالله المجرب]

 أشكر مروركم الكريم استاذ عبدالله ،لكن الامر لم ينجح

اذ ان هناك عامود زائد الى اليمين 

 

بالفعل 

 

وهذا تعديل للمعادلة

=IF(AND(ROWS($A$1:$A1)<=$J$2;COLUMNS($A$1:A$1)<=$K$2);ROWS(A$4:A4)+(COLUMNS($A4:A4)-1)*$J$2;"")

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

 صباح الخير للجميع

بالفعل يا استاذ عيدالله هذا هو الحل 

لأن المعادلة صحيحة 100%

الفرق البسيط بيني وبينك في المعادلة هو النقطة فاصلة التي تعمل على جهازك بينما عندي الفاصلة هي التي تعمل

كلمة السر

123**

[ياسر خليل أبو البراء]

بسم الله ما شاء الله عليكم

أخي سليم حاصبيا جعل الكبار يدخلون اللعبة ..بارك الله فيك ، ومتحرمناش من الروائع يا كبير

 

مشكور مشاركتك الفعالة أخي وحبيبي طارق محمود ..ولا تحرمنا من ردودك

أستاذي ومعلمي وتاج راسي عبد الله باقشير .. مجرد ردك في أي موضوع دليل على نجاح الموضوع نجاح باهر ، وأصبح الموضوع ليس مجرد موضوع للتسلية كما يظن البعض ، بل إن مشاركاتكم فيه يعد أقصى استفادة يمكن أن نستفيد منها .. لا حرمنا الله منكم

الأخ الغالي والأستاذ الكبير عبد الله المجرب مشكور على مشاركتك الرائعة والتي أضفت جمالا ورونقاً للموضوع

بارك الله فيكم جميعاً وجزيتم عنا خير الجزاء ...

وإلى لقاء مع لغز آخر (في انتظار ابن مصر باللغز القادم!!!! )

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

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

اخي ياسر

صح النوم 

اين كانت اقتراحاتك للحل / لم ار اي مشاركة 

هو ايه اللي جرى انت مش عايز تحك دماغك حبتين

نفس الموضوع لكن أريد ان تتوزع الارقام على الاعمدة وليس الصفوف يعني: 

1  2  3  4  5

6  7  8  9  10 .... و هكذا   (لغز برسم الجميع) مع انه ليس دوري في اللغز لكن بعد الاعتذار من ابن مصر

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

 

تسلم الأيادي أخي الحبيب سليم

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

بالنسبة للملف المرفق في الصف رقم 10 في العمود الأول والثاني ..لم ينطبق الكود رغم الإشارة إليه ..!! بحاول يمين شمال مش قادر أجمع ايه السبب؟

ما رأيك لو كان الكود بهذا الشكل؟

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        If IsEmpty(Target) Then Target.Value = "Blank"
    End If
End Sub

اخى ياسر

مشكورا على هذه الفكره الجميله

طبعا سيكون هناك استفده للجميع

وخصوصا من تنوع الاجابات

ولكن هل ينفع هذا الكود فى حالة دمج الخلايا

تقبل تحياتى

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

 السلام عليكم 

رداً على سؤال الاستاذ ابراهيم ابو ليلى

  وضع كلمة "Blank"  حتى في الخلايا المدمجة

 

blank with merge.rar

[ابوصلاح]

بصراحة عقول جبارة ومبدعة يسلم الجميع

[ابوصلاح]

لغز اعجبني لفتح ملف اكسل في بعض المواقع

1- الرقم الخامس + الرقم الثالث = 14
2- الرقم الرابع اكثر بواحد من الرقم الثاني
3- الرقم الأول اقل بواحد من ضعف الرقم الثاني
4- الرقم الثاني + الرقم الثالث = 10
5- مجموع الأرقام الخمسة = 30

ماهي الأرقام الخمسه .. بالترتيب طبعا .. الأرقام هي نفسها الشفره اللي راح تفك ملف الأكسل

puzzle(1).rar

[ياسر خليل أبو البراء]

الأخ الغالي سليم

بالراحة علينا .انا كنت مريض شوية ، بالراحة علينا ، وبعدين لازم بعد كل لغز تعلن انتهاء اللغز .. وبداية لغز جديد ..بحيث لو فيه حد عنده لغز يبدأ يتفضل بطرحه ..

مش كله ورا بعضه عشان الموضوع يكون أكثر تنظيماً ..

بالنسبة للغزك الأخير ..ممكن توضح اللغز أكثر ، لأني بصراحة تايه ومش عارف الملف اللي تقصده (الخاص بالجدول المتحرك ، ولا بلغز المتبقي 1)

 

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

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

الاخ ياسر انا اقصد بالمشاركة 42 طبعاً الجدول المتحرك

و على فكرة القِ نظرة على المشاركة 44 الذي هو تكملة للغز "ادراج كلمة Blank"

[الصـقر]

 

الأخ الغالي سليم

بالراحة علينا .انا كنت مريض شوية ، بالراحة علينا ، وبعدين لازم بعد كل لغز تعلن انتهاء اللغز .. وبداية لغز جديد ..بحيث لو فيه حد عنده لغز يبدأ يتفضل بطرحه ..

مش كله ورا بعضه عشان الموضوع يكون أكثر تنظيماً ..

بالنسبة للغزك الأخير ..ممكن توضح اللغز أكثر ، لأني بصراحة تايه ومش عارف الملف اللي تقصده (الخاص بالجدول المتحرك ، ولا بلغز المتبقي 1)

 

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

 

 

يا حبيبى بطل تلاكيك ولا دلوقتى هتعمل نفسك من بنها ههههههههههههههههههه

من اعمالكم سلط عليكم شيل بقى ما قلتلك بلاش هههههههههههههههههههههههه

والبرد اللى عندك ده من السهر طول الليل فى البرد 

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

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

اخي ياسر

صح النوم 

اين كانت اقتراحاتك للحل / لم ار اي مشاركة 

هو ايه اللي جرى انت مش عايز تحك دماغك حبتين

نفس الموضوع لكن أريد ان تتوزع الارقام على الاعمدة وليس الصفوف يعني: 

1  2  3  4  5

6  7  8  9  10 .... و هكذا   (لغز برسم الجميع) مع انه ليس دوري في اللغز لكن بعد الاعتذار من ابن مصر

أخي الكريم سليم، يكفي في هذه الحالة وضع المعادلة التالية في الخلية B4 ثم سحبها إلى اليسار وإلى الأسفل:

 

المعادلة:

=IF(AND(ROW($A1)<=$J$2;COLUMN(A$1)<=$K$2);$K$2*(ROW($A1)-1)+COLUMN(A$1);"")

ملاحظة : تطبيق المعادلة في الملف المرفق...

 

بن علية

جدول متحرك.rar

تم تعديل ديسمبر 21, 2014 بواسطه بن علية حاجي