اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

للذين يتخوفون من استخدام excel2007 وللذين تعودوا على قوائم excel2003

يمكنك العمل على excel2007 باستخدام القوائم المستخدمة في excel2003

مرفق ملف يحتوي على كود لاظهار القوائم وكود اخر لاخفاء هذه القوائم

2downarrow.png

  • Like 9
قام بنشر

ياللروعة

ماشاء الله كود جميل جدا

ولاكن انا اعشق 2007 :wink2:

سلمت وجزاك الله خير استاذ عماد

اخى عماد الحسامى

ما شاء الله لا قوة الا بالله

مبدع دائما

سعد عابد

قام بنشر

السلام عليكم و رحمة الله وبركاته

انا واحد من الناس الذين لم يستخدمو 2007 لليوم

بسبب مسألة القوائم التي عقدتني

عشان ادور على اي امر اجلس اتوه في الرموز الموجودة أمامي

يعني متعقد

وان شاء الله تتفك هذه العقدة على يدك اخي الحسامي

ولا ادري هل هذا بداية الملل

قام بنشر

السلام عليكم

اخي الحبيب ابو عبدالله / الجزيرة بارك الله فيك على شعورك الطيب

----------------------------------

اخي الحبيب ابو نصار بارك الله فيك على كلامك الجميل

----------------------------------

اخي الحبيب على قلبي سعد عابد انت من الاشخاص الذين اعجز الرد عليهم

فبارك الله فيك وجزاك الله خيرا

-----------------------------------

يا ابو بعقوب الناس وصلوا للقمر وانت لسه عايش بال 2003 حرام عليك

وانصحك باستخدام 2007 وستندم على عدم استخدامه سابقا

وبالمناسبة الملل لم يبدا بعد واسف ان كان ظنك قد خاب ههههههههههههه

قام بنشر

السلام عليكم

الاستاذ الفاضل عماد الحسامي

اعمال مميزة ليست بغريبة عليكم

سلمت يمينك

ابو احمد

تسلم ايدك .... نعم ليست بغريبة عليكم ... استاذنا الحســـــــــــــــامي

جزاك الله كل الخير وفقك الله

ابو الحارث

قام بنشر

جزاك الله كل خير أخي عماد الحسامي

واسمح لي

برنامجك الخفيف الرائع أعطاني فكرة

أن يكون هذا البرنامج وظيفة إضافية 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

قام بنشر

السلام عليكم

اخوتي واحبابي

عبدالله المجرب ابو احمد

ياسر الحافظ ابو الحارث

بارك الله فيكم على شعوركم الطيب وجزاكم الله خيرا

------------------------------------------------

اخي محمد صالح

ما شاء الله عليك وعمل احترافي و اضافة مميزة وشغل جامد

بارك الله فيك على هذه الروائع والتحف

قام بنشر

استاذى محمد صالح

اية الحلاوة دى يا باشا

اضافة جميلة وممتازة حلت مشكلة الاصدارين 2007 و 2010 لمحبى القوائم القديمة

تحياتى

سعد عابد

قام بنشر

تشكر استاذنا " محمد صالح "

والله ياخي في منتدانا لمسات لو عرضت على " بل غيتس " لاعجب بها وربما تبناها

جزاكم الله كل الخير

وفقكم الله

ابو الحارث

أكرمك الله أبا الحارث

متكبرش الموضوع الله يخليك

احنا نقطة في بحر الناس دي

ربنا ينفعنا بما علمنا ويعلمنا ما ينفعنا

سعيد جدا بمرورك الكريم

  • Like 1
قام بنشر

السلام عليكم

اخوتي واحبابي

عبدالله المجرب ابو احمد

ياسر الحافظ ابو الحارث

بارك الله فيكم على شعوركم الطيب وجزاكم الله خيرا

------------------------------------------------

اخي محمد صالح

ما شاء الله عليك وعمل احترافي و اضافة مميزة وشغل جامد

بارك الله فيك على هذه الروائع والتحف

أنت الأصل أخي عماد

أنت صاحب الفكرة الأولى

  • Like 1
قام بنشر

استاذى محمد صالح

اية الحلاوة دى يا باشا

اضافة جميلة وممتازة حلت مشكلة الاصدارين 2007 و 2010 لمحبى القوائم القديمة

تحياتى

سعد عابد

أنت أحلى وأطيب أخي سعد

رغم أني مثلك أعشق كل جديد

ولكن ينبغي علينا مساعدة الإخوة الذين يعشقون القديم الأصيل

.......

واستكمالا للموضوع

......

تم تعديل الوظيفة الإضافية لعرض القوائم وشريطي الأدوات القياسي والتنسيق

mas2003menus.jpg

بالإضافة إلى شريطي التخطيط والأشكال التلقائية

أتمنى أن تعجبكم الإضافة في ثوبها الجديد

تحياتي وتمنياتي بالسعادة في الدارين للجميع

أخوكم

محمد صالح

Mas2003Menus.zip

  • Like 1
قام بنشر

