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

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

تفضل أخي الحبيب إبراهيم أبو ليلة

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = [F6].Address Then
        If IsEmpty(Range("F6")) Then
            Cells(8, 4).Value = ""
            Cells(9, 4).Value = ""
            Cells(10, 4).Value = ""
        Else
            Cells(8, 4) = 1
            Cells(9, 4) = 2
            Cells(10, 4) = 3
        End If
    End If
End Sub

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

اخى ياسر

فى انتظار التعديل

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

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

 

تفضل أخي الحبيب إبراهيم أبو ليلة

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = [F6].Address Then
        If IsEmpty(Range("F6")) Then
            Cells(8, 4).Value = ""
            Cells(9, 4).Value = ""
            Cells(10, 4).Value = ""
        Else
            Cells(8, 4) = 1
            Cells(9, 4) = 2
            Cells(10, 4) = 3
        End If
    End If
End Sub

أرجو تجربة الكود التالي المعدل...

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = [F6].Address Then
      For I = 8 To 10
        If IsEmpty(Range("F6")) Then Cells(I, 4) = "" Else Cells(I, 4) = I - 7
      Next
    End If
End Sub

أخوكم بن علية

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

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

 

تفضل أخي الحبيب إبراهيم أبو ليلة

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = [F6].Address Then
        If IsEmpty(Range("F6")) Then
            Cells(8, 4).Value = ""
            Cells(9, 4).Value = ""
            Cells(10, 4).Value = ""
        Else
            Cells(8, 4) = 1
            Cells(9, 4) = 2
            Cells(10, 4) = 3
        End If
    End If
End Sub

أرجو تجربة الكود التالي المعدل...

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = [F6].Address Then
      For I = 8 To 10
        If IsEmpty(Range("F6")) Then Cells(I, 4) = "" Else Cells(I, 4) = I - 7
      Next
    End If
End Sub

أخوكم بن علية

اخى بن علية

طبع الكود جميل

ولكنه للاسف لا يفى بالغرض

جرب دمج الخليه من

F6:H6

ثم حاول جعل الخليه فارغه

وذلك بعد عمل الكود

ستجد ان الخلايا مازلت بها بيانات

تقبل تحياتى

فى انتظار الرد

Book11.rar

[مختار حسين محمود]

الأستاذ  ياسر

لما ضغطت الزر فتح ال vbe على السطر  Open MyFile For Output As #1  ورسالة الخطأ  كانت بالرقم 75  ولم يخرج الملف الى الـــ c  نهائيا  إلا بعد ما عملت فولدر جديد وبالشكل االلى عرضته فى مشاركتى السابقه .

[مختار حسين محمود]

أين أنت يا  ( كن ذا تصل الى )

 

من المغربيه وانا فى حاله من 

والآن  أشعر بـ  

لدرجة أنى عايز  

اوعى حضرتك تكون     

  ألف مليون

عايز أعرف    بتاع اللغز ونقولك

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

 اخي ابو ليلة

جرب هذا المرفق

ابراهيم salim.rar

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

 اخي ابو ليلة

جرب هذا المرفق

اخى سليم

اريد افراغ الخلايا

فى حالة دمج الخليه f6 مع g6

تقبل تحياتى

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

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

عموماً طالما أن تغيير المجلد قد عالج الخطأ فلا بأس .. وقد انتهى العمل على اللغز بتغيير كلمة Write إلى كلمة Print فقط ..(وهذا حل اللغز)

 

الأخ الحبيب سليم بارك الله فيك على مساعداتك المستمرة ودعمك المستمر ..

الأخ إبراهيم أبو ليلة حبيبي بوركت على مشاركاتك في الموضوع وإثراء الموضوع

الأخ حسام ..إحنا يا غالي بنقول لغز ، يعني يكون فيه فكرة بسيطة ممكن تكون تايهة عن الفكر والبال ..زي حل اللغز الخاص بالتخلص من أقواس التنصيص والفواصل ..الفكرة بسيطة ...

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

 

