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

الزباري

الخبراء
  • Posts

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

  • تاريخ اخر زياره

  • Days Won

    11

كل منشورات العضو الزباري

  1. كيف نستخدم الدالة لكتابة أرقام متسلسلة من 1 إلى 10 على أن تبدأ في ال الخلية A5؟ الإجابة: i = 1 Do Until i > 10 Cells(i + 4, 1) = i i = i + 1 Loop شاهدالمرفق التالي: do_until_02.rar
  2. 2- الدالة Do until loop الغرض من ذلك هو تكرار مجموعة معينة من البيانات إلى أن يتم يتحقق الشرط فعندها يتم إنهاء الحلقة التكرارية. فمثلاً لو طُلب منك بأن تكتب أرقام متسلسلة في العمود الأول وتضع شرطاً بأن يتوقف عندما يكون الرقم يساوي 11، فعندها سيكون الكود كالتالي : i = 1 Do Until i = 11 Cells(i, 1) = i i = i + 1 Loop لاحظ بأنه عندما تكون قيمة i = 11 فإنه يتوقف عن العمل ولا يكتب قيمتها.. شاهد المرفق لتعرف آلية العمل do_until_01.rar طيب .. ماذا يفرق لدينا لو استخدمنا i>11 ؟!!! i = 1 Do Until i > 11 Cells(i, 1) = i i = i + 1 Loop فهل ستكون النتيجة مختلفة؟!!!
  3. تذكير بالسؤال: كيف أكرر الكود السابق على ثلاث شيتات؟ وللإجابة على ذلك نجيب على السؤال التالي: كيف يتم تعريف اسم الشيت (sheet) باستخدام الكود؟ الإجابة: worksheets(1) و worksheet(2) و worksheet(3) وعليه يتم عمل حلقة تكراربة من 1 إلى 3 للشيت كالتالي: Dim i As Integer Dim j As Integer Dim c As Integer For c = 1 To 3 For j = 1 To 2 For i = 1 To 100 Worksheets(c).Cells(i, j).Value = i Next i Next j Next c طبق الكود في المرفق ثم افتح sheet2 و sheet3 الحلقة التكرارية3.rar وإلى هنا انتهت حلقتنا الأولى لهذا اليوم
  4. ببساطة نضيف حلقة تكرارية أخرى على الدرس السابق لتصبح كالتالي Dim i As Integer Dim j As Integer For j = 1 To 2 For i = 1 To 100 Cells(i, j).Value = i Next i Next j لاحظ أننا عرفنا الحلقة التكرارية j والتي تساوي 2 وهي عدد الأعمدة المطلوب تطبيق الكود عليها ، ولا تنسى بأن تغلق الحلقة التكرارية ب Next ، جرب أن تغير عدد الأعمدة في المرفق التالي. الحلقة التكرارية2.rar سؤالنا التالي: كيف أكرر الكود السابق على ثلاث شيتات؟
  5. امم.. يعني لو كنا عاوزين نكتب في مائة عمود فراح نكرر الكود مائة مرة .. يالطيف بس بداية جيدة
  6. اعذرني يا أخيتوكل لم أنتبه إلى ملفك نرجع إلى سؤالنا.. لو أردنا أن نطبق الكود ليطبع الأرقام على عمودين متجاورين فماذا نفعل؟!
  7. شكراً لك يا أبو حنف سأقوم بإعداد شرح واف عن كيفية عمل الرسومات البيانية في الملف.. تابعونا خلال يومين تحياتي للجميع
  8. بدأ ب بسم الله 1- الدالة For loop: الغرض من ذلك هو تكرار مجموعة معينة من البيانات لعدد معين من المرات لو طُلب منك أن تكتب الأرقام من 1 إلى 5 في العمود الأول في الإكسل لكتبت التالي: Cells(1, 1).Value = 1 Cells(2, 1).Value = 2 Cells(3, 1).Value = 3 Cells(4, 1).Value = 4 Cells(5, 1).Value = 5 لكن لو طُلب منك أن تكتب الأرقام من 1 إلى 100 فستحتاج إلى 100 سطر لكتابة الكود!! وهذا يعتبر أمر شاق للمبرمج وهنا أتت هذه الدالة لتختصر الوقت والجهد، وسيكون الكود كالتالي: Dim i As Integer For i = 1 To 100 Cells(i, 1).Value = i Next i جميل جداً.. طيب لو أردنا أن نطبق الكود ليطبع الأرقام على عمودين متجاورين فماذا نفعل؟!
  9. السلام عليكم ورحمة الله وبركاته، أحببت في هذه الصفحة أن أعرض لكم الفرق بين وظيفة كل من The For Loop The Do Until Loop The Do While Loop وذلك عن طريق طرح بعض الأمثلة العملية في ذلك، وقد نستعين من بعض الخبراء لإثراء الموضوع لجعله أكثر حيوية.. تابعونا إن كان الموضوع مجدي.
  10. في الخدمة دائماً لأعضاء المنتدى، أما موضوع المقارنة فبالإمكان أن تحتوي الرسمة على أكثر من مخطط بياني دفعة واحدة
  11. تفضل يا أخي كل ما عليك هو أن تختار التصنيف وسيتم عمل رسم بياني تلقائي الرسم_البياني.rar
  12. صباح الخير للجميع مرفق للمسارات التلقائية للملفات في حالة ربطها في الإكسيل.. وحتى لا تفقدها في حالة نقلها من جهاز إلى آخر specific path.rar
  13. تفضل الملف بعد التعديل وإضافة التاريخ clock03.rar وبالإمكان تنسيقها مثل الساعة
  14. بارك الله فيكم جميعا.. ولولا الله ثم جهودكم الغالية في الإرتقاء بهذا المنتدى لما كنا بهذا المستوى من التفكير.. ولا زلنا نستفيد من خبراتكم وجزاكم الله خيرا.
  15. الحمدلله وبعد جهد جهيد وجدت ضالتي في هذه الساعة، وبالرغم من توفر بعض الساعات النادرة في ملفات الإكسيل، إلا أنها تعيبها بعض الأمور منها: 1- عمل الساعة في الخلفية مما يعطل تنفيذ بعض الأوامر وتجميد ورقة العمل. 2- رتابة التصميم. 3- عدم توافقها لبعض إصدارات الإكسيل والوندوز. ولذلك تم تفادي هذه المشاكل مع إمكانية التصميم المرن للساعة حيث أننا فصلنا كل رقم من الساعة (digit) ليعمل بشكل منفصل ومترابط مع الأجزاء الأخرى، وكل من يشاهد التصميم يتوق بأنه قد تم برمجته بلغات الويب المتقدمة كالجافا.. نتمنى أن ينال إعجابكم ولا تنسونا من الدعاء clock03.rar
×
×
  • اضف...

Important Information