احمد بدره

عليك السلام ورحمة الله وبركاته بالنسبة للقائمة المنسدلة تم التعديل ليكون نحو اليمن تفضل الملف وربما يكون المطلوب الثاني حسب فهمي كما طلبت excel analys.xlsx

عليك السلام ورحمة الله وبركاته يمكن عمل ذلك في الحدث Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value <> "اعدادي" And TextBox1.Value <> "ثانوي" Then MsgBox "عفوًاالكلمة المكتوبة خطأ من فضلك أعد كتابتها بشكل صحيح" TextBox1.Value = "" TextBox1.SetFocus End If End Sub أي أنه بعد الكتابة والانتقال إلى أي شيء آخر إذا كانت الكتابة خطأ يعطي رسالة ويقوم بمسح الذي كتبته وعليك كتابة الاسم الصحيح تقييد تكست بوكس بكلمة.xls

تم التعديل الصف الثانى الثانوى التجارى.rar اولى - ت.rar

عليك السلام ورحمة الله وبركاته تم معالجة حرف ال غ في مجموع مادة الرياضيات والمجموع الكلي احصائيةالفصل 2الدراسى الأول 2019_3.xls

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

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

وإليك ملف الصف الثاني الصف الثانى الثانوى التجارى.rar

بالنسبة للملف المصنف 1 تم إضافة عمود جديد لمواد الدور الثاني التي لا تعد من مواد التي يتم عدها للرسوب وتم تعديل المعادلات بداية من العمود BU إلى العمودBW قمت بعمل بنفس الشيء في ملف الصف الأول المصنف1.xlsm اولى - ت.rar

وعليكم السلام ورحمة الله وبركاته تم التعديل في المعادلة في العمود BW ابتداء من الصف 8 لتصبح =IF(C8="","",COUNTA(CA8:CM8)-COUNTBLANK(CA8:CM8)) حيث العمود CM هو عمود آخر مادة لاحتساب الرسوب وإليك الملف بعد التعديل المصنف1.xlsm

أدخل على الرابط التالي ممكن تجد فيه ما تطلب https://www.google.com/url?client=internal-uds-cse&cx=partner-pub-4958585055085854:7791406915&q=https://www.officena.net/ib/topic/75109-%D9%83%D9%88%D8%AF-%D9%84%D8%AA%D8%B5%D8%AF%D9%8A%D8%B1-%D9%83%D8%A7%D9%81%D8%A9-%D8%A7%D9%84%D8%B4%D9%87%D8%A7%D8%AF%D8%A7%D8%AA-%D8%A8%D8%B5%D9%8A%D8%BA%D8%A9-pdf/&sa=U&ved=2ahUKEwizx7zXgP_iAhVJxoUKHbOnAVg4ChAWMAl6BAgCEAI&usg=AOvVaw2agW-Z63qtf0mNWjMMTyL2

عليك السلام ورحمة الله وبركاته ارتباط ملف بملف آخر بمعادلات و مسار محدد للملف الآخر تجعله ثقيل للغاية والسؤال لماذا لم تجعل ورقة العمل هذه في نفس الملف فملف الإكسيل الافتراضي 3 ورقات عمل ويمكن زيادتها كما تريد

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

بعد إذن أستاذ علي تم عمل المطلوب بدون عمود مساعد كما طلبت ومعذرة للتأخير فالموضوع ليس بالهين s0ds1 - Copy(1).xls

=COUNTA(B7:B1000) ممكت تجرب المعادلة هذه في الخلية C5 حيث تأتي بعدد الموظفين الذين تم تسجيلهم

بعد إذن أستاذنا الفاضل أستاذ إبراهيم الحداد قم باستخدام معادلة الترقيم هذه ولا داعي لارتباط الخلية A7 بالخلية C5 =IF(B7="";"";SUBTOTAL(3;$B$7:B7)) إن لم تعمل عمل جهازك استخدم هذه ( أي استبدال الفاصلة بالفاصلة المنقوطة أو العكس ) تبعًا لنسخة الأوفيس لديك =IF(B7="","",SUBTOTAL(3,$B$7:B7))

