أ / محمد صالح

شكرا للأخ عبد الله على هذا اللغز وإضافة للموضوع في ألغاز أخرى حتى يكون الموضوع خاص بالألغاز الحسابية وكيفية حلها في الإكسل ............ ذهب شاب لخطبة فتاة فأخبره أبوها أن مهرها بسيط فقال الشاب ما هذا المهر؟ فقال الرجل: أن تدفع لها في أول يوم من الشهر قرش واحد وفي اليوم التالي تدفع ضعف ما دفعته في اليوم السابق لمدة 30 يوم فرد الشاب متعجلاً : هذا مهر بسيط جداً ولكنه عند حسابه وجده كثيييييييييييير جدا جدا جداً .............. فكم قيمة مهر الفتاة بالجنيه؟؟ ملحوظة: الجنيه المصري = 100 قرش أتمنى وضع المعادلة أو الطريقة التي وصلت بها للحل

أخي الكريم استعمل هذه الدالة Function reverse_string(str As String) As String Dim text As String, n as integer text = "" For n = 0 To Len(str) - 1 text = text & Mid(str, (Len(str) - n), 1) Next n reverse_string = text End Function وطريقة استدعائها كالتالي reverse_string("حلاص دمحم")

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته مواصلة لما بدأه أخواي عبد الله المجرب وأبو عبد الله هنا تلخيص لكل ما يخص الماكرو من حيث التسجيل والتعامل بالحذف أو التعديل أو الاستدعاء ................ يمكن تسجيل الماكرو من تبويب المطور developer أو من شريط الحالة status bar * - لإطهار تبويب المطور في أوفيس 2007: اضغط على زر الأوفيس ثم خيارات إكسل excel options ثم من التبويب شائع popular اختر "إظهر تبويب المطور في الشريط" Show Developer tab in the Ribbon ثم موافق ok * - لإطهار تبويب المطور في أوفيس 2010: اضغط على تبويب ملف file tab ثم خيارات options ثم تخصيص الشريط customize ribbon ثم اختيار المطور developer من القائمة اليمنى ثم موافق ok * - لإظهر زر تسجيل الماكرو في شريط الحالة status bar إذا لم يكن موجوداً اضغط بزر الفارة الأيمن على شريط الحالة ثم اختر تسجيل ماكرو macro recording === بعد الضغط على تسجيل ماكرو تظهر شاشة لتسمية الماكرو واختيار مكان تخزين الماكرو وإضافة اختصار من لوحة المفاتيح له وكتابة وصف نتعامل معها كما نريد ثم نضغط على موافق ok === * - ولإيقاف تسجيل الماكرو يمكن استعمال شريط المطور أو شريط الحالة === للتعامل مع الماكرو بالتعديل أو الحذف يمكن الوصول لها من خلال الضغط على alt+f11 للوصول لنافذة محرر الفيجوال بيسك أو الضغط على زر الماكروات macros في شريط المطور أو الشغط على alt+f8 من لوحة المفاتيح ثم نحدد الماكرو المراد تعديله أو حذفه ثم نضغط على زر تعديل edit أو حذف delete * - ويمكن أيضا حذف الماكرو من شاشة محرر الفيجوال بيسك وذلك بتحديد نص الماكرو بداية من sub إلى end sub ثم الضغط على delete من لوحة المفاتيح (كحذف أي نص عادي) --- * - لوضع اختصار أو وصف أو تغيير مكان تخزين ماكرو نضغط على خيارات options في نافذة الماكروات بعد تحديد الماكرو المطلوب. == لتشغيل الماكرو: * - يمكنك تشغيل الماكرو من خلال الضغط على الماكروات macros في شريط المطور developer ثم اختيار الماكرو المطلوب ثم الضغط على تشغيل run أو بالضغط على alt+f8 لظهور نفس النافذة واختيار الماكرو المطلوب ثم الضغط على run * - أو يمكنك تشغيل الماكرو من داخل شاشة محرر الفيجوال بيسك بالوقوف بالمؤشر داخل الماكرو المطلوب ثم الضغط على f5 من لوحة المفاتيح أو من قائمة run اختر run sub/user form * - أو يمكنك ربط الماكرو بزر أو بصورة أو بشكل تلقائي وذلك من خلال الضغط بزر الفارة الأيمن على الأداة المطلوب ربطها بماكرو ثم اختيار "تعيين ماكرو" assign macro تظهر نافذة يمكنك اختيار الماكرو المطلوب ربطه ثم موافق ok أو تسجيل ماكرو جديد بالضغط على "تسجيل" record أو كتابة كود ماكرو جديد بالضغط على "جديد" new * - يمكنك إضافة الماكرو إلى شريط الوصول السريع (الشريط الصغير على يمين زر أوفيس أو تبويب ملف) وذلك من حلال: الضغط على السهم في نهاية شريط الوصول السريع ثم اختيار "أوامر أكثر" more commands أو الضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص شريط الوصول السريع" customize quick access tool bar تظهر نافذة الخيارات على تبويب شريط الوصول السريع نختار من القائمة العلوية اليسرى "اختيار الأوامر من" choose commands from ماكروات macros تظهر جميع الماكروات افل القائمة اختر منها ما تشاء ثم اضغط على زر إضافة add ولتغيير اسم ظهور الماكرو وايقونته في شريط الوصول الريع نحدد الماكرو الذي تمت إضافته في الجزء الأيسر من النافذة ثم الضغط على زر تعديل modify * - لإضافة الماكرو إلى تبويب جديد في الشريط (خاص بأوفيس 2010): نضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص الشريط" customize the ribbon ثم نختار من القائمة اليسرى العلوية الماكروات macros ثم ننشئ تبويباً جديداً من خلال الضغط على زر "تبويب جديد" new tab اسفل الجزء الأيمن من النافذة ثم تحديد الماكرو المطلوب من اليسار والضغط على زر إضافة add وبنفس الطريقة يمكنك تعديل اسم التبويب أوالماكرو وأيقونته ======== وفي الأخير لكم مني كل التمنيات بالتوفيق ولا ينقصني سوى دعاؤكم والسلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ......... وجدت أثناء تصفحي للإنترنت هذه الميزة فأحببت مشاركة إخواني فيها طريقة التشغيل 1- اذهب الى 2- اضغد على ctrl+shift+j بمتصفح الكروم او ctrl+shift+k بالفيرفوكس. 3- اضغط على console والصق مايلي document.cookie='VISITOR_INFO1_LIVE=ST1Ti53r4fU'; ثم اضغط enter وانتظر حتى ينهي المتصفح بعض العمليات 4- اغلق نافذة التطوير وأعد تحميل الصفحة او اضغط F5. ومبروك عليك الشكل الجديد أتمنى لكم التوفيق والإستفادة

