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

السلام عليكم نواصل دروس شرح عناصر الأكسيس الضرورية لأى برنامج شرح دالة DateSrial وقتا ممتعا

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

وعليكم السلام نسخة الاوفيس التي تم تنصيبها هي 64بت ، بينما برنامجك يحتوي على مكتبات 32بت اقرا هذا الرابط لوسمحت: جعفر

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

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

السلام عليكم ورحمة الله وبركاتة موضوعنا اليوم اردت ان تكون صيغتة صيغة عامة تخدم الكثير من موضوعات جداول البيانات وهو ادراج مجموع كل صفحة وايضا المجموع الكلي وكنت قد قدمت هذا الموضوع منذ سنوات وقد اعادت هذة الذكري الي ذهني احدي المشاركات منذ ايام قليلة فبحثت عن الموضوع ولكني لم اجده ثم بحثت في المنتديات الاجنبية لعلي اجد كود لهذا الموضوع فلم اجد الا كود واحد فقط يغطى هذا الموضوع وهو للمبرمج Ole P. Erlandsen منذ عام 1999 وهو كود وحيد لا يوجود غيره في اي منتدي عربي او اجنبي حاولت تطويعة ( من باب الاستسهال بدلا من كتابة كود جديد ) ولكن صعب عليا تطويعه فتركت الموضوع ثم امس ومضت لي فكرة بناء كود جديد فتوكلت علي الله وكانت هذه النتيجة الكود له 3 مدخلات يجب ضبطها وهي اول 3 سطور في الكود '========================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Col_Total = "E" ' عمود المجموع '========================================= انظر المرفقات الكود Option Base 1 Sub Subtotals_For_Each_Page() ' '======================================================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Col_Total = "E" ' عمود المجموع '========================================= Ttitle_1 = "اجمالـــي صفحـــة" Ttitle_2 = "اجمالـــي الصفحـــات :" '======================================================================= ScreenOff Dim Sh_Total_Page As Worksheet Dim Rng As Range Dim Arr() Dim Arr_Page() '======================================================================= ActiveSheet.ResetAllPageBreaks Maximum_Row = ActiveSheet.HPageBreaks(1).Location.Row - 3 If Count_Row_In_Page < 1 Or Count_Row_In_Page > Maximum_Row Then MsgBox "عدد الصفوف لكل صفحة من 1 الي " & Maximum_Row: Exit Sub '======================================================================= Set Sh_Total_Page = Sheets("مجموع_الصفحات") First_Col = Range(First_Cel).Column Count_Col = Cells(Range(First_Cel).Row, Columns.Count).End(xlToLeft).Column End_Row = Cells(Rows.Count, First_Col).End(xlUp).Row Set Rng = Range(First_Cel).Offset(1) Set Rng = Range(Rng, Cells(End_Row, Count_Col)) Arr = Rng '======================================================================= With Sh_Total_Page .Cells.Delete Shift:=xlUp Range(Range(First_Cel), Cells(Range(First_Cel).Column, Count_Col)).EntireColumn.Copy .Range("A1").Insert Shift:=xlToRight .Rows(Range(First_Cel).Offset(1).Row & ":" & Rows.Count).ClearContents End With '======================================================================= Page_Counter = 1 Grand_Total = 0 Col_Total = Columns(Col_Total).Column For x = LBound(Arr) To UBound(Arr) Step Count_Row_In_Page ReDim Arr_Page(Count_Row_In_Page + 1, Count_Col) Row_Offset = x Total_Page = 0 For Row = 1 To Count_Row_In_Page Col_Counter = 0 Total_Page = Total_Page + Arr(Row_Offset, Col_Total) For Col = 1 To Count_Col Col_Counter = Col_Counter + 1 Arr_Page(Row, Col_Counter) = Arr(Row_Offset, Col_Counter) Next Row_Offset = Row_Offset + 1 On Error Resume Next Next Grand_Total = Grand_Total + Total_Page '======================================================================= Arr_Page(Count_Row_In_Page + 1, 1) = Ttitle_1 & Page_Counter & " : " Arr_Page(Count_Row_In_Page + 1, Col_Counter) = Total_Page Page_Counter = Page_Counter + 1 '======================================================================= With Sh_Total_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Set Rng = .Cells(End_Row, "A") Set Rng = Rng.Resize(Count_Row_In_Page + 1, Col_Total) Rng = Arr_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Range(.Cells(End_Row - 1, 1), .Cells(End_Row - 1, Count_Col)).Font.Bold = True Range(.Cells(End_Row - 1, 1), .Cells(End_Row - 1, Count_Col)).Font.ColorIndex = 5 End With Erase Arr_Page Next With Sh_Total_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(End_Row, "A") = Ttitle_2 .Cells(End_Row, Col_Total) = Grand_Total Range(.Cells(End_Row - 1, 1), .Cells(End_Row, Count_Col)).Font.Bold = True Range(.Cells(End_Row - 1, 1), .Cells(End_Row, Count_Col)).Font.ColorIndex = 5 Range(.Cells(End_Row, 1), .Cells(End_Row, Count_Col)).Font.ColorIndex = 3 .Select End With '======================================================================= Every_Row = Count_Row_In_Page + 1 With ActiveSheet .ResetAllPageBreaks TotalPageBreaks = ActiveSheet.HPageBreaks.Count Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row For Row_Index = Every_Row + 2 To Lastrow Step Every_Row If Row_Index = Lastrow Then .HPageBreaks.Add Before:=.Cells(Row_Index + 1, 1) Else .HPageBreaks.Add Before:=.Cells(Row_Index, 1) End If Next End With TotalPageBreaks = ActiveSheet.HPageBreaks.Count ActiveSheet.HPageBreaks(TotalPageBreaks).Delete '======================================================================= End_Row = Cells(Rows.Count, "A").End(xlUp).Row Set Rng = Range(Range(First_Cel), Cells(End_Row, "A")) Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete With Sh_Total_Page.PageSetup .PrintTitleRows = "$1:$1" End With End_Row = Cells(Rows.Count, "A").End(xlUp).Row + 1 Rows(End_Row & ":" & Rows.Count).Delete Shift:=xlUp On Error GoTo 0 '======================================================================= ScreenOn ' End Sub المرفقات ادراج مجموع كل صفحة & المجموع الكلي.rar

