أ / محمد صالح

أخي الكريم ما تقوله ليس ضمن برمجة الإكسل ولكن ضمن برمجة صفحات الويب بلغة برمجة مثلا php وربطها بقواعد بيانات من نوع mysql وبالفعل عندما تحفظ ملف إكسل كصفحة ويب لا يحتفظ الملف بأكواد vba لأنك في هذه الحالة تحتاج أكواد php أو asp لتحل محل vba ويمكنك متابعة مواضيع منتدى برمجة الويب وتعلم أساسيات لغة html فهي بداية تعلم برمجة الويب ..... للعلم توجد خدمة في موقع مستندات جوجل تقدم استضافة ملفات الإكس وعرضها وتعديلها من خلال المتصفح ولكن أيضا بدون أكواد vba

بارك الله لك أخي محمد يحيى موضوع رائع واسمح لي بالمساهمة فيه ولو بالقليل ..... كود لعرض شريط القوائم وشريط الأدوات القياسي وشريط التنسيق (الخاصين بأوفيس 2003) في أوفيس 2007 أو 2010 في الإكسل نستعمل الكود التالي Sub show2003() On Error Resume Next Dim cb As CommandBar Dim ctrl As CommandBarControl Set cb = CommandBars.Add("Mas2003Menu") For Each ctrl In CommandBars("Worksheet Menu Bar").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Standard") For Each ctrl In CommandBars("Standard").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Formatting") For Each ctrl In CommandBars("Formatting").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 End Sub وفي الوورد والباور بوينت نستعمل الكود التالي Sub show2003() On Error Resume Next Dim cb As CommandBar Dim ctrl As CommandBarControl Set cb = CommandBars.Add("Mas2003Menu") For Each ctrl In CommandBars("Menu Bar").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Standard") For Each ctrl In CommandBars("Standard").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 Set cb = CommandBars.Add("Mas2003Formatting") For Each ctrl In CommandBars("Formatting").Controls ctrl.Copy cb Next ctrl cb.Visible = 1 End Sub وهذا كود حذفهم جميعاً Sub hide2003() On Error Resume Next CommandBars("Mas2003Menu").Delete CommandBars("Mas2003Standard").Delete CommandBars("Mas2003Formatting").Delete End Sub تحياتي للجميع وكل عام أنتم بخير بمناسبة أفضل ايام الدنيا عشر ذي الحجة

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

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

نعم أخي العزيز هذا ممكن نفترض أن الماكرو الأول اسمه 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 بإذن الله سيتم وضع البرنامج هنا عند الانتهاء منه

الحمد لله

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

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