بالنسبة للنماذج وكيفية إنشائها سيتم بإذن الله تناولها في دورة vba يمكنك متابعتها على هذا الرابط http://www.officena.net/ib/index.php?showtopic=39323

أخي الكريم الأنيس أولا : أدعوك لاستعمال أحدث نسخة من الأوفيس 2010 لأن بها من المميزات الكثير ولا تقل (اللي نعرفه أحسن من اللي منعرفوش) ثانياً : لقراءة ملفات أوفيس 2007 وما فوقها على أوفيس 2003 وما قبله يجب تثبيت برنامج وهذا رابطه http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=3 اضغط على كلمة download في الصفحة باللون الأحمر على يمين الصفحة سيتم تحميل ملف اسمه FileFormatConverters.exe بعد التحميل قم بتثبيت هذا الملف ستجد كل شيء على ما يرام

سؤال هذه الحلقة من دورة vba للمشتركين في الدورة عرفنا في الشرح كيف يتم ربط تنفيذ الماكرو بمفتاح اختصار عند تسجيل الماكرو والسؤال هو: كيف يتم تعيين اختصار لماكرو بعد تسجيله؟ ................ بإذن الله سيتم احتساب نقاط لمن يجيب أولاً ولمن يقوم بإرفاق الملفات المطلوبة منه كتقييم لأداء المشتركين في الدورة

