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

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

الاخوة الكرام فى هذا الصرح العظيم بناء على طلب للاخ " المارد العراقى " على هذا الرابط http://www.officena.net/ib/topic/64162-موضوع-خاص-بالردود-والاستفسارات-واسئله-اختبارات-على-شروحات-الفورم-سلسلة-علمنى-كيف-اصطاد/?do=findComment&comment=418485 قمت بعمل طلبه وحبيت يكون فى موضوع مستقل حتى تعم الفائده ويكون سهل فى الوصول اليه من خلال البحث فيما بعد الطلب كان السلام عليكم أستاذ عندي 3 (textbox) الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلادي و عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل تاريخ التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم دون الرجوع او استخدام الخلايا في الاكسل على سبيل المثال التكست الاول يساوي 22 الي هو اليوم ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000 كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه بواسطة vba فقط دون استخدام خلايا الاكسل ؟؟ مرفق ملف به ما تريد الملف الاول تحويل التاريخ من يوم وشهر وسنة تحويل التاريخ من ميلادى الى هجرى على الفورم.zip الملف الثانى تحويل التاريخ بنفس التكست تحويل التاريخ من ميلادى الى هجرى على الفورم - Copy.zip تقبلوا تحياتى

السلام عليكم ورحمة الله وبركاته . مشكلة الفرز SORT فى الاكسيل هل لاحظت فى احدى المرات بعد قيامك بعمل فرز SORT انه لايمكن التراجع او الرجوع الى الحالة الطبيعية الى ماقبل الفرز ؟ فى هذا الفيديو نتحايل على هذه المشكلة قبل الوقع فيها باستخدام عمود ... اترككم مع الفيديو.... ولاتنسونا بصالح دعاؤكم ملف التطبيق فى رابط داخل الفيديو

أساتذتي الأفاضل ، إخوتي الكرام : السلام عليكم ورحمة الله وبركاته، لدي مقترح تبادر إلى ذهني بسبب الانقطاعات المتكررة للإنترنت .ونظرا" لأننا نتابع دروسكم الهامة في مختلف الاهتمامات ضمن إطار قسم الإكسيل.يفقد العضو المتابع لها إمكانية المتابعة بشكل دقيق ..أو تحصل فجوة بين ما يعطيه اﻷستاذ الكريم اليوم وما أعطاه أثناء فترة انقطاع اﻹنترنت فلم نتابعه مثلا. ولذلك فإنني أعرض عليكم رأيي هذا فإن حصلت على استجابة فبها ونعمت وإن لم يحصل فقد طرحت رأيا. المقترح كما يلي: أن يقوم الأستاذ الكريم بكتابة الموضوع على ملف Word حيث المجال الأوسع للتنسيق ولإدراج الرسوم التوضيحية..إلخ. فإن تم الموضوع من كافة نواحيه يقوم بنسخه ولصقه ضمن المشاركات أما الأكواد فباﻹمكان نسخها من اﻹكسيل حيث الموضوع الذي يبحثه إلى زر الكود وحتى الارتباط التشعبي...يمكن استخدامه. الغاية: وضع الملف الدرس كمرفق مضغوط ضمن المشاركة يمكن للأعضاء الكرام تنزيله لديهم مع ملفات العمل ليسهل تناوله في حالة انقطاع اﻹنترنت ...ويمكنه جمع هذه الملفات لعرضها في مشاركة متكاملة بعيدا عن ملفات الإطراء أو الإعجاب ...وهذا برأيي به خير عميم لشريحة واسعة من الناس... مثلا ...دروس الفورم و الvba وغيرها التي تعتبر كنوزا لاستثمارها بنجاح باهر باستخدام هذه الطريقة... وأعتذر لانقطاع الأنترنت محليا wi fi إلا عن الهاتف...مما يقلل من متابعتي لإبداعاتكم... والسلام عليكم..

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

برنامح لتسجيل كشوف 12 د إلكترونيا ... كل عام وانم بخير كشوف 12 د.rar

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

السلام عليكم اطلع على المرفق حسب مافهمت من طرحك وزارات المحافظة_ البيانات الاضافية_11.rar

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

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

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

الاخ مارد راجع الرابط التالى تم تفيذ طلبك http://www.officena.net/ib/topic/64350-تحويل-التاريخ-من-ميلادى-الى-هجرى-على-الفورم/#comment-418586 تقبل تحياتى

