أ / محمد صالح

أسعد الله ايامك أخي سعد كود بسيط وجميل جدا جزاك الله كل خير

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

نعم أخي العزيز هذا ممكن نفترض أن الماكرو الأول اسمه sub macro1 والماكرو الثاني اسمه sub macro2 يمكنك جمع الاثنين معاً في ماكرو ثالث مثلا اسمه macro3 وكوده كالتالي sub macro3() call macro1 call macro2 end sub وجرب وأخبرني بالنتيجة

شكرا لك أخي سعد بارك الله لك

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

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

أنت الأصل أخي عماد أنت صاحب الفكرة الأولى

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

جزاك الله كل خير أخي عماد الحسامي واسمح لي برنامجك الخفيف الرائع أعطاني فكرة أن يكون هذا البرنامج وظيفة إضافية Addin فقمت باختصار الكود إلى التالي Sub show2003menus() On Error Resume Next Dim cmdBar As CommandBar Dim cmdBarCtrl As CommandBarControl CommandBars("mas").Delete Set cmdBar = CommandBars.Add("mas", , , False) cmdBar.Visible = True For i = 1 To 10 Set cmdBarCtrl = cmdBar.Controls.Add(Type:=msoControlPopup, ID:=30001 + i) Next i End Sub Sub hide2003menus() On Error Resume Next CommandBars("mas").Delete End Sub ثم حولتها إلى إضافة .... طريقة تشغيل الوظيفة الإضافية لمن لا يعرفها ضع الملف في مكان ثابت أو في مسار الوظائف الإضافية افتح برنامج إكسل 2007 أو 2010 file ---> options ---> addins ----> go----> browse ---> select the addin ---> open ----> check Mas2003Menus ---->ok ولا تنسوني من صالح دعائكم في هذه الأيام المباركات Mas2003Menus.rar

قمت باستيراد قاعدة بيانات mysql إلى أكسس 2010 بدون اي مشاكل خطوات الاستيراد: get external data odbc database file data source ----> new select Mysql odbc 5.1 driver next ---> any name next ---> finish server user password ok إذا ظهرت رسالة أنه لم تتم عملية الحفظ لا مشكلة (لأنه بالفعل تمت عملية الحفظ وظهر الملف في مجموعة مصادر البيانات) اختر الاسم الذي حفظته به من مصادر البيانات ثم ok تظهر نافذة خيارات الخادم والمستخدم وقاعدة البيانات مرة أخرى حدثها ثم ok تظهر جداول القاعدة اختر منها ما تشاء ثم ok بعدها يتم الاستيراد بنجاح

أنا جربت البرنامج والبرنامج المساعد في إكسل 2010 وشغال تمام ومن قبلها إكسل 2007 ومفيش مشاكل وسأجرب مع الأكسس وأخبرك بالنتيجة رغم أني لا أعتقد وجود مشكلة في الكونيكتور لأنه لم يتم إضافة bugs إليه

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

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

أكرمك الله أخي عبد الله فقط أنا أحاول نفع نفسي وغيري وأنت بحق (دينامو) المنتدى فأينما أتحرك أجدك منيراً للمكان وفقنا الله وإياكم

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

يفضل إرفاق ملفك للتعديل عليه أو يمكنك استعمال الأمر kill ثم بعده تكتب مسار الملف الذي تريد حذفه

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

كل عام أنتم جميعاً بخير بمناسبة أفضل أيام الدنيا العشر الأوائل من ذي الحجة كنت قد صممت في الفترة السابقة أداة للتحويل بين الأكسس وmysql ويبدو أن فكرتها غير ممكنة نظرا لاختلاف الملفات التي ينبغي أن يتعامل معها البرنامج والتي يتم تصديرها من أكثر من إصدار لنسخة phpmyadmin لذلك كنت قد صممت لنفسي برنامج لتحويل ملفات الإكسل إلى قواعد بيانات mysql ولكن يحتاج إلى برنامج مساعد هو mysql-connector-odbc ويمكنكم تحميل أحدث نسخة منه من موقعه http://dev.mysql.com...connector/odbc/ واليوم أعرضه لأحبابي وبانتظار ملاحظاتكم واقتراحاتكم للعلم برامجي الأصل فيها مناسبتها لاحتياجاتي فإذا احتجتم إضافة شيء فأبلغوني به ولا تنسوني من صالح دعائكم MasExcelAndMysql.rar

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

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

الحمد لله

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

ما فهمته من الملف أن تريد حساب عدد ساعات العمل الرسمية والوقت الإضافي لكل قسم ولكن ما معنى رقم الوظيفة؟ ..... ولكي تحقق المطلوب ينبغي أن يحتوي الملف على عمود به رقم أو اسم القسم وعدد ساعات عمل كل موظف بداخله (الإضافي في عمود والرسمي في عمود) ... ساعتها يمكنك عمل احصائيات كما تريد أعد تصميم ملف بطريقة برمجية صحيحة أو اشرح لنا الأمر كاملاً من الألف إلى الياء وبالتفصيل الممل وسيساعدك الجميع إن شاء الله

عزيزي الموضوع مش محتاج كود ضع في الخلية h5 المعادلة الآتية =VLOOKUP(F5,ورقة2!B$3:D$10,2) ثم استخدم التعبئة التلقائية لباقي العمود وكذلك في الخلية j5 وضع بها المعادلة التالية =VLOOKUP(F5,ورقة2!B$3:D$10,3) ثم استخدم التعبئة التلقائية لباقي العمود .... جرب وأخبرني بالنتيجة

أخي سعد أشكرك على ثلاثة أولها تواضعك وثانيها فكرتك الرائعة وثالها ملفك وأكواده .... وفقك الله وإلى الأمام