Ali Mohamed Ali

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

أخى الكريم قم بضبط اللغة العربية فى جهازك وذلك عن طريق الذهاب الى قائمة التحكم -Control Panal ثم بعد ذلك اختار Region and Language وبعدين Adminstrative ثم Change System Locale واختار Arabic (Egypt) واتبع الصورتين

تفضل اخى الكريم جرب هذا الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 16 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 17 And Target.Row > 7 Then Cancel = True Target.Value = Now() End If If Target.Column = 20 And Target.Row > 7 Then If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub Cancel = True Target.Value = Now() End If If Target.Column = 21 And Target.Row > 7 Then If Cells(Target.Row, 5).Value = "دوام واحد" Then: Cancel = False: Exit Sub Cancel = True Target.Value = Now() End If Target = Format(Time, "hh:mm AM/PM") End Sub

وعليكم السلام اخى الكريم من الأفضل ارسال الملف حتى تتمكن الإخوة والأساتذة من مساعدتك وتجنبا لمضيعة الوقت جزاك الله كل خير

اهلا وسهلا بك اخ كريم فى منتدانا العظيم تفضل برفع الملفات وان شاء الله ستلقى الإستجابة من الإخوة والأساتذة والخيراء جزاك الله كل خير

بعد اذن استاذنا الكبير سليم تفضل تصحيح معادلة-1.xlsx

تفضل اخى الكريم statistic-1.xls

لاحظ الصورة رقم 1 الخاصة بوضع الكود الأول الخاص بورقة العمل . أما الكود الثانى الذى يوضع فى موديول نقوم بالتالى : أولا أضغط على Alt F11 من لوحة المفاتيح عند فتح ملف الإكسيل ستظهر نافذة جديدة كما بالصورة رقم 2 -فأضغط من الأعلى على insert ثم أختار Module وبالتالى اقوم بوضع الكود الثانى فى الصفحة الجديدة التى ستظهر لى جزاك الله كل خير

Option Explicit 'Sub split_name(rg) ''Dim MY_Name$ 'Dim i% 'Dim k%: k = 7 ''st = rg.Value ''MY_Name = Split(st, " ") 'For i = 0 To UBound(rg) ' Cells(2, k) = rg(i) ' k = k + 1 ' Next 'End Sub 'Sub give_name() 'Dim arr 'Dim k% 'arr = Split(Range("a2"), " ") 'For i = 0 To UBound(rg) ' Cells(2, k) = rg(i) ' k = k + 1 ' Next 'End Sub Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Row > 1 _ And Target.Count = 1 Then Target.Offset(0, 1).Resize(, 4).ClearContents Dim i% Dim arr, k%: k = 2 arr = Split(Trim(Target), " ") For i = 0 To UBound(arr) Cells(Target.Row, k) = arr(i) k = k + 1 Next End If Application.EnableEvents = True End Sub أولا وضع هذا الكود الأول فى حدث ورقة العمل ثم بعد ذلك قم بعمل وادخال موديول جديد وضع به هذا الكود الثانى :

هذا العمل بالأكواد VBA

من فضلك قم بشرح وافى لما تريد طالما لم أفهم ما تقدمت به من تساؤل ووضحه على ملفك

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

تفضل اخى الكريم تقسيم الخلية الى عدة أعمدة.xlsm

تفضل اخى الكريم مخازن 1.xlsm

أخى الكريم اهلا بك فى المنتدى الكريم اين الملف الذى تريد العمل عليه -من الأفضل رفع الملف تجنبا لمضيعة وقت الأساتذة والخبراء حتى لا يتم عدم الإلتفات الى طلبك فهو مبهم للجميع الى الأن جزاك الله كل خير

بارك الله فيك وجعله الله فى ميزان حسناتك

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

أخى الكريم جزاك الله كل خير وجعل الله هذا العمل فى ميزان حسناتك

تفضل fgh-1.xlsx

تفضلى لكى ما طلبتى لإخفاء الصفوف فقط -1اخفاء.xlsm

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

تفضل تجربة14-جديدة-1.xlsm

من فضلك وضح المطلوب بدقة أين كشف التسديدات ؟!!!

نعم بالتأكيد هذه الأكواد تحتاج زر توضع هذه الأكواد فى موديول تفضلى اخفاء.xlsm

بارك الله فيك وجزاك الله كل خير ونفعك بما علمك