استاذ محمد صالح

دى مش حلاوة بس ده ابداع ياباشا

احنا كده يا جماعه عدلنا على بيل جيتس وعملنا الاكسيل باى اصدار بالواجهة اللى نختارها احنا

مبدعو اوفيسنا رجعتوا لنا الثقة بانفسنا لسنا اتباع نحن مبدعون

اوفيسنا

تحياتى

سعد عابد

قام بنشر

إخوتي الأحبة

إستمتعت بالمرفقات و الحوارات .....

عماد الحسامي : عزيزي بارك الله بك ونفع بما علمّك ... أنت حقا مبدع

محمد صالح : عزيزي لا تبخس نفسك حقها ، فأنت صاحب فكر نيّر و أداء متميز ، وقناعتك بأنك متميز باب من أبواب ... التغيير ...

ياسر الحافظ أبا الحارث : أخي الحبيب ، فكرة ممتازة ، ولا تظن أن مثل هذا لا يحصل و إن لم نعرف به ... !!!

إخوتي الأعزاء : أظن أنكم إستمتعتم بالأداء التميز ... كما هو حالي !!!

وفقكم الله ... والى الأمام لنرتقي

.......

قام بنشر

سعيد بمرورك أخي الكريم نارت

وشكرا لك على كلامك الرقيق

.....

وأضيف

هذه الإضافة تتغير لغتها مع تغير لغة واجهة الأوفيس مهما كانت لغة العرض

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

......

وجاري تنفيذها على الوورد والباوربوينت

تقبلوا جميعا تحياتي

وكل عام أنتم بخير

  • Like 1
قام بنشر

السلام عليكم .......

اخي محمد صالح ....... اضافات مميزة وابداع لا نظير اله

فبارك الله فيك وجنبك من كل سوء

--------------

اخي وابن بلدي ........ نارت لبزو

بارك الله وجزاك الله خيرا في دنياك وفي اخرتك

وما ابدعنا الا من اناس سبقونا واهتموا بنا

شاكرا مرورك الطيب

قام بنشر

السلام عليكم .......

اخي محمد صالح ....... اضافات مميزة وابداع لا نظير اله

فبارك الله فيك وجنبك من كل سوء

--------------

اخي وابن بلدي ........ نارت لبزو

بارك الله وجزاك الله خيرا في دنياك وفي اخرتك

وما ابدعنا الا من اناس سبقونا واهتموا بنا

شاكرا مرورك الطيب

آمين ولك مثلها أخي حسام

وفقنا الله جميعاً اكا ما يحب ويرضى

وهذا رابط لنفس الإضافة في الوورد والباور كما وعدت

http://www.officena.net/ib/index.php?showtopic=36867&view=findpost&p=214154

كل عام أنتم بخير

  • Like 2
  • 1 month later...
قام بنشر

الرجاء شرح آخر إضافة بالتفصيل

أى ملف أستخدمه ( رقم المشاركة )

وكيف أقوم بتثبيته ليظهر ققائمة إضافية فى إيكسيل 2007 بإستمرار

قام بنشر

استاذى محمد صالح

اية الحلاوة دى يا باشا

اضافة جميلة وممتازة حلت مشكلة الاصدارين 2007 و 2010 لمحبى القوائم القديمة

تحياتى

سعد عابد

أنت أحلى وأطيب أخي سعد

رغم أني مثلك أعشق كل جديد

ولكن ينبغي علينا مساعدة الإخوة الذين يعشقون القديم الأصيل

.......

واستكمالا للموضوع

......

تم تعديل الوظيفة الإضافية لعرض القوائم وشريطي الأدوات القياسي والتنسيق

mas2003menus.jpg

بالإضافة إلى شريطي التخطيط والأشكال التلقائية

أتمنى أن تعجبكم الإضافة في ثوبها الجديد

تحياتي وتمنياتي بالسعادة في الدارين للجميع

أخوكم

محمد صالح

حاولت التطبيق أكثر من مرة ولم أنجح

أرجو المساعدة

قام بنشر

السلام عليكم ورحمة الله وبركاته

بارك الله فيكم جميعا وهذا الموضوع بالاخص وهو الفروق بين اوفيس 2003 و 2007 فهل المشكلة مقتصرة فقط على طريقة عرض القوائم ام ان هناك مشكلة جوهرية في الاكواد فمثلاً لدى ملف وبه هذا الكود وبسبب انني اعمل على اوفيس 2007 تظهر رسالة خطا في الملف بسبب السطر المكتوب باللون المختلف ارجو افادتي للاهميةPrivate Sub UserForm_Initialize()

On Error Resume Next

Dim mycol As Collection

Dim myrng As Range

Set mycol = New Collection

For Each myrng In Range("ÇáÇÓãÇá3")

mycol.Add myrng.Value, myrng.Text

Next myrng

For 1 = 1 To mycol.Count

If mycol.Item(I) = "" Then mycol.Remove I

Me.ComboBox2.AddItem mycol(I)

Next I

End Sub

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information