اذهب الي المحتوي
أوفيسنا

Ali Mohamed Ali

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

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

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

  • Days Won

    292

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

  1. وعليكم السلام-كان عليك من البداية استخدام خاصية البحث فى المنتدى-فهنا العديد من الموضوعات التى تخص طلبك ومنها : https://www.officena.net/ib/topic/29892-توزيع-الأقساط-و-متابعة-سدادها-بـ-excel/?tab=comments#comment-148900 https://www.officena.net/ib/topic/89374-برنامج-تسجيل-الاقساط-بشكل-اوتوماتيك-اهداء-لكم/?tab=comments#comment-577703 https://www.officena.net/ib/topic/60753-برنامج-لإدارة-الأقساط/?tab=comments#comment-390838 https://www.officena.net/ib/topic/69314-معادلة-احتساب-عدد-الاقساط-مرتبط-بالمبلغ-المستحق-الكلي/?tab=comments#comment-451242 https://www.officena.net/ib/topic/69787-برنامج-العطاء-للتقسيط-الخامس-المجاني-قريبا/?tab=comments#comment-453851 https://www.officena.net/ib/topic/13020-برنامج-التقسيط-للأفراد-والمؤسسات/?tab=comments#comment-55880 https://www.officena.net/ib/topic/89184-برنامج-الاول-للاقساط/
  2. وعليكم السلام-اهلا بك فى المنتدى لابد من رفع ملف وشرح المطلوب عليه بكل دقة حتى تتم المساعدة
  3. ومن اين يتم جلب تواريخ هذه المناسبات -لابد من معرفتها مسبقا ووضعها فى الملف ؟!!!
  4. يمكنك وضع السطر الأول في بداية الكود الذى يسبب اهتزاز الشاشة والسطر الأخر في نهاية نفس الكود
  5. تفضل لك ما طلبت عدد الأيام المتبقية على المناسبات.xlsm
  6. تفضل اخى الكريم بنفس معادلة الأستاذ إبراهيم بعد تعديل بسيط جدا =IF(C2="","",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" AC"," ابواب ",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" CH","كابينات",IF(MID(REPLACE(C2,1,LEN("فاتورة بيع"),""),1,3)=" YK","سطح ","متفرقة")))) استخراج الصنف.xlsm
  7. السلام عليكم -لو كنت تقصد اهتزاز الشاشة يمكنك ادخال هذا السطر في الكود لمنع اهتزاز الشاشة Application.ScreenUpdating = False وهذا السطر الأخر للرجوع للحالة الأولى للملف Application.ScreenUpdating = true على الرغم بعد ذلك عند رفع اى استفسار او مشاركة فلابد من رفع الملف لتوفير الوقت في المساعدة
  8. رائع أستاذ محمد ,التجربة تمام ورائعة وناجحة بكل المقاييس ففعلاً تحققت فيها خاصية التعرف على كل من قام بتحميل الملف بالإسم , ووجود ونزول الإصدار الثانى من الملف في نفس صفحة الإصدار الأول مبروك وفى تقدم ونجاح دائم ان شاء الله والإرتقاء بمنتدانا لأعلى الدرجات وأعلى المراتب
  9. بالفعل أستاذ احمد لو حضرتك لاحظت تم دمج هذه المشاركات بالفعل من قبل هنا لأنهما نفس الطلب ونفس الموضوع
  10. وعليكم السلام-تفضل مشكلة الحضور قبل الموعد في الاكسيل.xlsm
  11. الملف موجود بالفعل هنا ويمكنك تحميله من المنتدى في نفس هذه الصفحة تفضل 2014الفرائض والوصــايا بالأكســل.xlsx
  12. وعليكم السلام-يمكنك تجربة ورؤية هذا الرابط https://www.officena.net/ib/topic/82235-لون-الخط-في-صندوق-الرسائل-msgbox/
  13. أحسنت استاذنا الكبير بارك الله فيك وزادك الله من فضله
  14. وعليكم السلام-جرب هذا الرابط به تقريبا نفس موضوعك من أعمال الأستاذ الكبير سليم حاصبيا https://www.officena.net/ib/topic/92360-طلب-اضافة-ترحيل-بيانات-بملف-اكسل/
  15. وعليكم السلام -يمكنك وضع واستخدام هذه المعادلة في الخلية N2 =IF(AND($O$2>=$L$2,$P$2>=$L$2),1,"")
  16. وعليكم السلام-تفضل برنامج الأرشيف.xlsx
  17. تفضل عندما تريد ترتيباً تصاعدياً تقوم بكتابة رقم 1 فى الرسالة الحوارية و -1 عندما تريد ترتيباً تنازلياً الوزن.xlsm
  18. عليك بفتح مديول جديد ووضع هذا الكود به وربطه بزر Sub xlSortSheets_Test() Dim strWhich As String Dim Which As Integer strWhich = InputBox("لترتيب أسماء الأوراق تصاعدياً أدخل الرقم 1 " & vbNewLine & "لترتيب أسماء الأوراق تنازلياً أدخل الرقم -1 ", "تحديد طبيعة ترتيب أسماء الأوراق", "1") If strWhich = vbNullString Then Exit Sub If strWhich = "-1" Or strWhich = "1" Then Which = strWhich Call xlSortSheets(Which) Exit Sub End If MsgBox "لم تدخل الأرقام المسموح بها لعمل الترتيب" & vbCrLf & "لم يتم ترتيب الأوراق", vbOKOnly End Sub Sub xlSortSheets(Optional Which As Integer = 1) Dim I As Integer Dim J As Integer Dim SheetNames() As String Dim temp As String ReDim SheetNames(Sheets.Count) For I = 1 To Sheets.Count SheetNames(I) = Sheets(I).Name Next I For I = 1 To Sheets.Count - 1 For J = I + 1 To Sheets.Count If (Which = -1 And SheetNames(I) < SheetNames(J)) _ Or _ (Which = 1 And SheetNames(I) > SheetNames(J)) Then temp = SheetNames(I) SheetNames(I) = SheetNames(J) SheetNames(J) = temp End If Next J Next I temp = Sheets(Sheets.Count).Name For I = Sheets.Count To 1 Step -1 Sheets(SheetNames(I)).Select Sheets(SheetNames(I)).Move Before:=Sheets(temp) temp = SheetNames(I) Next I Sheet1.Select End Sub
  19. وعليكم السلام -بارك الله فيك أستاذ عبد اللطيف بالتأكيد هناك ترتيب وكما تشاء سواء تصاعدياً أو تنازلياً -كما بهذا الرابط https://www.officena.net/ib/topic/33468-هل-يمكن-ترتيب-اسماء-شيت-الاكسيل-ابجدي/ وهذا هو الملف ترتيب الأوراق حسب أسمائها.xls
  20. وعليكم السلام وهذا مخزاه ان المكتبة المسئولة عن هذا التقويم غير متوفرة لديك فلابد من العمل على تنزيلها
  21. تفضل لك ما طلبت-فانك لم توضح هذا من البداية Fuddruckers OD Jun 2019.xlsx
  22. وعليكم السلام-تفضل قيمة المبيعات 1.xlsm
×
×
  • اضف...

Important Information