Ali Mohamed Ali

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

وعليكم السلام بكل بساطة اجعل نظام الحساب كما بالصورة وليس Manuel

تفضل تم ضبط تنسيق التواريخ بتكست بوكس 9 وتكست بوكس12 داخل فورم3 وفورم4 ... وذلك بإضافة هذان السطران بكلا الفورمين داخل حدث هذا الكود Private Sub TextBox1_Change() TextBox9.Text = Format(TextBox9.Text, "dd/mm/yyyy") TextBox12.Text = Format(TextBox12.Text, "dd/mm/yyyy") AHMAD.xlsm

تفضل اخى الكريم هذه معادلة حساب الأيام =MOD(E4+E6,30) وهذه لحساب الشهور =MOD(F4+F6,12)+QUOTIENT(E4+E6,30) وأخرى لحساب اجمالى السنوات =G4+G6+QUOTIENT(F4+F6,12) وهذا هو ملفك ... بارك الله فيك حساب الترقيات1.xlsx

تفضل هذا الشيت سيفيدك Commission.xls

بارك الله فى جهودكم وأعمالكم

بارك الله فيكم استاذى الكريم وجزاكم الله خير الثواب

مجهود ممتاز بارك الله فى جهودكم

بارك الله فى جهودكم

بارك الله فيك ... عمل رائع

جزاك الله خير الثواب ورحم الله والديك

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(I2="","",IF(I2+(J2*30.5)<TODAY()," ســـارى",DATEDIF(TODAY(),I2+(J2*30.5),"d"))) 1تنبيه عقود.xlsx

تفضل بالتنسيقات الشرطية ... فيمكنك استخدام هذه المعادلة =OR(AND($D11="أعزب",$H11>=75),AND($D11="متزوج",$H11>=60)) مستند 02.xlsx

وعليكم السلام - تفضل تحويل PDF إلى Excel مُحوّل PDF إلى Excel PDF to Excel تحويل ملف بي دي اف pdf الى اكسل excel بدون برامج| هام جدا

بارك الله فيك استاذ محمد وجزاك الله خير الثواب

وعليكم السلام-يجب عليك جعل الكود هكذا .. وحاول معرفة الفرق البسيط والإضافة السهلة بين كودك وهذا الكود بارك الله فيك Private Sub CommandButton1_Click() Dim Lrow As Integer Lrow = Sheets("data").Range("b10000").End(xlUp).Row + 1 Sheets("data").Cells(Lrow, "b").Value = Sheets("fan").Range("d5").Value Sheets("data").Cells(Lrow, "C").Value = Sheets("fan").Range("D7").Value Sheets("data").Cells(Lrow, "D").Value = IIf(OptionButton1.Value = True, "ذكر", "انثى") Sheets("data").Cells(Lrow, "E").Value = Sheets("fan").Range("D11").Value Sheets("data").Cells(Lrow, "F").Value = Sheets("fan").Range("D13").Value Sheets("data").Cells(Lrow, "G").Value = Sheets("fan").Range("D15").Value Sheets("data").Cells(Lrow, "H").Value = Sheets("fan").Range("G7").Value Sheets("data").Cells(Lrow, "I").Value = Sheets("fan").Range("G9").Value Sheets("data").Cells(Lrow, "J").Value = Sheets("fan").Range("G11").Value Sheets("data").Cells(Lrow, "K").Value = Sheets("fan").Range("G13").Value MsgBox "تم اضافة البيانات بنجاح", vbInformation, "تأكيد" Sheets("fan").Range("D5").Value = "" Sheets("fan").Range("D7").Value = "" Sheets("fan").Range("D11").Value = "" Sheets("fan").Range("D13").Value = "" Sheets("fan").Range("D15").Value = "" Sheets("fan").Range("G7").Value = "" Sheets("fan").Range("G9").Value = "" Sheets("fan").Range("G11").Value = "" Sheets("fan").Range("G13").Value = "" OptionButton1.Value = "" OptionButton2.Value = "" End Sub forms1.xlsm

بارك الله فيك استاذ حسين _ بعد اذنك ولإثراء الموضوع .. على ان يكون ايضاً الكود بهذا الشكل Private Sub CommandButton1_Click() If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Or UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then Application.Visible = True UserForm1.Hide If UserForm1.TextBox1.Value = "admin" And UserForm1.TextBox2.Value = 2020 Then Sheet5.Select End If If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 456 Then Sheet1.Select End If Else MsgBox "بـرجاء مراجـعـة اســم المستخدم وكلمـة المـرور", , "Error" Label4.Caption = Label4.Caption - 1 If Label4.Caption = 0 Then ThisWorkbook.save Application.Quit End If End If End Sub شيت فاتورة مبيعات .xlsm

بعد اذن استاذ أحمد زمان طبعاً ...يمكنك استخدام هذا الكود فى حدث الصفحة لتكبير حجم الخط فى القائمة المنسدلة وأعتقد ان هذا يكفى فى هذه المشاركة فيجب الغلق فمن الطبيعى والمفترض ان تكون المشاركة لطلب واحد بارك الله فيكم Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Skipper Dim x As Long x = 100 If Target.Validation.Type = xlValidateList Then x = 130 Skipper: ActiveWindow.Zoom = x End Sub _البرنامج 1-7-2020 - نسخة (2) (1).xls

طبعاً بعد اذن استاذنا الكبير سليم ... اخى الكريم bander22122 , الهدف الأساسى من المنتدى هو محاولة التعلم وليس اخذ المعلومة على الجاهز بدون الإستفادة والتعلم حتى يأتى لك يوم تفيد من يحتاج الى مساعدتك كما تم تقديم المساعدات لك من قبل اساتذتنا الكبار الأمر ليس صعب بل هم بسيط للغاية ويمكنك عمل ذلك بنفسك وكما أخبرك استاذنا الكريم سليم فقط عليك تغيير الرقم 100 الى اى رقم تريد فليكن 900 وبعد التعديل فى كل مواضع المعادلة .. عليك العلم بأن هذه ليست معادلة عادية بل هى معادلة مصفوفة .. اى بعد الإنتهاء من تغيير كل رقم 100 الى الرقم الذى تريده عليك بالضعط على ( Ctrl+Shift+Enter ) فلابد من ظهور الأقواس بهذه الطريقة بالمعادلة بعد هذه الخطوة {} وليس Enter فقط كباقى المعادلات وهذا هو السبب فى انك لم تستطع ضبط المعادلة ... وشكرا واسفغ على الإطالة

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

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

مبارك الترقية استاذ صالح وان شاء الله تكون على قدر هذه المسؤلية العظيمة .... ونتمنى لكم النجاح والتفوق دائماً

تفضل يمكنك جعل المعادلة هكذا ... وتم عمل أيضاً تنسيق شرطى للخلية اذا كان بها كلمة مغادرة =IF(G$7=$D8,"مغادرة",IF(AND(G$7>=$C8,G$7<=$D8-1),$E8,0)) If Function.xlsx

كان عليك استخدام خاصية البحث بالمنتدى -تفضل دالة جميلة للترجمة من الانجليزية الى لغات العالم