اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11642
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    291

كل منشورات العضو Ali Mohamed Ali

  1. تفضل تم عمل التنسيق المطلوب في الملفين تنسيق شرطى للمكرر2.xlsx هوية.xlsm
  2. هذا ما اقصده ان المعادلة لا تختلف من صفحة الى أخرى وغير مرتبطة بصفحة بعينها فبمجرد كتابة المعادلة في اى ورقة المفروض تعطى لك النتيجة بالضبط فاذا كان هناك مشكلة فمن عندك لذا قلت لك ارفع الملف الذى به المشكلة
  3. لا اعلم ما المشكلة لديك بالضبط فالملف يعمل عندى عليك برفع الملف نفسه الذى به المشكلة وليس صورة
  4. لم يتم توضيح المطلوب في هذا الملف وعلى اى عمود تريد العمل ؟ فهذا هو ما دائما نقوله وننوه له ,فكان عليك من البداية رفع الملف في اول مشاركة لتجنب اهدار وقت الأساتذة
  5. وعليكم السلام كان عليك رفع الملف وشرح المطلوب عليه بشكل دقيق ولكن تفضل فقمت بعمل الملف لك تنسيق شرطى للمكرر.xlsx
  6. وعليكم السلام بارك الله فيك اخى الكريم-فقط يمكنك تتبع المعادلات الموجودة بالخلايا التي بها تواريخ فهى سهلة جدا ويمكنك عملها فكل ما عليك عمله عند زيادة السنوات مثلا ,يمكنك تغيير عدد السنوات الى ما تريد في الخلية C2 وكتابة تاريخ بداية العقد في الخلية C3
  7. وعليكم السلام -اهلا بكم فى المنتدى طالما انكى لم تقومى برفع ملف وشرح عليه المطلوب بشكل دقيق فيمكنك رؤية هذا الرابط داخل المنتدى فبه ملف سوف يفيدك https://www.officena.net/ib/topic/70419-برنامج-جرد-العهده-المخزنيه/ ولدى برنامج اخر بالأكسيس -تفضلى ادارة عهد المستودع.accdb
  8. اعتقد انه ليس هناك كلام بعد هذا الملف فبه كل ما طلبت تفقيط الدرجات2.xls
  9. الأمر ليس بالصعب طالما انك تريد هذا تفضل الملف بدون كلمة فقط تفقيط الدرجات.xls
  10. وعليكم السلام عليك اخى الكريم رفع الملف فعموما هذا كود اخر لإثراء الموضوع بعد اذن الأستاذ ابو عيد . تفقيط الدرجات.xls
  11. وعليكم السلام -تفضل حساب التاريخ تلقائى.xlsx
  12. المعادلات تعمل بشكل دقيق ولكن عليك وضع علامة الصح كما بالصورة
  13. وعليكم السلام يمكنك استخدام هذه المعادلة =SUMPRODUCT(('بنجلاديش متابعة'!$E$2:$E$92>=$A$4)*('بنجلاديش متابعة'!$E$2:$E$92<=$B$4)*('بنجلاديش متابعة'!$D$2:$D$92="وصول")) العمال .xlsx
  14. تفضل حل بسيط وبدون برامج يمكنك رفع الملف المحمى على هذا الموقع مباشرة وسيتم فك الملف لك -وذلك كما بالصورة الموضحة لك http://www.ensode.net/xls-crack.jsf
  15. تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm
  16. ابداع استاذ سليم كود ممتاز زادك الله من فضلك وغفر لك وجزاك الله كل خير
  17. وعليكم السلام كان عليك رفع ملف من البداية لعمل اللازم عليه تفضل كود تثبيت التاريخ تلقائيا.xlsm
  18. بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx
  19. بعد اذن الأستاذ عبدالله وهذا رابط اخر من داخل المنتدى -يمنع فتح الملف اذا تم نقاه وتغيير مكان الحفظ او تغيير اسمه https://www.officena.net/ib/topic/38637-موضوع-مميز-تمت-الاجابةأريد-كود-يمنع-الملف-من-الفتح-عندما-يستبدل-جهاز-الكمبيوتر-نقله/?tab=comments#comment-261437 وهذا موضوع اخر يخص طلبك وهو ربط بين ملف اكسيل واسم جهاز الكمبيوتر http://excel-egy.com/forum/t3183 وهذا ايضا موضوع اخر لملف يعمل على جهازين فقط https://www.officena.net/ib/topic/64356-ملف-يعمل-على-جهازين-فقط/ واخيرا اذا كنت حابب ان تمنع الملف ان يفتح ويعمل على اى جهاز يمكنك تتبع الأتى: اولا:-عليك بفتح مديول جديد ووضع هذا الكود به Sub CommitSuicide() 'http://www.cpearson.com/excel/workbooktimebomb.aspx With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثانيا :- وضع كود اخر فى حدث This Workbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub واخيرا عليك بتسمية احد صفحات الملف ب Welcome Sheet ووضع هذا الكود فى حدث هذه الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك
  20. تفضلوا هذا هو الملف بعد اذن الأستاذ محمد فؤاد طبعا لكى تعم الإستفادة للجميع المبيعات و العملاء.xlsm
×
×
  • اضف...

Important Information