بارك الله لك أخي خبور خير جعل الله الخير حيث كنت يكتمل العمل الرائع ب تفقيط الكسر ضمن الدالة وعدم قصور الكسر على رقمين فقط بل تظل مفتوحة حتى لو إلى 18 رقم فهلا تفضلت على إخوانك بها تقبل مروري وتحياتي على هذا الكود الرائع حقاً

كما يمكنك استعمال هذا البرنامج youtubedownloader

1 - الإجراء الخاص private sub يتم تنفيذه داخل الوحدة النمطية module الذي يوجد به فقط جرب أن تقوم بكتابة sub في موديول وليكن مثلا Private Sub mas() MsgBox "ok" End Sub ثم انشئ موديول جديد واكتب به هذا الإجراء Sub mm() Call mas End Sub لن يتم تنفيذ الإجراء إلا إذا حذفت كلمة private أو كتبت بدلا عنها public وتعني عام 2 - تعني Option Explicit استخدام المتغيرات بصورة واضحة تماماً بمعنى أنه عند كتابتها في أول الموديول يجب تعريف (الإعلان عن) كل المتغيرات قبل استخدامها حتى وإن كان متغيراً في دوران ب for و next وفي حالة عدم كتابتها يمكنك استخدام المتغيرات بدون الإعلان عنها ولا عن نوع هذه المتغيرات جرب كتابتها في أعلى الموديول ثم اكتب الإجراء التالي Sub mas() n="mas" MsgBox "welcome " & n End Sub ثم شغل الإجراء ماذا تلاحظ؟؟!! جرب أن تعلن عن المتغير n كأول سطر في الإجراء dim n as string ليصبح الكود كالتالي Sub mas() dim n as string n="mas" MsgBox "welcome " & n End Sub ثم شغل مرة ثانية ستجد الأمور على ما يرام 3 - يتم اللجوء لتعريف المتغيرات قبل كتابة الإجراء إذا كان هذا المتغير عاماً تحتاجه في أكثر من إجراء فمثلا متغير عدد الطلاب تحتاجه في إجراء الناجحين وإجراء الطباعة و ... و..... و ...... في هذه الحالة ضعه قبل أول إجراء والله ولي التوفيق

مرحبا بك مرة أخرى أخي خبور خير لا حرمنا الله منك وجعل الله اليمن بيديكم أفضل مما كان عليه هدية مقبولة وحبذا لو تم تفقيط الكسر أيضا