جرب اخي الغالي هذا وهل قام احد المشاركين في الموضوع بتجربة هذا الملف وظهر عنده نفس المشكلة؟؟؟؟ تجربة2.rar

السلام عليكم ورحمة الله وبركاته هذا الموضوع اُثير اكثر من مرة في الآونة الاخيرة ، ورأيت من الافضل ان اضع مثال ليقتدي به الجميع وقبل ان نبدأ ، اود ان اشير الى انني اعمل على اكسس 32 بت ، ولا املك نسخة من اكسس 64 بت احب ان اشير الى الرابط الذي شرحت فيه ان مايكروسوفت توصي بتنصيب الاوفيس / اكسس 32 بت ، بغض النظر عن نوع الوندوز المنصّب على الكمبيوتر ، سواء كان 32 بت او 64 بت: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ ولكن ، ماذا نفعل اذا عملنا برنامجنا على اكسس 32 بت ، واتضح ان الزبون عنده جهاز فيه اكسس 64 بت المثال التالي يشتغل على 32 بت و 64 بت ، ونستطيع ان نستفيد منه لعمل برنامجنا البرنامج المرفق ، بعد فك الضغط ، سيحتوي على 3 برامج: . هذا برنامج No_Password_BE.accdb ، وبه جدول واحد ، ولا يحتاج الى كلمة سر لفتحه: . هذا برنامج Password_is_jj_BE.accdb ، وبه جدول واحد ، وكلمة السر لفتحه هي jj: . البرنامج: JStreetAccessRelinker2.accdb من الرابط http://www.jstreettech.com/downloads.aspx ، وبه ماكرو ووحدات نمطية تعمل على 32 بت و 64 بت (فالفضل في هذا المثال يعود للبرنامج وليس لي ) ، وقد قمت بإضافة نموذج لربطه مع احد برنامج الجداول اعلاه ، ومبدئيا فهو مرتبط مع البرنامج No_Password_BE.accdb ، . وعند فتح البرنامج لأول مرة ، سوف يفتح نافذة تطلب معرفة مكان برنامج الجداول No_Password_BE.accdb ، وتستطيع ان تنقر على الزر Link Another BE ، وستفتح لك نافذة تطلب منك معرفة مكان برنامج الجداول الجديد الذي تريد ان تربطه (بدل البرنامج No_Password_BE.accdb) : . وبما ان البرنامج هذا محمي بكلمة سر ، فسوف تظهر لك نافذة لإدخال كلمة السر (لاحظ ان الادخال مشفر) : . وعندما يتم الربط ، سترى رسالة التاكيد: . الرجاء من الشباب الذين لديهم نسخة من الاكسس 64 بت ، التاكد من ان البرنامج يشتغل على كمبيوترهم بدون اخطاء. عندما نريد ان نعمل برنامج يشتغل على النسختين 32 و 64 بت ، فكود النماذج هو نفسه بين نسختي 32 بت و 64 بت ، والشئ الوحيد الذي يتغير هو دوال الوحدات النمطية API ، والكود الذي ينادي هذه الوحدات (بغض النظر سواء كان في نموذج او في وحدة نمطية مستقلة) ، هنا سوف اعطي مثال واحد من الكود عن طريقة العمل للنسختين 32 و 64 بت: الكود التالي يستعمل دالة API فتح نافذة اختيار ملف ، والدالة هي 32 بت (لاحظ comdlg32.dll ) : Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long الان اذا اردنا ان نجعل هذه الداله API تعمل على 64 بت كذلك ، فالكود يجب ان يكون: #If VBA7 Then 'هذه لنسخة 64 بت Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Boolean #Else 'وهذه لنسخة 32 بت Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long #End If ولاحظ في كود البرنامج ، انه تم جمع جميع الدوال مع بعض ، وجمعها في if# و else# و end if# واحدة. وهناك اصدار جديد لكود الربط ، ويمكن انزاله من هنا: http://www.jstreettech.com/files/JStreetAccessRelinker2.zip جعفر 238.Work_on_32Bits_and_64Bits.zip