جرب هذا الملف الذي يمكنك البناء عليه show_only_my_sheet.rar

تم مع الشكر والتقدير

السلام عليكم ورحمة الله امممم يبدو أنى ابتديت افهم الآن سيكون العمل وفقا لما يلى : 1 - استجلاب المعيار المناسب لتحديد السعر وفقا لنوع المنتج . 2 - استجلاب السعر تبعا للمعيار المناسب ساحاول أن ادلى بدلوى الآن وأوافيك بمثال ان شاء الله ( ولكن هل يوجد احتمال أن يجتمع معيار العمر والجنس معا فى منتج ما ؟! أرجو الرد لزيادة التأكيد ولعدم تعديل العمل بعد)

السلام عليم جميل ورائع اخجلتني

السلام عليكم استاذ سليم ابداع ما بعده ابداغ """ماذ تأكل أو تشرب حتى تبدع كل هذا الإبداع """

جرب هذا الملف كل الاكواد مذكورة في القائمة المنسدلة مع الاستجابة للزيادة و عدم التكرار و كذلك اسماء العملاء اقساط 2015 salim.rar

تم تحديث الملف كما تريد وزيادة حبتين (مع الشرح الوافي للتعامل مع الكود و كيفية إيقافه عن العمل) protect non empty data with Pass word.rar

موضوع رائع جزيت خيرا اخي الكريم ابو صهيب وكل عام وانت بخير واخواني ابو البراء وابو يوسف كل عام اونتم بخير جميعا تقبل الله منا ومنكم صالح الاعمال تقبلو تحياتي

السلام عليكم ورحمة الله تم التعديل على شيتات "الناجحون" و "الراسبون" بتصحيح بعض الأخطاء في المعادلات: 1- المعادلات في العمود C في الشيتات المعنية هي معادلات صفيف أي يجب تأكيدها بواسطة CTRL+SHIFT+ENTER 2- تم استبدال الصيغة "313" في معادلات العمود C من شيتات "الناجحون" بالعدد 313 (ليس نصا) 3- تم تصحيح أرقام الأعمدة في معادلات جلب علامات المواد... وكل التصحيحات تمت في الملف المرفق... لم أنظر إلى الشيتات الأخرى في الملف... بن علية تصحيحمعادلةترحيل.rar

كتاب برمجي اكسل باللغة الانجلزية رائع يتكون من 499 صفحة لا تندم بعد تحميله تحميــــــــــــــــل http://droppdf.com/files/VLLRT/excel-vba-24-hour-trainer-2nd-edition.pdf

السلام عليكم زجمهة مباركة وكل عام وانتم لألف خير أخي الكريم لنظر المرفق هل عو المطلوب؟ اقساط 2015 - Copy.rar

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

