نجوم المشاركات

السلام عليكم أخي ابو زاهر استعمل هذا الكود: On Error Resume Next Dim x As String x = Me.Rajmsanf.Text Me.Rajmsanf = UCase(x) Me.Rajmsanf.SelStart = Len(x) Me.Rajmsanf.SelLength = 0 و هذا المرفق بعد التعديل حروف كبيره .rar

السلام عليكم ورحمة الله تم تعديل كل معادلات الشيتات الأربعة في الخلية V1 باستبدال المعادلة COUNTA(B:B)-1= بالممعادلة (MATCH(9^9;A:A;1= التي تحدد آخر صف في كل شيت اعتمادا على العمود A ثم تم أيض حذف 6+ و 7+ الموجودة في أكواد الطباعة الأربعة في تحديد النطاقات Rng1 و Rng2 في هذه الأكواد لتحديد نطاقات التصفية (وبالتالي نواحي الطباعة)... والشرح الذي طلبته أوافيك به الآن: - بالنسبة للمعادلة الثانية (المستبدلة بالدالة MATCH) فقد شرحتها بالأعلى (تحدد آخر صف في العمود A) - أم المعادلة الأولى (مثلا من الكود Print_1) التي كانت: Set Rng1 = Range("A1").Resize(Range("V1") + 7, 16) والتي أصبحت : Set Rng1 = Range("A1").Resize(Range("V1"), 16) هي لتحديد (لتعريف) النطاق Rng1 الذي يبدأ من الصف 1 والعمود A (الخلية A1) ويمتد إلى رقم الصف الذي تحدده معادلة الخلية V1 من الشيت وإلى العمود رقم 16 (أي العمود P)... وهذا النطاق هو نطاق "ناحية الطباعة" في الكود... وليس لي شرح آخر.... أخوكم بن علية اعمال السنة 2018 -والأنشطة.rar

بسم الله الرحمان الرحيم والصلاة والسلام علي سيدنا محمد اليوم سوف أقدم لكم برنامج مراقبة المبيعات العالمية هو خاص با الدول الأجنبية مثل المعاملات كا البترول و احصائيات نسبية في زيادة المردود منها الوارد والصادر حسب كل بلد أي كل بلد لديه نتائج المردودية المتحصل عليها .... أي استفسار حول هذا البرنامج فأنا تحت الخدمة ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم @ كل الحقوق محفوظة 2017 @ برنامج مراقبة المبيعات العالمية 20172018.rar

السلام عليكم لقد اضفت بعض الخصائص و التحسينات على شريط الطباعة و أحببت ان أطلعكم عليها و من أهمها النقاط التالية: 1- التصدير إلى الوورد و pdf 2- تشغيل الشريط حتى في وضعية إخفاء شاشة الأكسس و عمل أزرار التنقل بكل مرونة. و هذا مثال عليه أتمنى تجربته و إطلاعنا على النتائج. شريط طباعة.rar

و فيك بارك الله أخي تستاهل كثير

بارك الله قيك استاذنا @صالح حمادي وزادك الله علما الله يسعدك نعم هو المطلوب شاكرين كثير اليك تحياتي

بعد تحديث الحقل المطلوب اكتب هذا الكود مثلا للحقل NaEMP Me.NaEMP = UCase(Me.NaEMP)

اخي الكريم لاظهار الفورم على شكل صورة بدون اي علامة تكبير او تصغير او اغلاق قم بتغيير خاصية نمط الحدود للفورم الى "بلا" واضبط خاصية نوع الرسم على "مضمن" كما هو موضح في الصورة التالية تحياتي

هل تقصدين ادخال البيانات في مربع النص اما عربي او انجليزي؟ او تقصدين عمل الواجهات للبرنامج باللغتين العربية والانجليزية؟ في الحالة الاولى يمكنك عمل ذلك من خلال خصائص مربع النص كما في الصورة التالية اما الحالة الثانية فتحتاج الى عملية برمجية بسيطة ايهما تقصدين؟

تمام .. الناتج حقق المطلوب .. شكراً الآن اكتشفت انك أضفت التعليمة DoCmd.CancelEvent قبل SendKeys "{ESC}"

تفضل db1.zip

السلام عليكم أولا أرجو أن تغفروا لي بعدي عنكم ============= جائني اليوم علي الخاص سؤال من أحد الأعضاء وبعد أن جاوبته ، أحببت أن أعرضه علي أحبابي وأصدقائي لتعم الفائدة ويشارك من يحب في الموضوع =================== السؤال كيف اعمل توزيع عشوائي لاسئلة اختياري في ملف اكسل الملف به حوالي 20 سؤال انا عايز اطبع العشرين سؤال دول 30 مرة او اكثر او اقل بس يكون توزيع الاسئلة فيهم مختلف وبرده يكون ترتيب الاربع خيارات بالسؤال يختلف ملحوظة : الملف المرفق به 20 سؤال على كل سؤال 4 خيارات يعني لو ممكن تعملي ايكونة بالملف اقدر من خلال الضغط عليها مثلا اغير ترتيب الاسئلة وايضا ترتيب خيارات كل سؤال يا ريت لو فيه امكانية تخلى المجال مفتوح لعدد الاسئلة بملف الاكسل يعني ما يكون مقتصر على 20 سؤال بس =========================== الإجابة أخي الكريم تفضل الملف به ماطلبت بالضغط علي الزر يعمل الماكرو الذي يعمل الخطوات التالية أولا لعمل ترتيب عشوائي للأسئلة 1- يضيف العمود F الجديد 2- يضع أرقام عشوائية في العمود F الجديد 3- يرتب الكل حسب العمود F الجديد بمحتوياته العشوائية 4- يحذف العمود F الجديد بمحتوياته ثانيا لعمل ترتيب عشوائي للأجوبة 5- يعمل علي الصفوف من أول الأسئلة (الصف رقم 4) إلي آخر صف به أسئلة 6- يأخذ نسخة من الأجوبة الأربعة في صف مؤقت أسفل آخر سؤال بتسعة أسطر 7- يضع أرقام عشوائية في الصف الذي يعلوه 8- يرتب الأجوبة الأربعة حسب الصف الذي يعلوه بمحتوياته العشوائية 9- يأخذ النسخة من الأجوبة الأربعة بعد ترتيبها العشوائي يعيدها لصفها 10 - وهكذا حتي النهاية ثم يمسح محتويات الصفين المؤقتين ========================== ملحوظة: الملف المرفق به ورقتين الورقة الأولي بها الأسئلة والأجوبة كما وردت من السائل والورقة الثانية بها الأسئلة والأجوبة بعد تطبيق الكود عليها --------------------------------------------------- معذرة للإطالة وأرجو أن يكون الملف والكود مفيدين %e2%80%8f%e2%80%8fاسئلة احياء 2ث ف1.rar

بعد امر الحذف استعمل الامر Me.requery او refresh

اخي ابو زاهر حسب فهمي لسؤالك هو انك لاتريد ظهور رسالة خطأ اذا ماكان الحقل فارغ حيث ان مرفقك كان يظهر رسالة خطأ في حال كان الحقل الاول فارغ .. ارجو منك التوضيح اكثر

استاذي الفاضل ابو زاهر السلام عليكم ورحمة الله وبركاته في الحقيقة كلمة شكرا لا تفي بحقك لكني لا املك سوى هذا الدعاء بظهر الغيب لك استاذي الفاضل اللهم ربي يحميك من كل سوء سائلا الله جل وعلا ان يمن عليك بالصحة والعافية والستر في الدنيا والاخرة يارب هذا هو المطلوب

************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم @ كل الحقوق محفوظة 2017 @

[mover]لليسار[/mover] شكرا وبارك الله فيكم

السلام عليكم مرة أخرى نعم أخي الغالي فكيت الضغط ولم يفلح المشكل في الحاسوب لديك أعد النظر من فظلك. ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي بارك الله فيك أخي الغالي صـدّيـق ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم

السّلام عليكم و رحمة الله و بركاته مرحبًا أخي الغالي " altarafalzahabi" الملف حملته ولكن مش شغال وشكرا ... سبحان الله و بحمده .. سبحان الله العظيم

شكرا لكم أخواني الأحباء ووفقكم الله في مشواركم

و أنتي كذالك بنيتي

بسم الله الرحمان الرحيم والصلاة والسلام على سيدنا محمد االيوم لقد وردت ردود عبر الصفحة الرسمية لمنتدى أوفيسنا حول ارفاقي لبعض ملفات وهي تالفة أي مفيرسة فكرت فيه قليلا فقلت سوف ارفق ملفات اكسل فقط لان الملفات التي كنت ارفقها ملف تنفيذي أي بااللغة الفرنسية exe وصراحة قلت في السابق أنه لا يوجد لدي فيروسات عندي بالرغم من ردود اساتذتنا الكرام وأعضاء فريق المنتدى لهذا تطرقت الى ملف جميل وبسيط حول المؤسسة في الميزانية المصدر مفتوح ولكم مني فائق الشكر والتقدير وحفظكم الله ........................................ من أخوكـــــــــــــــــــــــــــــــــــــــم مناد سفيـــــــــــــــــــــــــــــــــان المحاسية المالية.rar

هذه هدية بسيطة مني والى كل أحبابي وخاصة الأستاذ المحترم مجدى يونس حتى لا أبخل عليك باقي الملفات سأرفقها عندما أنتهي من برمجتها كليا . وشكراا. calendrier-2018.zip

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

مشاء الله عليــــــــــــــــــــــــــــــــــــــــك شكــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

بسم الله الرحمان الرحيم والصلاة والسلام على سيدنا محمد اليوم هناك بعض الفواتير وكما أحببت أن أقدمها لكم وأن تنال اعجابكم ورضاكم انشاء الله.......................... وأي استفسار فأنا تحت الخدمة ملاحظة : الشروحات تجدونها في المرفق ولكم الجزيل الشكرا أحبكـــــــــــــــــــــــــــــــــــــــــــم في الله أخوكـــــــــــــــــــــــــــــــــــــــــــــم منــــــــــــــــــــــــــــــــاد سفيــــــــــــــــــــــــــــــــــان مناد سفيان.rar

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

شكرا لك ياأستاذ محمد على الملاحظة

السلام عليكم ورحمة الله وبركاته ملاحظة : حمل المرفق واعطني رايك بدون شرح لانه لا يحتاج الى الشرح وتقبلو مني فائق الاحترام والتقدير . شكر Base.rar

كل الشكر والتقدير لأخى وأستاذى / ناصر سعيد* على المساعدة فى نشر البرنامج المشكل قي البرنامج انو مغلق ولالأستطيع الدخول الى تعلم كيفية عمل هذا البرنامج با الأكواد وشكرا بارك الله فيك وجزاك الله خيرا

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

بارك الله فيك