ADO Connectionاستخدام الاكسيل كقاعدة بيانات عن طريق وسيلة الاتصال اعتقد ان هذا الموضوع سيعطيكم معلومة جديدة في كيفية التعامل مع الاكسل كقاعدة بيانات في البداية الطريقة تعتمد على وسيلة الاتصال Active Data Object ADO وهي وسيلة اتصال بين برنامج كتابة الاكواد و قاعدة البيانات مثلا VB.net and SQL Visual Basic and Access وهي حصرية لبرامج مايكروسوفت فقط ولكي يكون لدينا اتصال كامل يجب ان يكون لدينا Connection String وهو عنوان قاعدة البيانات التي سيتم الاتصال بها، والذي من خلاله سيكون التالي: * فتح اتصال* * جملة الاستعلام* * انهاء الاتصال* وهنا تكمن الميزة بهذه الطريقة، فجملة الاستعلام يجب كتابتها بطريقة SQL dataBase وهنا تنطبق معظم جمل SQL امثلة على الجمل select * from [data] Select Count(Customer) from [data] Select Sum(Customers) from [data] where city ='Ramallah' تعلم كتابة جمل جديدة وغيرها من الجمل التي يعرفها جيدا المبرمجون باستخدام قواعد البيانات SQL,MYSQL,Oracle اكبر فائدة لهذه الطريقة انه يمكن من خلالها تصميم واجهة برنامج على الاكسل او تصميم فورم على الاكسل وحفظ البيانات على ملف اكسل اخر بدون الحاجة الى فتحه ولاستخدام هذه الطريقة يجب تفعيل التالي Tools-References بالمرفق ملف اكسل يحتوي مثال على ما تم ذكره سابقا database.zip

دعوة لبدء قاعدة بيانات شئون موظفيين شاملة لما لاحظت كثرة التساءل بالمنتدي من استفسارات وطلبات كثيرة حول موضوع شئون الموظفيين وادارة الوثائق بمختلف انواعها وبالبحث بالمنتدي وجد الكثير من اعمال اخواني ومعلميني الأقاضل وعلي رأسهم اخينا المبدع ومعلمنا الجليل الأستاذ / عبدالله باقشير واخي الفاضل الأستاذ/ أحمد فضيلة (صاحب الافكار الجميلة) وأخي ومعلمي الأستاذ / عبدالله المجرب واكواد لاخي الاستاذ / عباد نصار واخي بن علية واستمسحهم واستسمح من استخدمت عمله وارجوا السماحة فالهدف المصلحة العامة ----------------------- نبذة عن قاعدة البيانات اولا: معالجة البيانات الخام من ادخال بيان موظف جديد او البحث عن موظف مع خيارات الحذف والتعديل. وخيارات بحث (بحث بالرقم الوظيفي ) او بحث برقم الهوية / الاقامة- لضمان عدم تكرار الرقم او تشابه ثانيا اعداد تقرير تفصيلي عن حالة موظف معيين بامكانية الطباعة من الفورم وايضا طباعة بي دي اف لارسالها بالبريد وعمل باركود للموظف يحتوي علي رقم الهوية حتي لا يتكررواستخدامه في ملف الموظف ثالثا الصلاحية وتتم فيها معالجة البيانات المدخلة وتحتوي علي - جلب البيانات من صفحة الادخال ومعالجتها واظهار الوثائق المنتهية بالفترة واليوم مع بيان للحالة امكانية الطباعة وعمل تقرير شامل حسب الصلاحية - التصفية مع تقرير بالوثائق المنتهية والسارية علي حدة - التصفية والفرز حسب الجنسية مع تقرير عن كل جنسية - التصفية والفرز حسب المهنة مع تقرير علي كل مهنة - التصفية والفرز حسب الفترة انتهاء الصلاحية (30-60-90 يوم) التعامل مع التاريخيين الهجري والميلادي جاري ان شاء الله تحديث القاعدة لتشمل - امكانية استيراد البيانات من برنامج مقيم بالسعودية - بيان بالاجازات التي حصل علي الموظف واحقيته ف اجازاته السنوية ( جاري العمل عليها) - تقرير عن الراتب الاساسي والبدلات التي يستحقها الموظف شاشات سهلة التعامل وارجوا من الاخوة الكرام لا يبخلوا علينا بافكارهم للتطوير القاعدة بما يتناسب معظم احتياجات الموارد البشرية كلمة مرور القاعدة الدخـول = 2300 حماية الصفحات (2300) DataBase Sheet = 1948 VB Password= Dahy تغيير كلمة المرور للدخول ولحمايــة الصفحات في Sheet8.[zz19760] sheet8.[zz19761] بدون الدخول لمحرر الاكواد مرفق مع الملف ملف الخطوط (حتي يظهر الباركود) ويوضع بالمسار C:\Windows\Fonts توضع صور الموظفيين في نفس مسار ملف قاعدة البيانات ( اذا اردت ارفاق صورة الموظف مع التقرير) وما التوفيق الا من عند الله وهذ بعض الشاشات وان شاء الله ان تكون فيها الفائدة ولو بالقليل لاخواني بالمنتدي officena.rar

