نجوم المشاركات

السلام عليكم تم عمل المطلوب في الملف المرفق... تركت الأزرار الأربعة للأكواد في الملف (التي يمكن حذفها)... وأنشأت كودا سميته Global_Operations لتنفيذ العمليات الأربعة على التوالي (عمل الأكواد الأربعة) وربطته بزر سميته "تجميع الملفات والبيانات وحذف الأصفار والفراغات"... بن علية حاجي Nep_ALL_HR.rar

السلام عليكم ورحمة الله انسخ هذين الكودين وضعهما فى حدث ThisWorkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)" Application.DisplayFormulaBar = True ActiveWindow.DisplayHeadings = True Application.DisplayScrollBars = True Application.DisplayStatusBar = True End Sub Private Sub Workbook_Open() Application.ScreenUpdating = False Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)" Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False Application.DisplayScrollBars = False Application.DisplayStatusBar = False Application.ScreenUpdating = True End Sub

السلام عليكم الآن أصبح بالإمكان تصدير الباركود إلى الصورة مع التقرير. salah88.rar

تم معالجة الأمر الكود Option Explicit Sub Give_ma7soul_new() Application.ScreenUpdating = False Dim sh1 As Worksheet: Set sh1 = Sheets("تجهيز (2)") Dim sh2 As Worksheet: Set sh2 = Sheets("ورقة2") Dim lr1: lr1 = sh1.Cells(Rows.Count, 2).End(3).Row Dim lr2: lr2 = sh2.Cells(Rows.Count, 2).End(3).Row If lr2 < 7 Then lr2 = 7 Dim My_rg As Range, i% Dim x%, y%, z% Dim t%: t = 1 Dim k%: k = 3 Dim st$: st = sh2.Range("c3") Dim m%: m = 7: Dim col%: col = 3 Dim Matc% Dim s1#, s2#, s3 '================== Dim ar() Dim xx%: xx = 1 For i = 30 To 600 Step 30 ReDim Preserve ar(1 To xx): ar(xx) = i xx = xx + 1 Next '================== sh2.Range("b7:F" & lr2).ClearContents Select Case st Case "محصول 1": Set My_rg = sh1.Range("c9:E" & lr1) Case "محصول 2": Set My_rg = sh1.Range("H9:J" & lr1) Case "محصول 3": Set My_rg = sh1.Range("M9:O" & lr1) Case "محصول 4": Set My_rg = sh1.Range("R9:T" & lr1) Case "محصول 5": Set My_rg = sh1.Range("W9:Y" & lr1) Case "محصول 6": Set My_rg = sh1.Range("AB9:AD" & lr1) Case Else: GoTo 1 End Select For i = 9 To lr1 x = (My_rg.Cells(i - 8, 1) <> 0) y = (My_rg.Cells(i - 8, 2) <> 0) z = (My_rg.Cells(i - 8, 3) <> 0) If x + y + z = 0 Then GoTo next_i sh2.Cells(m, k) = sh1.Cells(i, 2) sh2.Cells(m, col + 1).Resize(, 3).Value = _ My_rg.Cells(i - 8, 1).Resize(, 3).Value s1 = s1 + sh2.Cells(m, col + 1) s2 = s2 + sh2.Cells(m, col + 2) s3 = s3 + sh2.Cells(m, col + 3) sh2.Cells(m, col - 1) = sh1.Cells(i, 1) m = m + 1 On Error Resume Next Matc = Application.Index(ar, Application.Match(m, ar, 0)) If Matc <> 0 Then m = Matc + 2 Matc = 0 sh2.Cells(m - 2, col) = "Sum" sh2.Cells(m - 2, col + 1) = s1: s1 = 0 sh2.Cells(m - 2, col + 2) = s2: s2 = 0 sh2.Cells(m - 2, col + 3) = s3: s3 = 0 End If On Error GoTo 0 next_i: Next ActiveSheet.ResetAllPageBreaks Dim Newlr%: Newlr = sh2.Cells(Rows.Count, 3).End(3).Row sh2.PageSetup.PrintArea = sh2.Range("b1:f" & Newlr).Address For i = 30 To Newlr Step 30 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1) Next 1: Application.ScreenUpdating = True End Sub الملف مرفق Salim_up1.xlsm

