بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
الزباري
-
Posts
462 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
11
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو الزباري
-
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 فهل ستكون النتيجة مختلفة؟!!!
-
تذكير بالسؤال: كيف أكرر الكود السابق على ثلاث شيتات؟ وللإجابة على ذلك نجيب على السؤال التالي: كيف يتم تعريف اسم الشيت (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 وإلى هنا انتهت حلقتنا الأولى لهذا اليوم
-
ببساطة نضيف حلقة تكرارية أخرى على الدرس السابق لتصبح كالتالي 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 سؤالنا التالي: كيف أكرر الكود السابق على ثلاث شيتات؟
-
امم.. يعني لو كنا عاوزين نكتب في مائة عمود فراح نكرر الكود مائة مرة .. يالطيف بس بداية جيدة
-
اعذرني يا أخيتوكل لم أنتبه إلى ملفك نرجع إلى سؤالنا.. لو أردنا أن نطبق الكود ليطبع الأرقام على عمودين متجاورين فماذا نفعل؟!
-
الحلقة التكرارية1.rar
-
جزاك الله خيرا -
شكراً لك يا أبو حنف سأقوم بإعداد شرح واف عن كيفية عمل الرسومات البيانية في الملف.. تابعونا خلال يومين تحياتي للجميع
-
بدأ ب بسم الله 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 جميل جداً.. طيب لو أردنا أن نطبق الكود ليطبع الأرقام على عمودين متجاورين فماذا نفعل؟!
-
السلام عليكم ورحمة الله وبركاته، أحببت في هذه الصفحة أن أعرض لكم الفرق بين وظيفة كل من The For Loop The Do Until Loop The Do While Loop وذلك عن طريق طرح بعض الأمثلة العملية في ذلك، وقد نستعين من بعض الخبراء لإثراء الموضوع لجعله أكثر حيوية.. تابعونا إن كان الموضوع مجدي.
-
تفضل هذه المقالة
-
ألف شكر.. نراك في مشاركات قادمة
-
في الخدمة دائماً لأعضاء المنتدى، أما موضوع المقارنة فبالإمكان أن تحتوي الرسمة على أكثر من مخطط بياني دفعة واحدة
-
تفضل يا أخي كل ما عليك هو أن تختار التصنيف وسيتم عمل رسم بياني تلقائي الرسم_البياني.rar
-
صباح الخير للجميع مرفق للمسارات التلقائية للملفات في حالة ربطها في الإكسيل.. وحتى لا تفقدها في حالة نقلها من جهاز إلى آخر specific path.rar
-
مشاركة أخرى في نفس الموضوع
-
تفضل الملف بعد التعديل وإضافة التاريخ clock03.rar وبالإمكان تنسيقها مثل الساعة
-
عمل رائع وجزاك الله خيراً
-
بارك الله فيكم جميعا.. ولولا الله ثم جهودكم الغالية في الإرتقاء بهذا المنتدى لما كنا بهذا المستوى من التفكير.. ولا زلنا نستفيد من خبراتكم وجزاكم الله خيرا.
-
الحمدلله وبعد جهد جهيد وجدت ضالتي في هذه الساعة، وبالرغم من توفر بعض الساعات النادرة في ملفات الإكسيل، إلا أنها تعيبها بعض الأمور منها: 1- عمل الساعة في الخلفية مما يعطل تنفيذ بعض الأوامر وتجميد ورقة العمل. 2- رتابة التصميم. 3- عدم توافقها لبعض إصدارات الإكسيل والوندوز. ولذلك تم تفادي هذه المشاكل مع إمكانية التصميم المرن للساعة حيث أننا فصلنا كل رقم من الساعة (digit) ليعمل بشكل منفصل ومترابط مع الأجزاء الأخرى، وكل من يشاهد التصميم يتوق بأنه قد تم برمجته بلغات الويب المتقدمة كالجافا.. نتمنى أن ينال إعجابكم ولا تنسونا من الدعاء clock03.rar
-
خريطة مصر على الاكسل أو Egypt map on excel
الزباري replied to مختار حسين محمود's topic in منتدى الاكسيل Excel
رووووعة بمعنى الكلمة.. بارك الله فيك -
نتعلم منكم
-
كثير منا فكر بسكرتير خاص يرتب أعماله الورقية ويذكره بالتزاماته الشهرية وترتيب خطته المستقبلية، هذا برنامج يقوم بالمهمة عنك، وفي الحقيقة أنا استفدت منه كثيرا ولا زال هو المرجع لمعظم أعمالي والتزاماتي، فهو يذكره بمهامك الدورية كل سنة ، فلا داعي بأن تعيد إدخال التواريخ كل سنة، فتاريخ اليوم يتكرر كل سنة، أترككم مع البرنامج رغم بساطته. فلتر متابعة3.rar وتقبلوا تحياتي
-
توضيح للدالة.. لمعرفة عدد الأحرف أو الأرقام في الخلية فإننا نستخدم الدالة Len. إلا أن المشكلة تكمن في وجود مسافات بين الأحرف أو الأرقام، فمثلا 12 3 تحتوي على أربعة أرقام وليست ثلاثة بسبب وجود مسافة بينهم، ولذلك تم إضافة دالة Trim والتي تقوم بإلغاء المسافات بين الحروف أو الأرقام. ودمتم سالمين
-
لعل الملف التالي يخدمكم في ما طلبتموه، أما بالنسبة لإضافة وحذف عناوين فسنتركها للخبراء. كل ما عليكم هو تحديد الفلاتر في الجدول.. وتقبلوا تحياتي فلتر متابعة2.rar