بارك الله لك أخي عبد الله وأود أن أضيف بعض الخلفية النظرية التي ربما يحتاجها الأخ المشترك في الدورة ما هي vba ؟ هي لغة برمجة غير قائمة بذاتها (أي يتم تضمينها داخل أي تطبيق) ولا تستطيع بناء برنامج متكامل وحدها (الذي يقوم بهذا هي لغة vb فيجوال بيسك أو vb.net الإصدار الأحدث من vb ) متى نحتاج لاستخدامها؟ * عند الرغبة في اختزال خطوات كثيرة يجب تنفيذها فمثلا إذا أردنا إضافة نص لخلية وتنسيقه بأكثر من طريقة مثل لون الخط وحجم الخط والإطار وما إلى ذلك * وكذلك نحتاجها عند التكرار وهو تكرار تنفيذ مجموعة من الأوامر بصورة متتالية أو مشروطة * نحتاجها أيضا في التعامل مع المستخدم لجمع بيانات منه في صورة نموذج ومن ثم التعامل مع هذه البيانات وغيرها الكثير من الاستخدامات ما الفرق بين vba و vb ؟ عرفنا سابقاً فيجوال بيسك التطبيقات بأنها لغة برمجة تحتاج لتطبيق آخر يتم تضمينها داخله ولكنها بها كل مميزات الفيجوال بيسك وكل الكائنات التي تستخدم داخل الفيجوال بيسك يمكن استخدامها في vba غير أنها ينقصها وهذا ما تزيد به لغة vb عنها وهو القدرة على بناء برامج تنفيذية قائمة بذاتها وتتفضل vba عن vb بأن لها من القدرة على التعامل مع التطبيق المضمنة داخله بصورة أكثر سهولة من vb فمثلا للتعامل مع المصنف النشط نستعمل الكائن activeworkbook بينما إذا أردنا ذلك من خلال vb نحتاج لكثير من الأكواد ما علاقة vba بالإصدار الأحدث من vb وهو vb.net ؟ بنفس الطريقة يمكن للـ vba استعمال كل مميزات vb.net بشرط وجود ملفات تشغيل vb.net على جهاز المستخدم ما الماكرو؟ الماكرو عبارة عن مجموعة من السطور يبدأ بكلمة sub ثم اسم الماكرو وتنتهي بكلمة end sub وبينهما جميع الأكواد التي يتم تسجيلها أو كتابتها ما أفضل الطرق للتعامل مع الماكرو؟ * يوجد طريقة تسجيل الماكرو وهي الأسهل والتي ينصح بها في البداية * ويوجد طريقة كتابة الأكواد مباشرة بدون الحاجة إلى استعمال مسجل الماكرو وهي للمستوى المتقدم *** بينما الطريقة الفاعلة وهي التي يستخدمها معظم المبرمجين هي (كما علمنا ديننا : خير الأمور الوسط) الجمع بين الطريقتين بمعنى استعمال الماكرو ثم تعديل الكود سواء بإضافة سطور أو حذف سطور أو تعديلها ويجدر الإشارة هنا إلى أهمية التخطيط المسبق لعملية تسجيل الماكرو فيجب أن تكون محددا لكل ما تريد تنفيذه بالماكرو وإلا سيتم كتابة خطوات أنت لست في حاجة إليها وإنما تم تنفيذها أثناء تخطيطك أو ترتيبك لما تريد أن تقوم به وقديما علمونا : التخطيط الجيد سبيل النجاح ..... حتى وإن أخذ وقتا طويلاً فالوقت الذي يستهلك في التخطيط والإعداد لا يتساوى من الوقت المستهلك لتعديل الأخطاء الناتجة عن عدم التخطيط بل ربما يتم إعادة تنفيذ ما لم يتم التخطيط له أكثر من مرة حتى نصل للصواب وأخيرا أقول الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله

إضافة إلى حلول الإخوة اكتب رقم 1 في الخلية الأولى اسحب مقبض التعبئة fill handle ولكن بالزر الأيمن للفارة ستظهر في نهاية السحب قائمة اختر منها تعبئة سلسلة fill series

بارك الله لك أخي منتصر فكرة رائعة وتنفيذ أروع

يمكنك استعمال تحديث الويندوز لإكمال الملفات الناقصة أو تثبيت نسخة أحدث من نسختك لأن هذا يعني نقص في ملفات الويندوز لديك

أخي الكريم ملفك ليس به أي شيء غير أسماء وتواريخ ميلاد هل تريد عند فتح النموذج يتحقق من كون تاريخ الميلاد في السجل الحالي يساوي تاريخ اليوم؟؟ أم أنك تريد أن يعرض النموذج من هم من مواليد اليوم؟؟

أخي الكريم lording جرب أن تجعل خاصية auto resize (تحجيم تلقائي) إلى no (لا) واجعل خاصية scroll bars (شريط التمرير ) إلى neither (لا هذا ولا ذاك)