كنترول شيت ابتدائى 2016 مرفق معة ملف ... تعليمات الاستخدام ... به كل الارقام السريه للبرنامج كنترول 2016

كنترول شيت اعدادى 2016 مضاف الية اللغة الفرنسيه مرفق معة ملف ... تعليمات الاستخدام ... به كل الارقام السريه للبرنامج كنترول 2016

طيب ما تحط رقم الهاردين انظر المرفق ملف يعمل علي جهازين.rar

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

استاذ بحق وتملك خبرة رهيبة - ادامها الله عليك وزادك في العلم بسطة

السّلام عليكم و رحمة الله و بركاته إقتراح في محلّه سيّدي المحترم محمّد حسن المحمّد ..بارك الله فيك و جزاك الله خيرًا لإلمامك بكل الانشغالات و عمق تفكيرك فائق إحتراماتي

السلام علكيم أخي وحبيبي ياسر العربي بارك الله فيك على البرنامج القيم والمتميزيعمل بنجاح عندي ويندوز 8.1 اصدار 64 bit ونسخة اوفيس 2010 32bit ولكن اخي أذا كانت هذه البرامج تقوم ببرمجتها لكي تكون منتج لك تقوم بتسويقه تحتاج الى تعديلات في تصميم الواجهات والايقونات لكي تكون مواكب العصر في مجال التصميم والصور أثبتت دراسة علمية حديثة أن البرنامج عندما يكون متناسق الالوان مع بعض ككل يكون المستخدم قادر على التعامل معه بشكل افضل كثير مننا نقوم بتثبيت برامج كبيرة في مجالها ولكن عند فتحها لاتأتي لنا المزاج والنفسية للتعامل معها وذلك من تعقيدها ولعدم تناسق الالوان والايقونات والتصميم ككل وهو يعتبر قيم جداً في مجاله بارك الله فيك مرة أخرى هذا رأيي المتواضع ليس الإ لاأفرضه عليك وإنما نسعى أن تكون البرامج العربية في المستوى الاحترافي والأفضل حول العالم

بارك الله فيك احي ياسر كنت محضر نفس الكود ولكن ظهرت مشكلة ماذا لو كان عدد الدقائق اصغر من عشرة ولا اريد كتابة 170325 بل (17325) او 7:18:25 مثلاً

استاذى الحبيب المحترم الصقر دائما تسعدنى وتشرفنى بمرورك العطر تقبل تحياتى وتقديرى

أخي الكريم عاطف أهلا ومرحباً بك في المنتدى ونورت بين إخوانك نتمنى لك قضاء أمتع الأوقات في التعلم والاستفادة والإفادة لك ولغيرك جرب الكود التالي في حدث ورقة العمل (يمكنك تغيير النطاق في الكود) النطاق الذي ستجربه هو النطاق A1:A20 ويمكنك تغييره برجاء الاطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى للضرورة (حتى يمكنك التعامل بكفاءة مع المنتدى) Private Sub Worksheet_Change(ByVal Target As Range) Dim str1 As String, str2 As String, str3 As String If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A20")) Is Nothing Then Application.EnableEvents = False str1 = Mid(Target, 1, 2) str2 = Mid(Target, 3, 2) str3 = Mid(Target, 5, 2) Target.Value = str1 & ":" & str2 & ":" & str3 Application.EnableEvents = True End If End Sub تقبل ترحيبي وتحياتي

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

اخى الحبيب اليك الحل تعديل تاريخ.rar

اخى فى الله الاستاذ حسام تسلم ايدك ربنا يبارك فيك

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

السلام عليكم و رحمة الله و بركاته بارك الله فيك على الكلمات الطيّبة يا طيّب .. و هو ما قمت به أستاذي العزيز " الصّقر " لكن الكتابة لم تظهر إلاّ بعد الضغط داخل التاكست بوكس فائق إحتراماتي

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير و المحترم " الصّقر " على الاضافة المميّزة و اللمسة الجديدة الرّائعة .. و الحقيقة أعمالك كلّها قمة الرّوعة روعة صاحبها .. جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه و فضله .. فقط لو سمحت أستاذذنا الغالي هل من الممكن جعل الكتابة في التاكست بوكس المحوّل إليه تلقائية .. بمعنى بمجرّد إدخال التاريخ الميلادي أو الهجري .. يُكتب التاريخ تلقائيا .. ألف شكر مسبّقًا فائق إحتراماتي

