Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Ali Mohamed Ali

Officena Team
  • Content Count

    4,759
  • Joined

  • Last visited

  • Days Won

    194

Ali Mohamed Ali last won the day on October 22

Ali Mohamed Ali had the most liked content!

Community Reputation

6,428 Excellent

About Ali Mohamed Ali

  • Rank
    فريق الموقع

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    Accountant
  • Location
    Egypt
  • Interests
    accounting

Recent Profile Visitors

7,047 profile views
  1. أعمال ممتازة استاذ أحمد جزاك الله كل خير
  2. بارك الله فيك استاذ محي ولإثراء الموضوع يمكنك استخدام هذه المعادلة المعرفة وهذا هو كودها Function Evals(t As String) As Double Dim c As String, i As Long For i = 1 To Len(t) If Asc(Mid(t, i, 1)) < 58 And Asc(Mid(t, i, 1)) > 41 Then c = c & Mid(t, i, 1) Next Evals = Evaluate(c) End Function ثم تكتب المعادلة بالخلية B2 على النحو التالى : =Evals(A2) سليم1.xlsm
  3. وعليكم السلام يمكنك هذا ,بوضع ذلك الكود بحدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("d:d")) Is Nothing Then Range("d1").Sort Key1:=Range("d2"), _ Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom End If End Sub فرز حسب 1الاكبر.xlsm
  4. من فضلك عليك الإنتباه من هذه الأخطاء ... فهذا الخطأ منك انت لأنك قمت بذكر صفحة Data بأكواد الفورم على الرغم انها غير موجودة بالملف المرفوع فعندما قمت بإضافة هذه الصفحة تم ظهور الفورم بكل كفاءة حل مشكلة1.xlsm
  5. من فضلك اخى الكريم لا تبخل بنجاح المشاركة فليس هناك وجود لأى مشاركة الا بعد تدعيمها بملف مشروح فيه كل المطلوب بكل دقة والا فكان عليك لزاماً استخدام خاصية البحث بالمنتدى قبل رفع هذه المشاركة طالما انك لم تقم برفع ملف !!! ولا تقول ان المشاركة بسيطة لا تحتاج لكل هذا ... فان كان طلبك بسيط لأستطعت انت بنفسك حله ولا احتجت لمساعدة الأخرين فى حل مشكلتك وتفريج كربتك تفضل هذا الكود Sub Unhide_All_Sheets() Dim ws As Worksheet ActiveWorkbook.Unprotect For Each ws In Worksheets ws.Visible = xlSheetVisible Next End Sub وهذا كود أخر Sub Unhide_All_Sheets_Count
  6. تفضل -يمكنك استخدام هذه المعادلة =COUNTIFS($B$4:$B$28,I$4,$C$4:$C$28,"*"&$H5&"*") SAME1.xlsx
  7. أخى الكريم انا لم أحذف شيئاً من ملفك فقط قمت بعمل ما تريد وهو ظهور أسماء الزبائن بدون تكرار بالقائمة المنسدلة وشكراً على تأخر ردك
  8. وعليكم السلام -طبعاً ما تطلبينه لابد ان يكون فقط بمقابل مادى وليس مجانى.... ولكن يمكنك تجربة هذا , وهذا فيديو للشرح برنامج شئون الموظفين مع ارشيف للمستندات والصور وملفاتPdf تحميل مجانى لبرنامج إدارة شؤون الموظفين لإدارة الموارد البشرية في الشركات والهيئات والمؤسسات برنامج شؤون الموظفين مجاني برنامج شئون الموظفين مع اضافة السلف قاعدة بيانات كاملة للموظفين بنظام اليوزرفورم...مجانا برنامج قاعدة بيانات الموظفين وهذه برامج بمقابل مادى برنامج ادارة شؤون الموظفين برنامج ادارة الموارد البشرية dexefHR برنامج شئون العاملين والموظفين نسخة مجانية مفعلة لأبو ي
  9. وعليكم السلام -يمكنك استخدام هذه المعادلة لذلك ... وأيضاً بالملف يوجد أربعة معادلات أخرى =LOOKUP(1,0/('1'!$A$3:$A$600=$A3)/('1'!$B$3:$B$600=$B3),'1'!$C$3:$C$600) test match price1.xlsx
  10. وعليكم السلام-لكى يتحقق ما تريد عليك بإستخدام هذه المعادلة =(INT(A2)+(A2-INT(A2))*100/60)*C2 الأضافى1.xls
  11. وعليكم السلام-لك ما طلبت test search1.xlsx
  12. جرب كده أعتقد لا يوجد مشكلة الأن SHAIMA1 H.xlsm
×
×
  • Create New...