أقترح نقل الموضوع في المنتدى المفتوح لتعم الفائدة للجميع

بالنسبة للأخ lordring يفضل إرفاق الملف الذي به المشكلة لتجريبه

أخي الكريم كابون يبدو أنك لم تقرأ جيداً المشاركات رقم 5 و 6 و 6 في هذا الموضوع فقد كان الحل مع مشكلة مثل مشكلتك وضع كود التحجيم قبل كود التكبير أنا فتحت النموذج الخص بك ولم أجد فيه اي مشاكل تم تحجيم النموذج حسب دقة شاشتي 1280 * 1024 ولا يوجد مشكلة سوى أنك استعملت شرائط التمرير يعني وأنت تصمم النموذج ضيقت حدود النموذج عن محتوياته هذا بالإضافة لوضع كود التحجيم قبل كود التكبير جرب وأخبرني بالنتيجة

أخي الكريم برجاء توضيح مشكلتك أكثر وإرفاق الملف الذي حدثت معه المشكلة مع توضيح دقة الشاشة التي تم تصميمه فيها

أخي الكريم ما نسخة الويندوز 7 لديك؟ هل هي 32 بت أم 64 بت؟ حتى نتمكن من معرفة الخلل وعلى العموم جرب هذه الحيلة انشئ مجلداً جديداً وسمه بأي اسم ثم أضف في نهاية الاسم ما يلي .{ED7BA470-8E54-465E-825C-99712043E01C} ستحصل بعدها على مجلد ملفاته هي جميع عناصر لوجة التحكم بالتفصيل الممل ابحث عن بريد فيه وأخبرني بالنتيجة

لماذا تحتاج لتغيير هذه الأرقام مع دقة شاشة المستخدم هذه الأرقام تخص دقة الشاشة التي تم تصميم البرنامج عليها وتم ضبط حجم النموذج عليها بحيث إذا كانت دقة شاشة المستخدم مساوية لها لا يتغير شيء أما إذا كانت دقة شاشة المستخدم غير الدقة التي تم التصميم عليها يتم تغيير حجم النموذج وكل عناصره إلى ما يتناسب مع دقة شاشة المستخدم سواء بتكبير النموذج أو تصغيره

حبذا لو كان الشرح مرتبطاً بنسخة إكسل حديثة 2007 أو 2010 وبفضل الله سأجتهد أن أكون معكم وأقترح: تنظيم الدورة في صورة دروس أومواضيع مستقلة (فصول أو أبواب) كل درس أو فصل يتم تدريسه على مدار الأسبوع (7 ايام) يوجد تكليفات وترشيحات لمن يقوم بحل التكليفات لمناصب أعلى في المنتدى وفي نهاية كل أسبوع يتقدم المشترك في الدورة بعمل من إعداده وغير مسبوق يستخدم فيه ما درسه في هذا الفصل ضم هذه المناقشات لموضوع الطريق إلى تعلم فيجوال بيسك الأوفيس بعد تغييره إلى تعلم فيجوال بيسك الإكسل http://www.officena.net/ib/index.php?showtopic=39279 بحيث لا يكون هنا غير الدورة ودروسها وواجباتها ومشاريعها وفقنا الله جميعاً لكل مما يحب ويرضى

أسعد الله ايامك أخي سعد فعلا هذا هدفي من ذلك للعلم لدي على جهازي جميع نسخ الأوفيس الأساسي فيها 2010 والباقي بورتابل أستعمله وقت الحاجة حتى أتمكن من مقارنة النسخ ***** سهّل الله حاجاتك أخي مجدي وآنسك بمن تحب وزاد مجدك ***** وفيك بارك أخي الشهابي أرجو أن ينفعنا الله بها ****** أخي جمال زادك الله حسنا وبهاءً فعلاً نحن أسرة واحدة اللهم بارك لنا في جمعنا هذا واجعلنا من المتحابين فيك آمين