هاي الفكرة مش متداولة بالمنتيدات واكثير مهمة انا اكثير اتعبت لحد ما اقدرت اشتغل عليها حاليا عندي برنامج (شاشة الادخال بملف اكسل) وموزع على خمس موظفين ، كل موظف اله ملف، والبينات مخزنة بملفات ثانية موجودة على جهاز سيرفر انا برنامجي اسمه lite وبدير 9 قواعد بيانات وبيقدر يشتغل عليها عدد لا نهائي من الموظفين

وعليكم السلام و رحمة الله و بركاته اخي الكريم استخدم دالة nz كما في المرفق ###.rar

بارك الله فيك الاخ شاهين وشكرا على الاجابة والسلام عليكم

السلام عليكم تحيه للاخ محمد سلامه تفضل اخي xpcode اعتقد هذا ما طلبت اسم مستخدم اضافي 1 باسوورد اضافي 1 بالتوفيق Arcives.zip

السلام عليكم تفضلوا التسخة 64 بيت ... كتبت الكود و جربته على ال Windows7 64bit Office10 64bit ملف للتحميل: https://app.box.com/s/cvjs3lt381ts805zu8v1uzu0ooxu4i80 الكود في ستاندر موديول Option Explicit Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type LOGBRUSH lbStyle As Long lbColor As Long lbHatch As LongPtr End Type Private Declare PtrSafe Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As LongPtr, ByVal hMenu As LongPtr, ByVal hInstance As LongPtr, lpParam As Any) As LongPtr Private Declare PtrSafe Function DestroyWindow Lib "user32" (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function FillRect Lib "user32" (ByVal hdc As LongPtr, lpRect As RECT, ByVal hBrush As LongPtr) As Long Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hdc As LongPtr) As Long Private Declare PtrSafe Function CreateBrushIndirect Lib "gdi32" (lpLogBrush As LOGBRUSH) As LongPtr Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long Private Declare PtrSafe Function SetBkMode Lib "gdi32" (ByVal hdc As LongPtr, ByVal nBkMode As Long) As Long Private Declare PtrSafe Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String) As Long Private Declare PtrSafe Function SetTextColor Lib "gdi32" (ByVal hdc As LongPtr, ByVal crColor As Long) As Long Private Declare PtrSafe Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As LongPtr, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare PtrSafe Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Private Const WS_CHILD = &H40000000 Private Const WS_CLIPCHILDREN = &H2000000 Private Const WS_CAPTION = &HC00000 Private Const WS_EX_TOPMOST = &H8& Private Const SW_NORMAL = 1 Private Const TRANSPARENT = 1 Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Const COLOR_BTNFACE = 15 Private bWindowExist As Boolean Public Sub Test() If Not bWindowExist Then Call ShowUpdatingMessage( _ Message:="Showing message number : ", _ Title:="Officena", _ HowManyTimes:=10, MessageDelay:=1, _ TOPMOST:=True, TextColor:=vbRed, BackColor:=vbYellow _ ) End If End Sub Private Sub ShowUpdatingMessage( _ ByVal Message As String, _ ByVal Title As String, _ ByVal HowManyTimes As Single, _ Optional ByVal MessageDelay As Single, _ Optional ByVal TOPMOST As Boolean, _ Optional ByVal TextColor As Long, _ Optional ByVal BackColor As Long) Const WIDTH = 250 Const HEIGHT = 120 Dim tRect As RECT Dim tLb As LOGBRUSH Dim t As Single Dim hBrush As LongPtr Dim hwndChild As LongPtr Dim hWndParent As LongPtr Dim hdc As LongPtr Dim iCounter As Integer On Error GoTo CleanUp ' Application.EnableCancelKey = xlErrorHandler hWndParent = CreateWindowEx(IIf(TOPMOST, WS_EX_TOPMOST, 0), "BUTTON", Title, WS_CAPTION + WS_CLIPCHILDREN, _ (GetSystemMetrics(SM_CXSCREEN) - WIDTH) / 2.2, (GetSystemMetrics(SM_CYSCREEN) - HEIGHT) / 2, WIDTH, HEIGHT, 0, ByVal 0, 0, ByVal 0&) hwndChild = CreateWindowEx(0, "STATIC", vbNullString, WS_CHILD, 0, 0, WIDTH, HEIGHT, hWndParent, ByVal 0&, ByVal 0, ByVal 0&) If hwndChild Then bWindowExist = True Application.OnKey "%{F4}", "" ShowWindow hWndParent, SW_NORMAL ShowWindow hwndChild, SW_NORMAL DoEvents hdc = GetDC(hwndChild) SetBkMode hdc, TRANSPARENT If TextColor <> 0 Then SetTextColor hdc, TextColor End If SetRect tRect, 0, 0, WIDTH, HEIGHT tLb.lbColor = IIf(BackColor = 0, GetSysColor(COLOR_BTNFACE), BackColor) hBrush = CreateBrushIndirect(tLb) For iCounter = 1 To HowManyTimes FillRect hdc, tRect, hBrush TextOut hdc, 30, 20, Message, Len(Message) TextOut hdc, 115, 50, CStr(iCounter), Len(CStr(iCounter)) t = Timer Do DoEvents Loop Until Timer - t >= IIf(MessageDelay = 0, 1, MessageDelay) Next End If CleanUp: ReleaseDC hwndChild, 0 DeleteObject hBrush DestroyWindow hwndChild DestroyWindow hWndParent bWindowExist = False Application.OnKey "%{F4}" End Sub

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