وعليكم السلام أخي العزيز محمد أبو صهيب موضوع رائع ومتميز ، لا حرمنا الله منك بارك الله فيك وجزاك الله كل خير وكل عام وأنت بخير أخي الحبيب محمد حسن أبو يوسف تقبل الله منا ومنكم صالح الأعمال وكل عام وأنت بخير

جرب اخي محمد (Parameter) 2003.rar

اخ اخى الكريم كعبلاوى جرب المرفق التالى abo_abary_12.rar

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير جميعا وتقبل الله منا ومنكم الطاعات بداية (فى مثل شعبى لدينا بالصعيد المصرى يقول - لا تبيع بزمتين - ويعنى بالعربى لا تبع لهذا بسعر ولهذا بسعر آخر ) ودون الخوض فى نزاع الأسعار لو باع بزمة واحدة لارتاح وأراحنا معه ثانيا - اذا كان لدينا معيار الجنس لا اختلاف فيه وهو (اما ذكر أو أنثا ) والحمد لله . فلن نحتج الى تعديل بنسبة الى هذا المعيار والآن بقى معيار العمر والذى سيتغير حسب السلع (ولكن قبل أن أخربط هل العمر مرتبط بالجنس أيضا بمعنى: ذكر أقل من 20 = 3 ج أو أنثى أقل من 20 = 5 ج . أم أن ما دون ال 20 لا اعتبار للجنس فيه ... أرجو التوضيح) ولحين التوضيح المطلوب اقتراحى هو: جعل جدول مستقل به كود السلعة ومعيار العمر المتغير أى أقل من ...... (مثال: سمك أقل من 10 - خضار أقل من 20 وهكذا) وسنقوم باستجلاب معيار العمر بالـ DlookUp والآن سيصير التعديل البسيط المقترح هكذا : ( نسيت سأقوم بالتعديل على الكود المختزل لأستاذنا جعفر ) dim age as integer age = Dlookup("age","Foods","Food =" & Forms!Form!Control) One_Line = IIf(a <= age, b, _ IIf(s = "male", m, f)) طبعا اسم الجدول المقترح والحقول بداخله لحضرتك مطلق الحرية فى اختياره ولكن هذا مجرد اقتراح ويمكن تطبيق نفس الفكرة مع كود استاذنا alwazeer هكذا : dim age as integer age = Dlookup("age","Foods","Food =" & Forms!Form!Control) Select Case Forms!cust!age Case Is >= age ' ' ' اكمل الكود آسف لم أرى المشاركتين الآخيرتين قبل ردى السابق أستاذنا محمدنجار لم تحسب لنا فاتورة أستاذنا alwazeer (لا تخف لا يوجد بيننا أحد من مصلحة الضرائب ) حدد لنا الأسعار وفقا لفاتورة أستاذنا الوزيرى (أرجو أن تكون ترجمة الأسم صحيحة) هذا ردنا على استفسارى السابق وسترتب عليه معرفة الألية الصيححة فى العمل وفق الله الجميع لما يحب ويرضا بساط الوقت ينسحب معكم سريعا أستودعكم الله (غدا نلتقى إن شاء الله)

السلام عليكم إضغط مرتين متتاليتين في أي ورقة على الخلية A1 book1-1.rar

تم التحديث اكثر للملف بحيث يظهر الصف الاول في كل صفحة عند الطباعة و البرنامج يتلافى الاخطاء المطبعية في اختيار عدد الصفوف ويدرج محموع اخر صفحة (حتى و لو كانت تحتوي على صفوف اقل من الصفوف المختارة) لادراج معاينة قبل الطباعة - اضغط Ctrl+ F2 طباعة ذكية salim 2.rar

ماذا لو اضيف هذا السطر

السلام عليكم ورحمة الله وبركاته غير الرقم 4 الى 6

استخدم الوحدة النمطية في المرفقات وقم باستدعائه عن طريق وضع الكود التالي في حدث عند التحميل او الفتح للنموذج المراد تحجيمه: ReSizeForm Me 'لتحجيم النموذج ReSizeForm [اسم النموذج الفرعي].Form لتحجيم النموذج الفرعي modResizeForm.rar

