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

أ / محمد صالح

Officena Team
  • Posts

    2,536
  • Joined

  • Days Won

    52

أ / محمد صالح last won the day on July 30

أ / محمد صالح had the most liked content!

Reputation

1,295 Excellent

About أ / محمد صالح

  • Birthday 01/01/1977

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    معلم أول (أ) لغة عربية
  • Location
    مصر - البحيرة - إيتاي البارود
  • Interests
    برمجة الاكسيس والفيجوال بيزيك والاكسيل والمواقع

Contact Methods

  • MSN
    ostaz_mas@hotmail.com
  • Website URL
    https://www.mr-mas.com
  • Yahoo
    ostaz_mas
  • Skype
    ostaz_mas

Recent Profile Visitors

10,203 profile views
  1. ربما لأنك كتبت الشرط على سطرين يجب جعل السطرين باللون الأحمر في سطر واحد
  2. لاضافة الكود كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود بالتوفيق
  3. تم إضافة الشرطين شرط اسم الشيت يكون data وشرط قيمة الخلية لا تساوي "" أو " " يفضل فهم الكود أولا قبل تطبيقه في الملف حتى يمكنك تنفيذ هذه الشروط بمفردك بعد هذا Sub Add() If ActiveSheet.Name = "data" Then Dim FR For FR = 10 To 50 If Cells(FR, 3) <> "" And Cells(FR, 3) <> " " Then Cells(FR, 3) = Val(Cells(FR, 3)) + 1 End If Next MsgBox "plus 1 add to all" End If End Sub بالتوفيق
  4. هذه الرسالة لا تظهر إلا إذا كان المستخدم زائرا (لا يملك صلاحيات التحميل) أما بعد تسجيل الدخول فالأمر طبيعي جدا
  5. هذه الميزة جميلة لكنها تنطق عند حدوث تغيير في كل مكان وهذا مذعج جدا الكود يحدد الخلايا التي ينطقها البرنامج مثلا إذا أردنا نطق أي تعديل في خلايا العمود A نستعمل الكود التالي في حدث عن التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim v As Object Set v = CreateObject("SAPI.SpVoice") v.Speak Target.Text Set v = Nothing End If End Sub وأعمل حاليا على كود ينطق باللغة العربية ولكنه يحتاج إلى اتصال بالانترنت إن شاء الله أعرضه فيما بعد بالتوفيق
  6. تفضل أخي الكريم تم التعامل مع التواريخ على أنها نصوص وتحويل التاريخ الهجري المنسق كنص إلى تاريخ ميلادي إن شاء الله يكون هو المطلوب حركة تسديد القروض2.xlsm
  7. يمكنك عمل ذلك من خلال التنسيق الشرطي بمعادلة مثل =MONTH(D3)=MONTH(TODAY()) وتطبق على المدى C3:C14 بالتوفيق
  8. أنا ما عدلت على التواريخ أنا فقط ضبطت تنسيقها واعتبارها كتاريخ ومعادلتك في عمود تاريخ التحصيل كنتيجة لضرب تاريخ البداية في 29.5 مع عدد الأقساط ولا تنس أن الاكسل يتعامل مع التواريخ على أنها ميلادية ويعرض فقط التنسيق الهجري
  9. هذه هي التصفية بالمعادلات وتتم بمعادلات المصفوفات حدد النطاق B3:B16 ثم اكتب في شريط الصيغة المعادلة التالية =IFERROR(INDEX(entries!D:D,SMALL(IF(1001=entries!$C:$C,ROW(D:D),""),ROW()-2)),"") واضغط Ctrl+shift+enter لقبول المعادلة وكررر ذلك مع النطاقات C3:C16 =IFERROR(INDEX(entries!E:E,SMALL(IF(1001=entries!$C:$C,ROW(E:E),""),ROW()-2)),"") وأيضا مع النطاق D3:D16 =IFERROR(INDEX(entries!F:F,SMALL(IF(1001=entries!$C:$C,ROW(F:F),""),ROW()-2)),"") ملحوظة: هذه المعادلات لا يتم سحبها أفقيا أو رأسيا وإذا تم ينتج عنها بطء شديد للملف لذا يفضل تحديد النطاق الذي ستطبق عليه كله مرة واحدة بالتوفيق
  10. تفضل هذا ملفك بعد تعديل تنسيق التواريخ والمعادلات حركة تسديد القروض.xlsm
  11. يفترض أن تظهر عندك القوائم كاملة جرب الرابط الخاص بالشرح في مشاركتي السابقة https://support.google.com/docs/answer/1218656?hl=ar&ref_topic=9055295
  12. هذا ما أريده من بداية الكلام فربما لا يحسن أحدنا وصف ما يريد فيحكي بالتفصيل ما يريده فيحاول الجميع الفهم أنت تريد عمل توزيع المحصلين عشوائيا على شهور العام من 1 إلى 12 تفضل هذا ملفك بعد التعديل توزيع المحصلين عشوائيا.xlsm
×
×
  • Create New...

Important Information