تفضل اخونا شريف تم اصلاح الملف كان الملف مهيأ للعمل على 64 بت Newd.rar

اخي الفاضل جرب المرفق ان شاء الله يضبط تحياتي اغلاق1 .rar

اعتذر عن التاخر اخ عبيد لانشغالي قليلا ! والبركة في الاستاذ ابو محمد ! تحياتي

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

السلام عليكم جرب هذا الحل فهوه يوفر ما يقارب 2 كيكا بايت اضافية ملاحظه قم بعملية ربط الجداول قبل ادخال البيانات بالتوفيق imge_be.zip imge.zip

السلام عليكم و رحمة الله و بركاته التعديل حسب طلب الاخ حسين (صفحتين للمطعم) و حسب طلب الاخ وائل (عدم قبول صفر على اليسار الرقم و عدم قبول ". " اكثر من مرة عند ادخالهما من خلال مفاتح الشاشة) تعديل علي برنامج مطعم 2.rar

للفائدة وإضافة لما ذكره الاستاذ برقش يمكن لصق الصفحة المنسوخة باستخدام لصق خاص>> الاحتفاظ بالنص فقط

السلام عليكم فى إكسل نستخدم دالة roundup للتقريب للأعلى مهما كان الكسر و ذلك عند التقريب للرقم العشرى الثانى أمثلة 49.1111 تصبح 49.12 49.1199 تصبح 49.12 أيضا 49.0001 تصبح 49.01 فنلاحظ جبر الكسر مهما كان من 1 إلى 9 فى أكسيس توجد دالة round ونتائجها مختلفة 94.1111 تصبح 49.11 49.1199 تصبح 49.11 49.0001 تصبح 49 ولعلاج ذلك أضفت للرقم ".0045" فجاءت المعادلة كالتالى و لكنى غير مطمئن للنتائج رغم أنها كلها صحيحة وذلك لقلة عدد البيانات المعادلة فى الاستعلام حصة حكومة 15: Round([المرتب]*0.15+.0045;2) هل هذه الطريقة صحيحة؟ وشكرا

السلام عليكم اخي الكريم يبدو الخلل من اعدادات التطبيق ولكن يمكن ان تنفع هذه المحاولة اعتقد ان هذه الادوات موجودة ويجب عليك تنزيلها وتحديدها من التطبيق من قائمة tools اختار additional controls فتظهر لك قائمة بجميع ادوات الفورم وقم بتحديد ما تريده من ادوات فمثلا ستجد اداة الtextbox تحت مسمى microsoft forms 2.0 textbox وهكذا ... ارجو ان تجد ضالتك (هناك ما يقارب 100 اداة لكن ليس جميعها مختصة بالاكسل )

ياريت الإثنين مجرد طمع؟؟؟

هناك طريقتين: الأولى التحكم بإطار الصفحة. الثانية التحكم بموقع الجدول. أيهما تريد نحن حاضرين