Football Matches Hossam.rar

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

اخى ياسر

بوركت

فى انتظار الحل

تقبل تحياتى

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

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim myrange As Range
 If Not Intersect(Target, Range("f6")) Is Nothing Then Exit Sub
 Set myrange = Union(Cells(8, 4), Cells(9, 4), Cells(10, 4))
If [f6] <> "" And Range("f6:g6").MergeCells = True Then
    Cells(8, 4) = 1
    Cells(9, 4) = 2
    Cells(10, 4) = 3
    Exit Sub
Else
    myrange = ""
End If
End Sub

 اكتب هذا الكود 

جربه أولاً في صفحة مستقلة لنعرف النتيجة

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

كود رائع يا حسام

الى المزيد من التقدم

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

أستاذ سليم .. كود ايه ؟ فين كود حسام ده..

بدور عليه مش لاقيه ..هو حسام كتبه بالحبر السري

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

بلاش استاذ دى يا ياسر

بص بقى في الصفحة 4 المشاركة 69

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

أخي الحبيب سليم ..أعتذر كنت مريض ولم أنتبه جيداً للكود الرائع الخاص بالأخ الغالي حسام ..

أعتذر لكما عن عدم انتباهي لهذا الكود التحفة الروعة

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

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

لي رجاء إخوتي ... الموضوع تحول من موضوع ترفيهي في الأساس إلى موضوع دسم ...

على رأي حسام أصبح حلبة مصارعة للمحترفين  

يرجى وضع ألغاز خفيفة فكرتها بسيطة ..

يرجى وضع ألغاز خفيفة فكرتها بسيطة ..

يرجى وضع ألغاز خفيفة فكرتها بسيطة ..

تم تعديل ديسمبر 23, 2014 بواسطه YasserKhalil

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

اخي ياسر

انت اطلب فقط و علينا التّنفيذ

لغز اخر من الجداول المتحركة 

الله يخليك انت ما تحركش عن الكرسي بتاعك عشانك مريض

جدول متحرك 1.rar

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

أخي الغالي سليم ..الحل موجود في المرفق (نشكرك على المساعدة)

هذه هي المعادلة التي تؤدي الغرض

=IF(OR(ROWS($A$1:A1)>$I$2,COLUMNS($A$1:A1)>$J$2),"",IF(MOD(COLUMN(),2)=1,(COLUMNS($A$1:B1)-1)/2,ROW(A1)))

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

المطلوب بقى التنسيق الشرطي

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

أخي الحبيب سليم ...أعتقد أن هذه المعادلة في التنسيق الشرطي تفي بالغرض

=AND(B4<>B3,B4<B5)

تم تعديل ديسمبر 24, 2014 بواسطه YasserKhalil

[الصـقر]

استاذى الغالى

سليم بك حاصبيا

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

الملف المرفق به الحل بتاع لغز الجدول الجديد وايضا شيت اخر فكرة جدول الضرب وكله اكواد

اتمنى ان يحوز اعجابك

الباسورد للشيتات 111

جدول متحرك.zip

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

الباسورد غير صحيح 

تاكد منه

[الصـقر]

استاذى الحبيب

والله الباسورد 111

عموما يا غالى اتفضل الملف بدون الباسورد 

جدول متحرك.zip

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

أيها الصقر الجريح ..ملف في منتهى الروعة مستر صريح قصدي جريح

لي طلب بسيط .. ممكن تنظم الملف من أجل الاحتفاظ به في المكتبة لدي (أعتز بالروائع)

أقصد مثلا أسماء الإجراءات الفرعية كلها حسام حساام حسااام ..هههه خلي الاسم معبر عن الهدف من الكود كما تعلمنا من حلقات عبد التواب

وأشكرك على حسن تعاونك معنا يا صقر المنتدى

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

لغز جديد من الغاز اكسل في المرفق

 

لغز الدمج.rar