اعرض الملف برنامج صغير جدا لطباعة شهادات التقدير برنامج صغير جدا لطباعة شهادات التقدير طبعا قبل فتح البرنامج خفف امان الماكرو فى الاكسس ليعمل بصورة جيدة صاحب الملف بحار الاكسس تمت الاضافه 06 ماي, 2016 الاقسام قسم الأكسيس

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى Prot_Range نذهب إلي الشيت المسمى Sheet1 ثم من شريط الادوات نذهب إلي صيًغ ثم إدارة الاسماء ثم جديد ونضع الاسم Prot_Range ونشير للخلايا أي نحدد الخلايا حسب رغبتنا في تطبيق العمل عليها وهنا في عمل الاستاذ سليم اشار للخلايا من A1 إلي Z255 ثم موافق خلاص إنتهينا من تسمية النطاق او المدى.والآن يأتي دور الاكواد نذهب لمحرر الاكواد الخاص بالصفحة Sheet1 عام أي في ال General ونضع هذا الإجراء : 'xxهنا نقوم بتسمية إجراء ونسميه اي إسم اي حرف وهنا إسمه Sub xx() ' salim يقوم بإلغاء الحماية من علي الصفحة النشطه والتي كلمة المرور الخاصة بها هي ActiveSheet.Unprotect "salim" إذاً' Prot_Rang إذا لم يتقاطع الإختيار بمدى النطاق المسمى If Not Intersect(Selection, Range("Prot_Range")) Is Nothing Then ' هنا الإشارة للمجال المختار وهو مدى النطاق في الصفحة النشطة بالخاصية With With ActiveSheet.Range("Prot_Range") ' تنشيط إقفال الخلايا .Cells.Locked = True 'عدم إقفال الخلايا الفارغة التي لايوجد بها بيانات .Cells.SpecialCells(xlCellTypeBlanks).Locked = False ' إغلاق الخاصية With End With ' يقوم بحماية الصفحة وعمل كلمة المرور salim ActiveSheet.Protect "salim" End If ActiveSheet.Protect "salim" End Sub ثم نضع الكود التالي في حدث تغيير الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) ' إذا لم يتقاطع الهدف بالمدى وان نتائج الهدف يساوي واحد ‘ذاً If Not Intersect(Target, Range("Prot_Range")) Is Nothing And Target.Count = 1 Then ' عدم تمكين تطبيق الاحداث Application.EnableEvents = False 'هنا بعد إدخال اي بيانات تأتي رسالة تفيد حسب الموضح في الرسالة mess = MsgBox(" بعد ادخال البيانات سوف يتم اقفال هذه الخلية" & vbNewLine & _ "لا يمكن تغييرها الا من خلال كلمة السر في حال الموافقة اضغط نعم", vbYesNo, "تنبيه") ' عند الموافقة If mess = vbYes Then 'xxهنا يتم إستدعاء الإجراء والمسمى xx ' عند عدم الموافقة Else ' تراجع عن التطبيق Application.Undo End If End If ' تمكين تطبيق الاحداث Application.EnableEvents = True End Sub

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

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

أختى الفاضلة / a12 سلام الله عليكم تفضلى الفصل بين / ناجح / وراسب / ودور ثان بالمعادلات بفرض أن عمود النتيجة صحيح هذا العمل خاص لى من أخى الفاضل / يحيى حسين " وفقه الله " منتظر تحياتى ناجح وراسب ودور ثان.rar

إفتح الموقع الذى تريد جلب الداتا من أحد الجداول به إعمل كوبى لعنوان الصفحة إفتح برنامج الإيكسيل قف فى الخلية A1 من قائمة بيانات إستيراد بيانات خارجية إستعلام ويب جديد سيفتح لك مربع حوار ضع العنوان الذى سبق أن نسخته فى مكان العنوان فى مربع الحوار إضغط على كلمة إنتقال ستظهر لك داخل صندوق الحوار صورة للسايت الذى وضعت عنوانه وستجد مربعات صفراء صغيرة داخلها اسهم سوداء تحدد الجداول الموجودة بالموقع المذكور وعليك البحث عن الجزء الذى تريد جلب بياناته حتى تجده تضغط على المربع الاصفر بالماوس يتحول السهم الأسود إلى علامة صح داخل مربع صغير اخضر إضغط على كلمة إستيراد سيظهر لك مربع حوار جديد إضغط موافق إنتظر ثوانى ستجد الجدول جاء من الموقع لملفك كلما تريد تحديث البيانات بملفك إفتح الملف وإختار زر تحديث البيانات فيحدثها تلقائياً ويجلب لك آخر تحديث للبيانات على السايت يمكنك ضبط التحديث التلقائى للبيانات بحيث يقوم الغيكسيل تلقائياً بجلب البيانات الجديدة كل فترة تحددها بنفسك جرب 10 دقائق مثلاً فتجد البرنامج يقوم تلقائياً بذلك أرجو التجربة ويارب أكون افدتكم قمت بتجربة صغيرة وهذه خلاصتها الملف بالمرفقات ____________.rar

اخي الخطوط التي ارسلتها الي لااعرف مااسمها لاني نزلتها وضغط عليها ومش عارف هيه فين واجيبها منين ولك الشكر