Ali Mohamed Ali

تفضل Sub Test() ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit End Sub أو يمكنك استخدام هذا الكود أيضاً Option Explicit Sub Auto_Fit() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets sh.Columns.AutoFit sh.Rows.AutoFit Next sh End Sub مثال.xlsm

تفضل لك ما تريد ... هذا فيديو تعليمى لطلبك مقدم من الأستاذة ساجدة العزاوى لها منا كل المحبة والإحترام ج89 زر امر على اليوزرفورم لفتح ملف اكسل ملف ورد ملف pdf ساجدة العزاوي open word excel userform vba

تفضل goto the page with pass1.xls

كان عليك تنفيذ نصيحة استاذنا الكبير سليم .. ولكن بعد اذن استاذ سليم طبعاً يمكنك استخدام هذه الدالة المعرفة لذلك لعد الأرقام داخل الخلية الواحدة Function Mylen(Z As Range) Dim C As Long, Y As Long, A As Long, B As Variant A = 0 For C = 1 To Len(Z) B = Mid(Z, C, 1) For Y = 0 To 9 If Y = B Then A = A + 1 End If Next Next Mylen = A End Function ووضع هذه المعادلة بداية من الخلية D4 سحباً للأسفل =Mylen(F4) أو يمكنك بهذه المعادلة العادية .. وتلك الطريقتين موجودة بالملف =SUM(LEN(F4)-LEN(SUBSTITUTE(F4,{1,2,3,4,5,6,7,8,9,0},))) تسويات - 1.xlsm

بما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك - تفضل معادلة جمع مبالغ (10+20+30)=60

أحسنت استاذ فتح وزادك الله من فضله

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

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

وعليكم السلام- يمكنك استخدام هذه المعادلة =IF(S3="","",IF(OR($S3="وليد",$S3="سعيد"),10%,14%)) Test1.xlsx

وعليكم السلام - تفضل اخى الكريم يمكنك عمل ذلك بهذه المعادلة ( معادلة مصفوفة) Ctrl+Shift+Enter =IF(COUNTIF($A$3:$A3,$A3)>1,"",MODE(IF($A$3:$A$900=$A3,$F$3:$F$900))) mode fun1.xlsx

تفضل Office 365 Excel in 15 Mints - شرح الإكسل فى 15 دقيقة للمبتدئين Office365 دورة شرح اوفيس 365 بطريقة سهلة office 365

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

وعليكم السلام-اجعل تنسيق الخلية هكذا ##"0."000"Kg" format cell1.xlsx

تفضل تم تعديل تنسيق التاريخ ويمكنك عمل ذلك بنفسك من خلال تتبع هذه الصورة TEST1.xlsx

تفضل لك ما طلبت final1.xlsx

وعليكم السلام-اهلا بك بالمنتدى ... تفضل لك ما طلبت AA-1-Modified101.xlsm

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

وعليكم السلام بكل بساطة اجعل نظام الحساب كما بالصورة وليس 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

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

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

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

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