أ / محمد صالح

بارك الله فيك أخي مجدي أشك في صحة الشرط الثالث لأن هذا ما توصلت إليه ......... الكتاب: التجاريب - المؤلف : ولي الدين - عدد الصفحات: 142 - الطالب: منير الكتاب: الآثار الباقية - المؤلف : رشيد أيوب - عدد الصفحات: 154 - الطالب: كامل الكتاب: أعاني الدرويش - المؤلف : أبو الريحان البيروني - عدد الصفحات: 137 - الطالب: بسام

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

أخي الكريم أبو الحسن أوفيس 2003 لا يقوم بتصدير الملفات بصيغة pdf ولعمل ذلك يمكن التحايل على ذلك بما يلي: تثبيت طابعة وهمية على الجهاز تقوم بحفظ ما تقوم بطباعته بصيغة pdf وأفضل طابعة في هذا المجال في رأيي هي pdf creator لتحميلها http://sourceforge.net/projects/pdfcreator/ واستعملها كطابعة عادية جداً ويمكنك استعمال كود الطباعة العادي معها

جنيهان

ما شاء الله الموضوع ازداد حماساً كما توقعت له بارك الله لكم جميعاً واسمحوا لي بإضافة بسيطة في موضوع المهر والمتوالية الهندسية لحل مثل هذه المتواليات وبثلاثة متغيرات هي: أول رقم في المتوالية (في حالتنا 1 ) الرقم الذي يتم الضرب فيه (في حالتنا 2 ) عدد مرات التكرار ( في حالتنا 30) تكون المعادلة كالتالي: =1*(2^30-1)/(2-1) بصورة أخرى = أول رقم في المتوالية * (الرقم المضروب فيه ^ عدد مرات التكرار - 1) / (الرقم المضروب فيه - 1) العلامة ^ تعني الأُس ويتم كتابتها ب shift+6 وجرب أن تغير طريقة اللغز بأرقام جديد وعدد مرات جديد وطبق المعادلة ستجد بإذن الله الحل صحيح ************** وأود أن أضيف إضافة بسيطة في هذا الأمر وهي أنه يمكنك عملها من خلال مقبض التعبئة fill handle بدون معادلات إلا للجمع فقط وذلك من خلال: اكتب في a1 الخلية الأولى 1 وفي a2 الخلية الثانية 2 ثم حدد الخليتين معاً ثم اسحب مقبض التعبئة بزر الفارة الأيمن إلى الصف 30 ثم اختر من القائمة "اتجاه نمو" growth trend ستجد المتوالية كاملة فقط يلزمك جمعها بـ sum ======== ولا ينقصني سوى دعاؤكم

بارك الله لك أخي عماد بالفعل المهر : 10,737,418.23 10 مليون و 737 ألف و 418 جنيه و 23 قرش كان ينقص إخواني عبد الله والأنيس ويوسف فقط تجميع هذه الأيام لأنه يدفع في أول يوم ثم يضيف عليه في ثاني يوم ولا يسترد ما دفعه سابقاً ............... وبانتظار وجهات نظر أخرى في الوصول للحل

إخواني الكرام للأسف الحل خطأ برجاء مراجعة اللغز مرة أخرى

بانتظار حلول الإخوة وطريقة حلهم وتوضيح مدى صحة أوخطأ الحلول السابقة للأخ الكريم عبد الله والأخ الكريم الأنيس

أخي الكريم جمال دغيدي النطاق الذي يتم طباعته محدود ويتم استدعاء بيانات بداخله لذا لا يمكن أن يتم احتواء جميع الصفحات في أمر طباعة واحد ولكن يتم ما قام به أخونا عبد الله وهو كالتالي: تحديث لقيمة الخلية التي هي سبب تحديث البيانات ثم إعطاء أمر لطباعة الصفحة الحالية فقط ......... وبالفعل هذا الأمر مرهق جداً للطابعة وخصوصا في حالة كثرة أعداد الصفحات التي تتم طباعتها ........ أنا شخصيا استعمل عدد معين من الصفحات وذلك بالتعديل على الكود في الأرقام الموجودة في أمر التطرار for يعني مثلا طباعة من 1 إلى 10 في مرة واحدة ومن 10 إلى 30 مثلا في مرة أخرى وهكذا

شكرا للأخ عبد الله على هذا اللغز وإضافة للموضوع في ألغاز أخرى حتى يكون الموضوع خاص بالألغاز الحسابية وكيفية حلها في الإكسل ............ ذهب شاب لخطبة فتاة فأخبره أبوها أن مهرها بسيط فقال الشاب ما هذا المهر؟ فقال الرجل: أن تدفع لها في أول يوم من الشهر قرش واحد وفي اليوم التالي تدفع ضعف ما دفعته في اليوم السابق لمدة 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

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

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

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