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

أ / محمد صالح

أوفيسنا
  • Posts

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

  • Days Won

    198

كل منشورات العضو أ / محمد صالح

  1. الأمر لا يتطلب التواصل الخاص فقط فهم لآلية التعامل مع الإكسل وخصوصا فهم خطأ المرجع الدائري circular reference والذي ينتج عن وضع مرجع الخلية في معادلتها
  2. لو بحثت لوجدت الكثير ربما يفيك هذا الرابط Searched for 'طباعة الكل pdf' in موضوعات (officena.net) بالتوفيق
  3. من أين ستحصل الخلية B على قيمتها التي ستقارنها بقيمة A ؟؟؟؟؟؟؟؟؟
  4. المطلوب غير واضح بصورة كافية على العموم على فرض أنك تريد قسمة D1 على C1 وتريد مقارنة ناتج القسمة بقيمة B1 يمكنك استعمال هذه المعادلة في الخلية E1 مثلا =IF(D1/C1>B1,B1,D1/C1) بصورة عامة =IF(........>B1,B1,......) يمكنك وضع اي معادلة مكان النقط مرتين بالتوفيق
  5. حسب فهمي للمطلوب رغم عدم دقة هذه الطريقة في حساب الفرق بين تاريخين لأنها لا تراعي الشهور ذات الأيام 31 أو 28 أو 29 على العموم يمكنك استعمال هذه المعادلة في G4 للحصول على عدد الأيام =IF(DAY(E4)<DAY(D4),30,0)+DAY(E4)-DAY(D4) وهذه في F4 للحصول على عدد الشهور =IF((IF(DAY(E4)<DAY(D4),-1,0)+MONTH(E4))<MONTH(D4),12,0)+IF(DAY(E4)<DAY(D4),-1,0)+MONTH(E4)-MONTH(D4) وهذه للحصول على عدد السنوات =IF((MONTH(E4)-MONTH(D4))<(IF((IF(DAY(E4)<DAY(D4),-1,0)+MONTH(E4))<MONTH(D4),12,0)+IF(DAY(E4)<DAY(D4),-1,0)+MONTH(E4)-MONTH(D4)),-1,0)+YEAR(E4)-YEAR(D4) طبعا يرجع طول المعادلة إلى عدم اعتمادها على نتائج الأعمدة الأخرى (اليوم والشهر) بالتوفيق
  6. لتنسيق تاريخ اليوم الحالي نستعمل هذه المعادلة =TEXT(TODAY(),"m/d/yyy") ويمكن تغيير today إلى مرجع خلية بها تاريخ بالتوفيق
  7. أحد الحلول أن تستعمل اصدارا أحدث مثل: 1010 2013 2016 2019 2021 365 لقد تأخرنا كثيرا وخصوصاً بعد توقف دعم ميكروسوفت لإصدار أوفيس 2007 وويندوز 7 بالتوفيق
  8. أخي الكريم يجب أولا ضبط المدخلات بحيث أن كل جزء ج1 أو ج2 وهكذا يحتوي على 3 صفوف أعلاه ثم 12 صف أرقام ثم 3 صفوف أسفله وعليه يكون عدد صفوف الجزء 18 صفا ومعنى ضبط المدخلات أن تكون هذه الطريقة هي المتبعة في جميع الخلايا من ج1 حتى ج 9 ويمكنك استعمال هذه المعادلة في الخلية C8 ثم سحبها لأسفل =COUNTIFS(INDIRECT("'1'!C"&(B8-1)*18+1&":C"&B8*18),">"&0) وهذا ملفك بعد تنفيذ الفكرة على شيت 1 فقط بالتوفيق جمع عدد المستندات في القائمة حسب شروط.xlsm
  9. حدد الخلايا المطلوب تنسيقها ثم اضغط CTRL+1 لفتح نافذة تنسيق الخلايا format cells في التبويب الأول رقم number اختر تاريخ date واختر من الجزء الأيمن تنسيق التاريخ المطلوب وإذا لم تجد المطلوب غير نوع التقويم من أسفل الجزء الأيمن ستجد تنسيقات أكثر بالتوفيق
  10. الملف مرتبط بملفات أخرى
  11. عليكم السلام ورحمة الله وبركاته يمكنك استخدام هذه المعادلة في الخلية J9 =IF(F9=5,IF(COUNTIF($F$9:F9,5)/COUNTIF($F$9:$F$1000,5)<=0.5,"الفرح","الزهور"),"اشراقة") بالتوفيق
  12. جرب أن تضع هذه المعادلة في الخلية B3 =IF(A3<=100,A3*1.5,IF(A3<=150,150+(A3-100)*2,IF(A3<=200,250+(A3-150)*5,500+(A3-200)*6))) على افتراض أن الأكثر من 200 ب 6 وطبعا ال 150 عبارة عن 100 في 1.5 وطبعا 250 عبارة عن 150 + ( 50 في 2) وطبعا ال 500 عبارة عن 250 + (50 في 5) بالتوفيق
  13. يلزمك القراءة عن المراجع المطلقة والمراجع النسبية جرب استعمال =$A$1-A4 سيتم تثبيت A1 بالتوفيق
  14. يمكنك إضافة خيارات اللغة إلى شريط الوصول السريع ملف --- خيارات --- تخصيص شريط الوصول السريع file - options - quick access toolbar أوامر غير موجودة في الشريط commands not in the ribbon هيارات اللغة options language إضافة add ok كما بالصورة بالتوفيق
  15. جرب استعمال هذا الكود في حدث تغيير محتويات الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then If Target.Value = "done" Then Target.Offset(0, 2).Value = Target.Offset(0, 1).Value Target.Offset(0, 4).Value = Date End If End If End Sub بالتوفيق
  16. عليكم السلام يمكنك فتح الملف ثم النقر فوق "ملف" و"فحص المصنف" File - Inspect Workbook وأصلح ما تجده من عيوب سيفتح معك بصورة طبيعية بعدها إن شاء الله بالتوفيق
  17. عليكم السلام جرب هذه المعادلة في أي عمود في الصف الثاني ونسخها لأسفل =IF(INDIRECT(IF(ISODD(ROW()),"A","B")&INT(ROW()/2)+1)="","فارغ",INDIRECT(IF(ISODD(ROW()),"A","B")&INT(ROW()/2)+1)) بالتوفيق
  18. الاحتمالات كثيرة جرب أن تفتح الملف من على الجهاز الرئيسي من خلال الشبكات ثم فتح الجهاز ثم فتح الملف لأنه ربما الاختصار shortcut يكون غير دقيق وتأكد من صلاحيات هذا الجهاز هل له صلاحية لتعديل الملفات على الشبكة أو الوصول إليها أظن أن هذا الجهاز لا يفتح الملف على السيرفر وإنما يفتح ملفا آخر به البيانات حتى شهر 3
  19. لا أدري ما المشكلة لديك في تنفيذ الخطوات بعد تغيير خصائص جميع الخلايا إلى محمية ثم تنسيق الخلايا المراد الكتابة فيها بغير محمية ثم حماية الشيت بكلمة مرور ثم ضبط خيارات الاكسل - متقدم الذي يحدث معي: الكتابة في الخلية الأولى المسموح الكتابة فيها ثم بعد الضغط على انتر يتم الانتقال إلى ثاني خلية مسموحة حتى لو بينها وبين الأولى أي عدد من الأعمدة إلى نهاية الصف المسموح وعند نهاية الصف ينزل إلى أول خلية مسموحة في الصف التالي وهكذا وأعتقد هذا هو المطلوب إن كان فهمي صحيحا
  20. هذا ملفك بعد تنفيذ التعليمات الواردة في المشاركة السابقة وطبعا طريقة تحديد الانتقال بعد انتر في الخيارات معروفة ملف -- خيارات -- متقدم ثم تختار يمين كما بالصورة Example.xlsm
  21. عليكم السلام جرب استخدام هذا الكود بعد تحديد الخلايا التي يراد وضع ارتباط تشعبي لها Sub AddHypaerlinks() Dim cl As Range Dim myPath As String, fileName As String myPath = "C:\Users\civat\Desktop\New folder\" 'SET TO WHERE THE FILES ARE LOCATED For Each cl In Selection If Len(cl) > 0 Then fileName = myPath & cl.Value & "*.docx" 'IF THE FILE EXISTS THEN If Len(Dir(fileName)) <> 0 Then ActiveSheet.Hyperlinks.Add cl, myPath & Dir(fileName) End If Next End Sub بالتوفيق
  22. حسب فهمي للمطلوب طبعا بعد جعل جميع خلايا الشيت مؤمنة ومخفية locked & hidden ما عدا الخلايا المسموح بالكتابة فيها (بحذف علامة الصح بجوار locked & hidden ) من التبويب الأخير لنافذة تنسيق الخلايا (protection حماية ) ثم اثناء حماية الشيت من تبويب مراجعة review قم بإلغاء تحديد الخلايا المؤمنة (الملونة باللون الأصفر في الصورة التالية) بالتوفيق
  23. إن شاء الله يفيدك هذا الملف نموذج بسيط لاختيار الوقت مثل اختيار التاريخ بالتوفيق time picker.xlsb
  24. عملية البحث طبيعية ولا مشكلة في الكود ويرجع سبب الحصول على أرقام أخرى أن عملية البحث غير مطابقة وإنما باللواصق (ما قبلها وما بعدها) "*" & Me.TextBox1 & "*" فلو بحثنا عن الرقم 2 يجلب لنا 2 و 12 و 22 و 25 و 32 وهكذا وإذا أردنا أن يكون البحث عن الأرقام مطابقا يجب إضافة شرط لمعيار البحث باستبدال السطر الثاني إلى هذا السطر clé = IIf(Me.combobox1.Value = "الرقم" Or Me.combobox1.Value = "عدد الحروف" Or Me.combobox1.Value = "عدد الكلمات", Me.TextBox1, "*" & Me.TextBox1 & "*"): n = 0 بالتوفيق
×
×
  • اضف...

Important Information