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

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4,444

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

  • Days Won

    192

 نوع المحتوي 

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

  1. أ / محمد صالح
    بارك الله لك وأود أن أضيف شرطا أن يكون تطبيق واتس آب مثبتا في جهاز الكمبيوتر أو الموبايل بالتوفيق
  2. أ / محمد صالح
    أعتقد أنه لا يوجد حدث في الاكسل يسمى عند ادخال كلمة مرور خاطئة في vbe كما أن حذف الموديولات يتطلب إعدادات خاصة في الماكرو trust access to the vba project object model ولا ينصح باستعمال هذه الخاصية إلا لمن يعرف التعامل معها وليس للعملاء مثلا بالتوفيق
  3. أ / محمد صالح
    جميعا بإذن الله
  4. أ / محمد صالح
    هذه المعادلة في C2 =SUM(B2,A2/100) تفي بالغرض بالتوفيق
  5. أ / محمد صالح
    يمكنك استعمال هذه المعادلة في الخلية B2 =IF(A2="","لايوجد رقم","الرقم "&IF(COUNTIF(C:C,A2)>0,"","غير ")&"موجود") وهذه في D2 =IF(C2="","لايوجد رقم","الرقم "&IF(COUNTIF(A:A,C2)>0,"","غير ")&"موجود") بالتوفيق
  6. أ / محمد صالح
    جزاكم الله خير الجزاء بالتوفيق
  7. أ / محمد صالح
    ربما يفيدك هذا الموضوع في تخزين البيانات في شيت وطباعة جميع الحظائر من صفحة الطباعة بالتوفيق
  8. أ / محمد صالح
    تحتاج فقط إلى ضبط عرض الأعمدة سواء في خصائص العنصر أو بالكود التالي Private Sub UserForm_Activate() CM_ListFind.ColumnWidths = "40,80,200,110,80,80,80" End Sub مع تحريك العناوين الموجودة فوق القائمة ويفضل جعل محاذاة القائمة يمين وليس توسيط بالتوفيق
  9. أ / محمد صالح
    أعتقد لابد من وضع نسبة من الاثنين حتى يمكن الحصول على الثانية لأن خلية النسبة داخلة في معادلة العمود I التي يتم حساب الخلية G11 بناء على مجموع العمود i مع وضع g11 على شكل رقم وليس معادلة وهذا جهدي المتواضع فيما يخص هذه الطريقة وقد أوضحت فيها: * حساب مجموع العمود i في الخلية (i11) في حالة معرفة G11 * حساب النسبة في حالة معرفة القيمة المقابلة في i بالتوفيق ves.xlsx
  10. أ / محمد صالح
    يمكنك استعمال هذه المعادلة في الخلية m6 وسحب المعادلة لأسفل =IF(L6>6,0,IF(L6>5,0.5,IF(L6>4,0.4,IF(L6>3,0.3,1))))*K6 مع مراعاة الفاصلة أو الفاصلة المنقوطة حسب اعدادات جهازك بالتوفيق
  11. أ / محمد صالح
    الحمد لله الذي،وفقنا لهذا
  12. أ / محمد صالح
    إن كان ناتج هذه المعادلة مرجع نطاق مثل A1 فيمكن استعمال هذه المعادلة =HYPERLINK("#"&CELL("address",INDIRECT("data!"&IFERROR(VLOOKUP(H11;DATA!A3:AQ252;43;FALSE);VALUE(("0"))))),"click here") ويمكن تغيير نص الرابط click here إلى أي نص مرغوب بالتوفيق
  13. أ / محمد صالح
    جميعا بإذن الله
  14. أ / محمد صالح
    يمكنك استعمال هذا الكود Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case vbKey0 To vbKey9, vbKeyBack, vbKeyClear, vbKeyDelete, _ vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab If KeyAscii = 46 Then If InStr(1, TextBox1.Text, ".") Then KeyAscii = 0 Case Else KeyAscii = 0 End Select End Sub بالتوفيق
  15. أ / محمد صالح
    جميعا بإذن الله
  16. أ / محمد صالح
    يتم ذلك عن طريق تحديد الأعمدة المراد تجميعها ثم تبويب بيانات data ثم outline مخطط خارجي تقريبا ثم group تجميع بالتوفيق
  17. أ / محمد صالح
    حسب فهمي للمطلوب يتم تنفيذ أمر الطباعة أولا ActiveSheet.PrintOut ثم سطر التصدير إلى. Pdf في نفس مسار ملف الاكسل باسم FileName.pdf الذي يمكن تغييره ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & "FileName.pdf", , , False بالتوفيق
  18. أ / محمد صالح
    حسب فهمي للمطلوب فلا تحتاج لكتابة today في خلية وإنما تحتاج لكتابة تاريخ البداية مثلا A1 وتاريخ النهاية B1 ونستعمل هذه المعادلة =IF(AND(TODAY()>A1,TODAY()<B1),"yes","no") مع تغيير yes و no إلى النص المراد في الحالتين بالتوفيق
  19. أ / محمد صالح
    الكود ينفذ المطلوب حذف الصف كاملا EntireRow.Delete لخلايا العمود c من الصف الأول إلى آخر صف مكتوب فيه Cells(Rows.Count, 3).End(3).Row بشرط أن تكون الخلايا فارغة SpecialCells(4) بالتوفيق
  20. أ / محمد صالح
    الشكر لله الذي وفقنا لهذا وهذا رابط لشرح دالتي index & match في البحث
  21. أ / محمد صالح
    نفع الله بكم البلاد والعباد وزادكم من فضله
  22. أ / محمد صالح
    جميعا بإذن الله الأمر الثاني بسيط جدا ولا يحتاج لمحاولات كثيرة فقط يحتاج لفهم الشرطين وحذف أحدهما بالتوفيق
  23. أ / محمد صالح
    لكي يتم هذا الأمر تحتاج إلى: خلية بها تاريخ النهاية وليكن A1 وخلية بها مسار المجلد وليكن B1 ثم تستعمل هذا الشرط If date >= [a1] and [b1] <> "" then your delete code [b1] = "" end if بالتوفيق
  24. أ / محمد صالح
    جميعا بإذن الله
  25. أ / محمد صالح
    يمكنك إضافة هذا السطر If TextBox4 >= 1 And TextBox5 >= 6 Then TextBox3 = DateAdd("d", -45, TextBox3) بعد هذا السطر TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2) بالتوفيق
×
×
  • اضف...

Important Information

  I accept