السلام عليكم ورحمة الله قمت ببعض التعديلات على الملف بحذف كل شيتات الأسابيع وتعويضها بواحدة فقط (حتى لا تتعدد شيتات الملف ويكبر حجمه) سميتها "المبيعات الأسبوعية" وأبدلت معادلة الخلية A2 لاسم الأسبوع بقائمة منسدلة لكل الأسابيع... تم وضع المعادلات اللازمة لجلب مبيعات2017، مبيعات2018، مبيعات2019 التراكمية إلى غاية رقم الأسبوع الذي نختاره من خلال القائمة المنسدلة في الخلية A2... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي test 2019.xlsx

جرب هذا الملف example_سليم.xlsm

السلام عليكم ورحمة الله تم تعديل الكود حسب المطلوب... تم إضافة نطاقين مطاطيين بالتسمية: "محطة" لعمود اسم المحطة و"سيارة" لعمود رقم السيارة من شيت "تحميل" (تخفيفا لعمل المعادلات). بن علية حاجي عدد مرات التحميل + اسماء المحطات.xlsm

حسب فهمي للمطلوب، جرب المرفق لعل فيه ما تريد... بن علية حاجي WHAT IF.xlsx

هناك عدة طرق لإرسال ملاحظات العملاء لصاحب البرنامج. الطريقة الأولى : تستطيع ‏إضافة متصفح إنترنت في نموذج ‏ثم ربطه بنماذج Google Drive والتأكد من الاتصال بالانترنت الطريقة الثانية : عن طريق الإيميل كما ارسلت لك سابقا بدون أوت لوك “cdo” ضع الإيميل وكلمة المرور الخاصة واجعل إيميل المرسل إليه هو إيميلك الثابت لا يتغيير ولكن غير في اسم المرسل وجعله اسم جهة العميل

السلام عليكم ورحمة الله تم تصحيح الخلل الذي كان في عرض (عدد أعمدة) النطاق بالتسمية Liste المستعمل في جلب البيانات للشهادات... تم تعديل بعض معادلات النهاية الكبرى والنهاية الصغرى للمواد في شيت السهادات... عند إضافة اسم مادة جديد في شيت "الشهادات" يكفي إضافته في جدول الشهادة الأولى فقط... بن علية حاجي نتيجة (1).xlsm

السلام عليكم جميعا... الحمدلله تم انتهائى من تصميم برنامج الاقساط هذا واللذى يقوم بمراقبة وسداد الاقساط ونبذة عن البرنامج هو مجانى بداية ثم يحتوى هذا البرنامج على فورم دخول بكلمة مرور وهى (12345) ويحتوى على عدة صفحات منها الرئيسية ومنها العملاء ليتم تسجيل بيانات العملاء فيها ومنها حالة العملاء وهى صفحة يتم مراقبة حالة السداد للعملاء ولكن الحالات هى اوشك اى على السداد اذا مر27يوم من تاريخ اخر سداد للعميل ومتاخر اذا مر اكثر من30يوم ومتاخر جدا اذا مر اكثر من 62يوم وغيرذلك ومن هذه الصفحات البحث والترحيل وفيها تقوم بالبحث عن العميل باى حرف من اسمه او من السلعة المباعة له او عنوانه او ان كان ضامن له ويتم السداد هناك و تستطيع تغيير القيمة الافتراضية للقسط الشهرى يدوى ويتم الاحتساب على ذلك ومنها صفحة عمليات السداد التى قام العميل بتسديدها وتستطيع التعديل فى اى بيانات فهى قابلة للتعديل صفحة استعلام مختصر وتكون ب البحث بالكود يتم جلب كل عمليات العميل اول حسابه والمتفق عليه والمسدد ومتى ينتهى حسابه وكم سدد والقيمة المسددة والمتبقية وهى غير قابلة للتعديل ومن هذه الصفحات صفحتين فارغتين ليقوم المستخدم باستخدامهما كيف يشاء ومنها صفحة كلمات المرور والصلاحيات وهذه تقوم بالتعديل على كلمات المرور واعطاء صلاحيات الدخول لكل مستخدم وتم تحديد ثلاثة اشخاص المدير و2موظف وهناك تستطيع ان تكتب اسم المنشأة ليظهر بالرئيسية وايضا اسم المستخدم يظهر بالرئيسية واسم المدير وفى صفحة كلمات المرور تقارير بسيطة وايضا فيها تم ذكر بعض المقربين الى قلبى من الاساتذة الافاضل بروابط صفحات الفيس الخاصة بهم فهم اصحاب الفضل على من بعد الله... هذا والحمدلله واخيرا الدال على الخير كفاعله انشر الخير يمكن غيرك محتاج ولا تدرى ولا أسالكم الا الدعاء فى ظهر الغيب وعذرا على الاطالة والسلام عليكم ورحمة الله وبركاته برنامج الأول للاقساط...عمر جاد ابونصار.xlsb.zip عذرا على الاطالة لكن بينت فيها كيفية العمل على البرنامج حتى لا اجهد المستخدم

