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

أ / محمد صالح

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

  • Posts

    4486

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

  • Days Won

    198

 نوع المحتوي 

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

  1. أ / محمد صالح
    مشكور أخي الكريم فعلا من أراد احتراف الإكسل فعليه بالمراجع الأجنبية للعلم معظم هذه الكتب عندي وبعضها ليس عندي فجزاك الله خيرا وكل عام أنتم بخير
  2. أ / محمد صالح
    بالفعل أخي ابن سينا هذه الخاصية تسمى auto preview المعاينة التلقائية ويمكن تفعيلها أو إلغائها من خصائص الإكسل excel options
  3. أ / محمد صالح
    كثيرا ما نحتاج لتلوين الصفوف لتسهيل متابعة معلومات الصف خاصة في حالة كثرة الأعمدة واليوم أحضرت لكم نصيحة سريعة تستعمل في هذا الغرض تلوين الصفوف بالتتابع صف بخلفية بيضاء وصف بخلفية رمادي لعمل ذلك اتبع الآتي حدد جميع خلايا الشيت من التبويب home الصفحة الرئيسية اضغط على conditional formating التنسيق الشرطي كما بالصورة ثم اختر new role قاعدة جديد كما بالصورة ستظهر نافذة القاعدة الجديدة اختر الاختيار الأخير ثم اكتب المعادلة الآتية =iseven(row()) وتعني أن يكون الصف عددا زوجيا مكان المعادلة التي في الصورة ثم اضغط على تنسيق format تظهر لك النافذة التالية اختر منها التبويب fill تعبئة واختر اللون المناسب ثم اضغط موافق كما بالصورة السابقة ثم اضغط موافق على النافذة الأولى ستجد الشيت بهذا المظهر الذي لا تتعب العين في متابعة صفوفه تحياتي للجميع
  4. أ / محمد صالح
    ياريت مزيد من التوضيح
  5. أ / محمد صالح
    رائع أخي خالد خلدك الله في جناته
  6. أ / محمد صالح
    أخي خالد أنت لا تحتاج لإذن مني بل أنا آمل أن تعجبك هذه الصورة وتنال رضاك حتى يعم الخير
  7. أ / محمد صالح
    يوجد مثل شعبي مصري يقول : إن فعلت خير ما تشورش بمعنى إذا أردت أن تفعل شيئا كله خير فلا تطلب المشورة من أحد وتوكل على الله فهنيئا لك ولكل من رأى الصورة وفهم معناها وعمل به شرف لي أخي أحمد مجرد مرورك على ردودي
  8. أ / محمد صالح
    يبدو أن الملف فقد جزء من خصائصه بعد حفظه بصيغة يدعمها أوفيس 2003 لأني فتحت الملف ولم أجد قائمة بالأصناف تختار منها فهذا رابط لنفس الملف بصيغة يدعمها أوفيس 2007 و 2010 هنـــــأ
  9. أ / محمد صالح
    اخي الكريم في الملف المرفق وضعت لك قائمة بقائمة الأصناف في الشيت الثانية والسعر يتم احتسابه بناء على سعر الوحدة في الورقة الأولى بناء على الصنف المختار ثم تضغط على زر ترحيل ليقوم بخصم الكميات المباعة من الكميات المخزنة طبعا هذا الزر لا يتم الضغط عليه إلا في آخر عمليات البيع أتمنى أن يكون هو المطلوب هنــــا
  10. أ / محمد صالح
    شكرا لكل الإخوة على المرور وأتمنى من الجميع المساهمة بما يعرف من تريكات tricks (نصائح سريعة) لينفع بها إخوانه لا يكفي أن نأخذ بلا عطاء وفقنا الله وإياكم لما فيه الخير
  11. أ / محمد صالح
    مشكور أخي hben دالة رائعة فعلا
  12. أ / محمد صالح
    أسعدني مرورك على ردودي أخي خالد شرف لي أن أرى منك هذا الاهتمام
  13. أ / محمد صالح
    أخي الكريم بارك الله فيك خصائص الأداة لا تختلف بين إصدارات الأوفيس مطلقا ربما يتغير الشكل فقط وبالنسبة للطلب الثاني الخاص بكود إنشاء القائمة فهذا هو مع مراعاة تغيير المعاملات المطلوبة Sub Createdropdown() Dim Drp1 As Object Set Drp1 = ActiveSheet.DropDowns.Add(120, 20, 100, 18) With Drp1 .ListFillRange = "$a$1:$a$10" .LinkedCell = "K3" .DropDownLines = 8 .Display3DShading = True .Caption = "اختر من القائمة : " End With End Sub الموجودة بعد with وهي على الترتيب المدى الذي تملأ به القائمة الخلية المرتبطة عدد الصفوف في القائمة عرضها بطريقة ثلاثية الأبعاد عنوان القائمة لا تنسوني من صالح دعائكم في هذه الأيام المباركة
  14. أ / محمد صالح
    شكرا لمرورك الكريم كل عام أنتم بخير
  15. أ / محمد صالح
    تفضل أخي هذه الدالة تقوم بنفس الغرض إن شاء الله مبنية على دالة iserror الموجودة في إكسل 2000 و 2003 Function IfErr(formula As Variant, show As String) On Error Resume Next If IsError(formula) Then IfErr= show Exit Function Else IfErr= formula Exit Function End If End Function كل عام أنتم بخير
  16. أ / محمد صالح
    يمكنك الوصول لأدوات التحكم وإضافتها في ورقة العمل من خلال تبويب المطور developer ثم من الأمر إضافة insert كما بالصورة هذا بالنسبة لأوفيس 2007 أما بالنسبة لأوفيس 2003 فمن خلال إظهار شريط الأدوات نماذج forms ولكل قائمة تحدد الخلية المرتبطة وكذلك مصدر القائمة وعدد الصفوف في القائمة من خلال الضغط بزر الفارة الأيمن واختيار خصائص
  17. أ / محمد صالح
    للأسف أخي خالد الغالبية العظمى لمصادري لتعليم لغات البرمجة انجليزية لأنهم تفوقوا ولكن كلي أمل في بناء جيل عربي يبدأ من حيث انتهوا أشكرك لمرورك الكريم وحسن حديثك
  18. أ / محمد صالح
    يبدو أن عملية الحساب calculation تم تغييرها في خيارات الإكسل excel options إلى يدويا manual ويجب عودتها إل تلقائي automatic
  19. أ / محمد صالح
    هل تعلم أن نسخ المعادلات في إكسل 2003 كان بهذا الكود Selection.AutoFill Destination:=Range("c4:c20"), Type:=xlFillDefault وكان يستهلك من ذاكرة الجهاز قدرا كبيرا أما في إكسل 2007 جرب هذا الكود Selection.FillDown وذلك طبعا بعد تحديد الخلية في الحالتين Range("c4:c20").Select ويمكنك ايضا استعمال fillright fillleft fillup تحياتي للجميع
  20. أ / محمد صالح
    في التأني السلامة الموضوع كبير
  21. أ / محمد صالح
    ملف رائع أخي الكريم ودالة رائعة الغريب أنها غير موجودة في دوال الوقت والتاريخ وكنا نتغلب على ذلك بعمل دالة هي Function MyDuration(OldDate, NewDate) Dim Separator As String Separator = " - " If IsNull(NewDate) Then NewDate = Date End If If IsNull(OldDate) Or OldDate >= NewDate Then MyDuration = "" Exit Function End If Dim Y As Integer, M As Integer, D As Integer Dim Yn As Integer, Mn As Integer, Dn As Integer Y = DatePart("yyyy", [OldDate]) M = Month([OldDate]) D = DatePart("D", [OldDate]) Yn = DatePart("yyyy", NewDate) Mn = Month(NewDate) Dn = DatePart("D", NewDate) If Dn >= D And Mn >= M Then MyDuration = Yn - Y & Separator & Mn - M & Separator & Dn - D Exit Function ElseIf Dn < D And Mn <= M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 11) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn < D And Mn > M Then MyDuration = Yn - Y & Separator & (Mn - 1) - M & Separator & (Dn + 30) - D Exit Function ElseIf Dn >= D And Mn < M Then MyDuration = (Yn - 1) - Y & Separator & (Mn + 12) - M & Separator & Dn - D Exit Function End If End Function
  22. أ / محمد صالح
    مشكور أخي وجزاك الله خير الجزاء
  23. أ / محمد صالح
    أشكر جميع الإخوة على المرور وأعدكم بسلسلة لتعليم أوفيس 2007 إن رغبتم ذلك كل عام أنتم بخير
  24. أ / محمد صالح
    اخي يحيى بارك الله فيك وجزاك خيرا على رغبتك في إفادة غيرك من إخوانك ولكن لي مجرد رأي عندما تخرج علينا شركة ميكروسوفت بإصدار أوفيس 2010 ونحن مازلنا نرغب في استعمال أوفيس 2003 فنحن نحرم أنفسنا من كثيييير من التقدم يهمني أولا وأخيرا فهمي من المنطلق الصحيح وعدم إساءة فهم كلامي
  25. أ / محمد صالح
    السلام عليكم ورحمة الله وبركاته كل عام وأنتم بخير شكرا أخي أيسم على المجهود الرائع في مساعدة الإخوة الزملاء ومساهمة مني في ذلك المجال وتخطيا لموضوع الضغط في أي مكان بعد الاختيار قمت بهذا التعديل أتمنى أن يحوز رضاكم نظام المرفقات عندي به خلل يبدو أنه من المتصفح فرفعت الملف على mediafire هنــــا
×
×
  • اضف...

Important Information

  I accept