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

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

كل عام وأنتم بخير وتقبل الله منا ومنكم صالح الأعمال ، وجعلنا أعمالنا صالحة ولوجهه خالصة

كل عام وأنتم بخير وتقبل الله منا ومنكم صالح الأعمال ، وجعلنا أعمالنا صالحة ولوجهه خالصة

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

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

السلام عليكم أبو يوسف اطلعت على الملف ووجدت أن هناك العمود الأول يحتوي على دخول وخروج الطالب ..أليس من المفترض أن يكون هناك عمودين أحدهما للدخول والآخر للخروج؟ وإلا يرجى التوضيح لشكل النتائج المتوقعة وضرب مثال من داخل الملف المرفق لتجد الاستجابة بشكل أفضل تقبل تحياتي

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

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك وكل عام وأنت بخير يرجى إرفاق الملف الذي تعمل عليه لتجد الإجابة بشكل أسرع وأفضل كحل مبدئي جرب المعادلة بإضافة شرط آخر باستخدام علامة الزائد =SUMIFS(May.16!$K88:$K180,May.16!$I88:$I180,"green mango",May.16!$B88:$B180,A6)+SUMIFS(May.16!$K88:$K180,May.16!$I88:$I180,"yellow mango",May.16!$B88:$B180,A6) تقبل تحياتي

بارك الله فيك أخي الحبيب صلاح أعتقد أن المطلوب التغيير في خلية واحدة ، لنفترض أن الخلية الهدف هي الخلية B3 جرب الكود بهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$3" Then Dim LR As Long LR = Cells(Rows.Count, 7).End(xlUp).Row + 1 Cells(LR, 6).Value = Target.Value Cells(LR, 7).Value = Date Cells(LR, 8).Value = Time End If End Sub

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

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

بارك الله فيك أخي الغالي علي الشيخ على هذا الملف الرائع وجزاكم الله خير الجزاء تقبل وافر تقديري واحترامي

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

جرب السطر التالي (يقوم بمسح النطاق D19 الذي يمثل بداية النطاق إلى الخلية F44 والتي تمثل نهاية النطاق) Sub Test() Sheets("NotesCC").Range("D19:F44").ClearContents End Sub وأول السطر يمثل إشارة لورقة العمل المطلوب العمل عليها

بارك الله فيك وجزاك الله خيراً تقبل تحياتي

أخي العزيز صلاح الله ينور عليك ..تمام التمام وكدا يكون فيه ملف تطبيقي في الموضوع عشان محدش يتعثر مرة تانية بارك الله فيك وزادك علماً وحلماً تقبل تحياتي وكل عام وأنت بخير

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

أقصد بالملف المرفق ليس صورة فقط أخي علاء إنما ملف الإكسيل نفسه أم أنك تريد تصميم الملف كما في الصورة؟

أخي الكريم قم بإرفاق الملف ليعمل عليه الأخوة الكرام بالمنتدى .. وفر الوقت على إخوانك

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

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

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

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

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

أخي الكريم ضع الكود التالي في حدث الفورم Private Sub ComboBox6_Change() If ComboBox5.Value = "موجود" Then TextBox18.Value = TextBox6.Value & " " & TextBox7.Value & " " & TextBox8.Value ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "موجودة" Then TextBox18.Value = TextBox17.Value ElseIf ComboBox5.Value <> "غير موجود" And ComboBox6.Value = "غير موجودة" Then TextBox18.Value = "" Else TextBox18.Value = "" End If End Sub Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox19.Value = Kh_Date_Gender_Province(TextBox3.Value, 1) TextBox20.Value = Kh_Date_Gender_Province(TextBox3.Value, 2) TextBox12.Value = Kh_Date_Gender_Province(TextBox3.Value, 3) End Sub وضع الكود التالي في موديول عادي (وهي عبارة عن دالة معرفة تقوم بالمطلوب) Function Kh_Date_Gender_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim R As Long Dim YY As String Dim TY As String * 1 Dim D As String * 2, M As String * 2, Y As String * 2, X As String * 2, XX As String * 2 MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية", "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط", "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر") D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) Select Case TY Case "2": YY = "19" & Y Case "3": YY = "20" & Y Case Else End Select Kh_Date_Gender_Province = "" On Error GoTo 1 If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Or Len(Trim(MyNumber)) = 0 _ Or Val(M) < 1 Or Val(M) > 12 Or (Val(TY) <> 2 And Val(TY) <> 3) Or Month(DateSerial(YY, M, D)) <> Val(M) Then Kh_Date_Gender_Province = "" GoTo 1 End If If MyTest = 1 Then If YY <> "" Then Kh_Date_Gender_Province = DateSerial(YY, M, D) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then YY = "ذكر" Else YY = "أنثى" Kh_Date_Gender_Province = YY ElseIf MyTest = 3 Then X = Mid(MyNumber, 8, 2) For R = LBound(MyProvinces) To UBound(MyProvinces) XX = MyProvinces(R) If X = XX Then Kh_Date_Gender_Province = Right(MyProvinces(R), Len(MyProvinces(R)) - 3) Exit For End If Next End If 1: End Function أما فيما يخص الديانة فليس لي علم أن الرقم القومي به أرقام تدل على الديانة تقبل تحياتي