بالمرفق المثال والتفاصيل رابط شرح كيفية إنشاء نموذج على قوقل درايف ثم قم بتحويل النموذج إلى الرجوع إلى النماذج القديمة كما في الصورة . وضع رابط الاستمارة في نموذجك googleForms.mdb

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

والله هذا ما ابحث عنه بالضبط شكرا لك مرة اخرى استادنا الغالى سليم حاصبيا

المعادلة الصّحيحة =IF(COUNTBLANK(F9:H9)=0,ROUND(SUM(F9:H9)/3,2),"") او =IF(COUNTBLANK(F9:H9)=0;ROUND(SUM(F9:H9)/3;2);"")

زيادة في تقديم الأفضل هذا الكود Option Explicit Sub Give_ma7soul_new() Application.ScreenUpdating = False Dim sh1 As Worksheet: Set sh1 = Sheets("تجهيز (2)") Dim sh2 As Worksheet: Set sh2 = Sheets("ورقة2") Dim lr1: lr1 = sh1.Cells(Rows.Count, 2).End(3).Row Dim lr2: lr2 = sh2.Cells(Rows.Count, 2).End(3).Row If lr2 < 7 Then lr2 = 7 Dim My_rg As Range, i% Dim x%, y%, z% Dim k%: k = 3 Dim st$: st = sh2.Range("c3") Dim m%: m = 7: Dim col%: col = 3 Dim Matc% Dim s1#, s2#, s3 Dim My_col% Dim part_sum1#, part_sum2#, part_sum3# Dim Newlr% Dim row_last_sum% '================== Dim ar() Dim xx%: xx = 1 For i = 30 To 600 Step 30 ReDim Preserve ar(1 To xx): ar(xx) = i xx = xx + 1 Next '================== sh2.Range("b7:F" & lr2 + 2).ClearContents On Error Resume Next My_col = sh1.Rows(7).Find(st).Column On Error GoTo 0 If My_col = 0 Then GoTo 1 Set My_rg = sh1.Cells(9, My_col).Resize(lr1, 3) For i = 9 To lr1 x = (My_rg.Cells(i - 8, 1) <> 0) y = (My_rg.Cells(i - 8, 2) <> 0) z = (My_rg.Cells(i - 8, 3) <> 0) If x + y + z = 0 Then GoTo next_i sh2.Cells(m, k) = sh1.Cells(i, 2) sh2.Cells(m, col + 1).Resize(, 3).Value = _ My_rg.Cells(i - 8, 1).Resize(, 3).Value s1 = s1 + sh2.Cells(m, col + 1) s2 = s2 + sh2.Cells(m, col + 2) s3 = s3 + sh2.Cells(m, col + 3) sh2.Cells(m, col - 1) = sh1.Cells(i, 1) m = m + 1 On Error Resume Next Matc = Application.Index(ar, Application.Match(m, ar, 0)) If Matc <> 0 Then m = Matc + 2 Matc = 0 With sh2.Cells(m - 2, col) .Value = "Sum Of This Page" .Offset(1, 0) = " Sum Of Previous" .Offset(0, 1) = s1 .Offset(0, 2) = s2 .Offset(0, 3) = s3 part_sum1 = part_sum1 + s1: s1 = 0 part_sum2 = part_sum2 + s2: s2 = 0 part_sum3 = part_sum3 + s3: s3 = 0 .Offset(1, 1) = part_sum1 .Offset(1, 2) = part_sum2 .Offset(1, 3) = part_sum3 End With End If On Error GoTo 0 next_i: Next '====================================== Newlr = sh2.Cells(Rows.Count, 3).End(3).Row + 1 row_last_sum = sh2.Range("C:C").Find(what:="Sum Of Previous", _ after:=sh2.Range("c1"), searchdirection:=xlPrevious).Row sh2.Cells(Newlr, 3) = "Sum Of This Page" sh2.Cells(Newlr + 1, 3) = "Total Sum" sh2.Cells(Newlr, 4).Formula = _ "=SUM(D" & row_last_sum + 1 & ":D" & Newlr - 1 & ")" sh2.Cells(Newlr, 5).Formula = _ "=SUM(E" & row_last_sum + 1 & ":E" & Newlr - 1 & ")" sh2.Cells(Newlr, 6).Formula = _ "=SUM(F" & row_last_sum + 1 & ":F" & Newlr - 1 & ")" sh2.Cells(Newlr + 1, 4) = Cells(row_last_sum, 4) + Cells(Newlr, 4) sh2.Cells(Newlr + 1, 5) = Cells(row_last_sum, 5) + Cells(Newlr, 5) sh2.Cells(Newlr + 1, 6) = Cells(row_last_sum, 6) + Cells(Newlr, 6) sh2.Cells(Newlr, 4).Resize(2, 3).Value = _ sh2.Cells(Newlr, 4).Resize(2, 3).Value '----------------------------- ActiveSheet.ResetAllPageBreaks Newlr = sh2.Cells(Rows.Count, 3).End(3).Row sh2.PageSetup.PrintArea = sh2.Range("b1:f" & Newlr).Address For i = 30 To Newlr Step 30 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 2, 1) Next 1: Erase ar Application.ScreenUpdating = True End Sub الملف مرفق Salim_up_Advanced.xlsm

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

