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

أ / محمد صالح

أوفيسنا
  • Posts

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

  • Days Won

    195

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

  1. الأخت الفاضلة ما تطلبيه يسمى فرز متعدد المستويات ولعمل ذلك في أوفيس 2003 افتحي ورقة العمل المطلوب تنفيذ الفرز فيها اضغطي في اي خلية داخل البيانات اضغطي على قائمة data بيانات ثم اختاري sort فرز سيظهر لك مربع حوار مثل هذا اختاري فرز بواسطة العمود k والذي به ترتيب الوظيفة وفي السطر الثاني ثم بواسطة اختاري عمود الاسم العمود b وفي الحالتين اجعلي الفرز تصاعدي ascending ولك فرز بواسطة مستوى ثالث إن أردت ذلك عذرا لأني أستعمل أوفيس 2007 ونسيت والله ما كنا نفعله سابقا في الإصدارات القديمة جربي وأخبريني بالنتيجة
  2. من هذا المنطلق أدعو الإخوة والأخوات أعضاء المنتدى للانتقال إلى أوفيس 2007 وإلى كل حديث في عالم البرمجة والبرامج كل عام أنتم بخير
  3. ما مضمون رسالة الخطأ؟؟ للعلم أنا عندي نسخة أوفيس 2007 والكود شغال ومية مية ياريت يشاركنا أحد الإخوة هل الكود يعمل عنده أم لا على أوفيس 2003 وعلى أوفيس 2007
  4. تفضلي أختي الفاضلة أتمنى أن يكون هو المطلوب ظپط±ط² ط¨ظ…ط¹ظٹط§ط±ظٹظ†.rar
  5. اليوم وبمناسبة أول يوم في شهر رمضان المبارك يسعدني أن أقدم لكم هذه المعلومة السريعة لعمل اختصار لبرنامجك بأيقونة مختلفة عن أيقونة الإكسل الافتراضية ويفتح بدون عرض الشاشة الافتتاحية للإكسل طريقة العمل نضغط كلك يمين في أي مكان خالي ونختار new ثم shortcut سيظهر هذا الحوار نكتب ما يلي "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" /e "c:\myfolder\myfile.xlsx" مع التركيز على علامات التنصيص ثم نضغط next ثم نكتب اسم الاختصار ثم نضغط finish سيظهر لنا الملف نضغط عليه كلك يمين ونختار propreties ستظهر هذه النافذة التي تمكننا من تغيير التعليق الذي يظهر على الملف عند مرور الماوس عليه وتغيير حجم نافذة البرنامج maxmize وتغيير ايقونته كما بالصورة وعند الضغط على change icon تظهر نافذة صغيرة بها أيقونات من الإكسل نضغط على browse لاستعراض الأيقونة من الجهاز ثم نضغط ok ثلاث مرات لتأكيد الاختيارات وفي النهاية ستجد الاختصار بهذا الشكل يمكنك استخدام هذا الاختصار في البرامج التي تقوم بتحزيم برنامجك وعمل برنامج تثبيت له ونسخها في مسار سطح مكتب العميل تحياتي للجميع أخوكم محمد صالح لا تنسوني من صالح دعائكم وخاصة في هذه الأيام المباركة
  6. انت اللي أستاذ يا أبو عمار أسعدني مرورك كل عام وجميع الإخوة والأخوات بخير
  7. مشكور أخي الكريم فعلا من أراد احتراف الإكسل فعليه بالمراجع الأجنبية للعلم معظم هذه الكتب عندي وبعضها ليس عندي فجزاك الله خيرا وكل عام أنتم بخير
  8. بالفعل أخي ابن سينا هذه الخاصية تسمى auto preview المعاينة التلقائية ويمكن تفعيلها أو إلغائها من خصائص الإكسل excel options
  9. كثيرا ما نحتاج لتلوين الصفوف لتسهيل متابعة معلومات الصف خاصة في حالة كثرة الأعمدة واليوم أحضرت لكم نصيحة سريعة تستعمل في هذا الغرض تلوين الصفوف بالتتابع صف بخلفية بيضاء وصف بخلفية رمادي لعمل ذلك اتبع الآتي حدد جميع خلايا الشيت من التبويب home الصفحة الرئيسية اضغط على conditional formating التنسيق الشرطي كما بالصورة ثم اختر new role قاعدة جديد كما بالصورة ستظهر نافذة القاعدة الجديدة اختر الاختيار الأخير ثم اكتب المعادلة الآتية =iseven(row()) وتعني أن يكون الصف عددا زوجيا مكان المعادلة التي في الصورة ثم اضغط على تنسيق format تظهر لك النافذة التالية اختر منها التبويب fill تعبئة واختر اللون المناسب ثم اضغط موافق كما بالصورة السابقة ثم اضغط موافق على النافذة الأولى ستجد الشيت بهذا المظهر الذي لا تتعب العين في متابعة صفوفه تحياتي للجميع
  10. رائع أخي خالد خلدك الله في جناته
  11. أخي خالد أنت لا تحتاج لإذن مني بل أنا آمل أن تعجبك هذه الصورة وتنال رضاك حتى يعم الخير
  12. يوجد مثل شعبي مصري يقول : إن فعلت خير ما تشورش بمعنى إذا أردت أن تفعل شيئا كله خير فلا تطلب المشورة من أحد وتوكل على الله فهنيئا لك ولكل من رأى الصورة وفهم معناها وعمل به شرف لي أخي أحمد مجرد مرورك على ردودي
  13. يبدو أن الملف فقد جزء من خصائصه بعد حفظه بصيغة يدعمها أوفيس 2003 لأني فتحت الملف ولم أجد قائمة بالأصناف تختار منها فهذا رابط لنفس الملف بصيغة يدعمها أوفيس 2007 و 2010 هنـــــأ
  14. اخي الكريم في الملف المرفق وضعت لك قائمة بقائمة الأصناف في الشيت الثانية والسعر يتم احتسابه بناء على سعر الوحدة في الورقة الأولى بناء على الصنف المختار ثم تضغط على زر ترحيل ليقوم بخصم الكميات المباعة من الكميات المخزنة طبعا هذا الزر لا يتم الضغط عليه إلا في آخر عمليات البيع أتمنى أن يكون هو المطلوب هنــــا
  15. شكرا لكل الإخوة على المرور وأتمنى من الجميع المساهمة بما يعرف من تريكات tricks (نصائح سريعة) لينفع بها إخوانه لا يكفي أن نأخذ بلا عطاء وفقنا الله وإياكم لما فيه الخير
  16. مشكور أخي hben دالة رائعة فعلا
  17. أسعدني مرورك على ردودي أخي خالد شرف لي أن أرى منك هذا الاهتمام
  18. أخي الكريم بارك الله فيك خصائص الأداة لا تختلف بين إصدارات الأوفيس مطلقا ربما يتغير الشكل فقط وبالنسبة للطلب الثاني الخاص بكود إنشاء القائمة فهذا هو مع مراعاة تغيير المعاملات المطلوبة 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 وهي على الترتيب المدى الذي تملأ به القائمة الخلية المرتبطة عدد الصفوف في القائمة عرضها بطريقة ثلاثية الأبعاد عنوان القائمة لا تنسوني من صالح دعائكم في هذه الأيام المباركة
  19. شكرا لمرورك الكريم كل عام أنتم بخير
  20. تفضل أخي هذه الدالة تقوم بنفس الغرض إن شاء الله مبنية على دالة 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 كل عام أنتم بخير
  21. يمكنك الوصول لأدوات التحكم وإضافتها في ورقة العمل من خلال تبويب المطور developer ثم من الأمر إضافة insert كما بالصورة هذا بالنسبة لأوفيس 2007 أما بالنسبة لأوفيس 2003 فمن خلال إظهار شريط الأدوات نماذج forms ولكل قائمة تحدد الخلية المرتبطة وكذلك مصدر القائمة وعدد الصفوف في القائمة من خلال الضغط بزر الفارة الأيمن واختيار خصائص
  22. للأسف أخي خالد الغالبية العظمى لمصادري لتعليم لغات البرمجة انجليزية لأنهم تفوقوا ولكن كلي أمل في بناء جيل عربي يبدأ من حيث انتهوا أشكرك لمرورك الكريم وحسن حديثك
  23. يبدو أن عملية الحساب calculation تم تغييرها في خيارات الإكسل excel options إلى يدويا manual ويجب عودتها إل تلقائي automatic
  24. هل تعلم أن نسخ المعادلات في إكسل 2003 كان بهذا الكود Selection.AutoFill Destination:=Range("c4:c20"), Type:=xlFillDefault وكان يستهلك من ذاكرة الجهاز قدرا كبيرا أما في إكسل 2007 جرب هذا الكود Selection.FillDown وذلك طبعا بعد تحديد الخلية في الحالتين Range("c4:c20").Select ويمكنك ايضا استعمال fillright fillleft fillup تحياتي للجميع
×
×
  • اضف...

Important Information