أولاً بالنسبة للتاريخ تم ضبط التكست بوكس بحيث يقبل تاريخ فقط وطبعًا يوم شهر سنة ثانيًا بخصوص العبارة ( اخر شيت حضرتك عملت كان بيرحل بعض الخانات فى خانات تانية ) هو أن حضرتك قمت بإضافة أعمدة أخري في الجدول وكان من المفترض أن تأتي بالجدول كاملاً من أول مرة وفي كل طلب يتم فيه تغيير الأعمدة يرهني حيث أنني أتعامل مع ترحيل وتعديل خلايا متفرقة فكل تكست بوكس مرتبط برقم عمود هذا من جهة ومن جهة أخرى الانتقال من تكست بوكس لآخر عندما يكون هناك تعديل اضظر إلى إعادة ترتيبه حتى تتمكن من كتابة بالترتيب ثالثًا بعد محاولات عديدة رأيت أنه إذا أردت البحث والتعديل ممكن يحدث مشكلات وبعد عناء شديد توصلت إلى طريقة تسميع القراءة السابقة تكون هي نفس القراءة الحالية للصف السابق رابعًا عند إضافة بيان عن طريق الفوم فإن العمود A ستجد أن الرقم وُضِعَ تلقائيًا تقبل تحياتي مثال معدل 20.xlsm

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

للأسف لا يمكن حفظ ورقة عمل بنوع PDF وهي مخفية فلابد من التحايل بعمل كود إظهار ورقة العمل قبل الحفظ وكود آخر يقوم بإخفاء ورقة العمل مرة أخرى بعد الحفظ مع خالص تحياتي

جرب هذا الملف لعله يفي بالغرض تعديل كود حفظ PDF.xlsm

من فضلك قم برفع ملف كمثال حتى يتم التفكير في الحل من الأعضاء

محاولة مني تم العمل ولكن في العمود A فقط s0ds1 - Copy.xls

وعليك السلام ورحمة الله وبركاته جرب هذا بالمعادلات تسديد وترحيل.rar

وعليك السلام ورحمة الله وبركاته جرب هذا Sub PDF() Dim ws As Worksheet Dim strPath As String Dim myFile As Variant Dim strFile As String On Error GoTo errHandler Set ws = Sheets("sheet2") strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _ & "_" _ & Format(Now(), "yyyymmdd\_hhmm") _ & ".pdf" strFile = ThisWorkbook.Path & "\" & strFile myFile = Application.GetSaveAsFilename _ (InitialFileName:=strFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and FileName to save") If myFile <> "False" Then ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False MsgBox "PDF file has been created." End If exitHandler: Exit Sub errHandler: MsgBox "Could not create PDF file" Resume exitHandler End Sub

تم إضافة الجزئين فى الفورم أما بالنسبة للتسلسل فيوجد دالة في ورقة العمل في العمود A لاحظ أن الليبل المقابل للتكست بوكس 1 مكتوب باسم الوردية والتسلسل يعمل بمجرد إدخال أي بيانات في العمود B بالنسبة للطلب الأخير قم بإضافة ورقة عمل واكتب النتائج المتوقعة ( التي يجب أن تأتي بمعادلات ) حتى يمكننا التعامل معها فكل أعضاء المنتدى لا يتعاملون مع الصور Book1(1).xlsm

وعليك السلام ورحمة الله وبركاته تم عمل المطلوب وتم بعض تعديلات حيث لا داعي أكتب السنة والشهر في اليوزر فورم ممكن عمل ذلك داخل الإكسيل بالمعادلات وتم إضافة عمود للوردية في ورقة العمل وكذلك عمود للتسلسل وتم عمل زر للتعديل من اليوزر فورم وعمل زر مسح لليوزر فورم إذا أخطأت في كتابة أي فيتم مسحه الفورم وإعادة الكتابة و تم عمل كود لإغلاق الفورم وتم إضافة زر الخروج من الملف Book1.xlsm