بارك الله فيك استاذى تسلم الايادى يا رب

عايز افهم الاستعلام ازاي ا عمل استعلام تاني باسم جديد وثالث صمم استعالاما بطريقة المعالج يظهر فيه جميع معلومات الموظفين مرتبة تصاعديا كالتالي )الاسم الاول – الاسم الاوسط – الكنية ( ثم سمه باسم استعالام 1. - استعلم عن جميع الموظفين الذين تم تعينهم بين سنتي 2000 و 2003 ثم سم با ستعالام 2. - استعلم عن جميع الموظفين التابعين للقسم 4 ثم سم استعلام3

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

السلام عليكم ورحمة الله راجع الملف المرفق لعل فيه ما تريد... بن علية حاجي نموذج طلب معادله.xlsx

جرب هذا الملف Salim_up.xlsm

السلام عليكم ورحمة الله أخى الفاضل هذا جزء من المطلوب وهو اضافة الصفوف الناقصة وهى السابع والثامن والتاسع نتيجة.xlsm

ليس هناك معادلة بل تم الحل بواسطة البرمجة VBA

الظاهر ان البيانات لما تخرج من مربع السرد يعطي 255 حرف فقط ، لذلك تفضل هذه طريقة ثانية 🙂 جعفر 1011_test.accdb.zip

عندما يكون المطلوب واضحا سياتي الرد واضحا كذلك أين ملف الوارد ؟ أنت ارسلت الشكاوى والصادر فقط !

السلام عليكم الملف التالى ملف بسيط للقروض قد يفيد البعض من المبتدئين امثالى الملف من انتاج اساتذه هذا الصرح العلمى الكبير ومنهم على سيبل المثال الا الحصر استاذى : jjafferr بارك الله فيك واستاذى : ابو ياسين المشولي بارك الله فيه واستاذى : أحمد وجيه بارك الله فيه واستاذى : midomashakel بارك الله فيه والباقى كثير جداا ولكم منى جميعا خالص الشكر والتقدير برنامج القروض.rar

وعليكم السلام -اهلا بك اخى الكريم بالمنتدى عليك برفع ملف وشرح المطلوب عليه بالتفصيل

تفضل 🙂 . . . . . . جعفر 1011_test.accdb.zip

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

وعليكم السلام 🙂 fc.controltype جعفر

اخوانى الكرام اشكركم جميعا على تفاعلكم وابداء ملاحظتكم التى هى فى غاية الاهمية لى تعقيب بسيط نحن نتعامل مع قواعد بيانات اكسس التى لن تجد بها سبل الراحة الكثيرة التى تجدها فى برامج اخرى نحن هنا نطوعها ونروضها لكى تتجاوب مع متطلباتنا انا قرات ملاحظتكم جميعا واصدقكم القول فكررت بها جميعا ليست هناك مشكلة على الاطلاق فى التحديث سواء كانت جداول - استعلامات - نماذج - تقارير - ماكرو - وحدات نمطية نحن نتعامل مع قواعد بيانات درجة حمايتها صفررررررررررر لذلك كل شئ مباح بالنسبة لك كمصمم نعم فى قواعد بيانات من نوع ACCDE او Mde لا تسطيع تغيير الاكواد سواء فى النماذج او الوحدات النمطية او حتى لا تسطيع حذف النماذج والوحدات النمطية ولكن دائما هناك ثغرة كل ما احتاجه هو الجداول التى بيها البيانات ما عدا ذلك استطيع انشائه فى قاعدة اخرى واستيراد الجداول الى القاعدة الجديدة المحدثة ثم العمل عليها وحذف القديمة السؤال ماذا لو كان التحديث فى الجداول انت كمصمم لهذه القاعدة اعلم بما فيها بمعنى الا تسطيع تنفيذ كود برمجى يمكنك من جلب البيانات من الجداول فى القاعدة القديمة الى القاعدة الجديدة ذلك الامر متاح اماماكم حتى لوكان الجدول الجديد غير مطابق فى عدد الحقول كما فى الجدول القديم وهناك امر اخر وهو تنفيذ كود برمجى لاضافة تحديث للجدول القديمة كمثلا اضافة حقل جديد وماذا عساه سيكون التحديث فى الجداول غير هذا ؟ ثم استيرادها الى القاعدة المحدثة اخوانى جل ما فى الامر ان هذا الموضوع فكرة واستطعت بفضل الله تنفيذها واعجبنى كثيرا تعليق اخونا فارس كثيرا هذا ما ابحث عنه تنزيل المرفق ثم العمل عليه هو يريد ان يجرب بنفسه ويحاول الى ان يصل المرفق الى افضل وافضل ويفيد الناس كثيرا هذا انا اشكركم جميعا على ملاحظتكم المرفق مجانى للجميع فقط اجعله ينفذ متطلباتك شعلة البداية كانت من عندنا فقط لا تخمدو نيرانها

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

إخوتي الفضلاء أقدم من مكتبتي تطبيق التقويم لتثبييت المواعيد والأحداث ، وقد إستخدمت الفكرة و أجزاء من التطبيق في كثير من التطبيقات الخاصة وهو منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK آملاً عموم الفائدة والله من وراء القصد وهو حسبي ............ NA_Calendar.rar

العفو اخي بارك الله فيك لا تنسا التقيم بلايك ههههههههههههه

بسم الله الرحمن الرحيم السلام عليكم اقدم هذا البرنامج البسيط برنامج : شئون العاملين (التربية والتعليم ) وهوا يهتم بكل ما يخص العاملين بالتربية والتعليم ووحدة التدريب بالمدرسة والبرنامج تم بمساعدة الاساتذة الكبار فى هذا المنتدى الجميل والذى لا ننكر ابدا فضل اساتذته الكبار بارك الله فيهم --------------------------------------- والبرنامج قابل للاضافة والتعديل فى مخرجاته وارجوا من الاساتذة فحص البرنامج وتحديد ان كان به اخطاء ام لا وفى النهاية تحية حب وتقدير الى جميع اعضاء هذا الصرح الجميل شئون العاملين.rar

اخى Blue Sky أنا أشكرك بالفعل على ردك ولكن إذا أراد المستخدم للبرنامج مشاهدة التقرير فقط ولا يريد الطباعة فماذا أفعل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ أنا الآن لحين أن يجد أحد الأصدقاء الرد ، أقوم بعمل نماذج تعمل على الاستعلامات التى تعمل عليها التقارير حتى أظهر النموذج بدلاً من التقرير والطباعة تتم من خلال التقرير إذا أراد الطباعة ،، ولكن كما تعلم فإن ما يمكنك عمله فى التقرير من تقسيمات لأكثر من مجموعة لا يمكنك عمله فى النموذج، وهذا موجود لدى فى أحدى التقارير بالبرنامج لذلك ،،، أدعو الله أن يوفق أحد الأخوة لأن يجد الحل المناسب. ملحوظة : اسمى هو وائل أحمد وليس وليد احمد