WithOutName

أعتقد المشكله فى هذا الكود

Private Sub Workbook_deActivate()<!--QuoteEBegin-->   Application.CommandBars("Worksheet Menu Bar").Enabled = False<!--QuoteEBegin-->End Sub<!--QuoteEBegin-->

غير هذا الكود بالكود التالى

Private Sub <!--QuoteEBegin--><!--QuoteEBegin-->Workbook_deActivate()<!--QuoteEBegin-->   Application.CommandBars("Worksheet Menu Bar").Enabled = True<!--QuoteEBegin-->End Sub<!--QuoteEBegin-->

ثم شغل الماكرو

و النتيجه مضمونه ان شاء الله

<{POST_SNAPBACK}>

فعلا يا اخي عاجز عن الشكر ......

وفقك الله وهداك الي مايحبه ويرضاه .

(y)

:pp:

(y) hs889 ماشاء الله


أحسنت والله يجعله في ميزان حسناتك أصبة هذا الذي كنت أبحث عنه الداله صحيحه وهي المراد.

أخي تامر شكرا علي المحوله ولاكن الداله لم تكن صحيحه الداله تقرب الي خانتين فقط وأنا كنت أبحث عن خانتين ومقربه الي أرباع والحل في الداله
=MROUND(A1;0.25)



أخي hs889

بنسبه للملف الأصلي فان حجمه كبير لا يمكن أرفاقه هل يوجد حل أخر

بسم الله الرحمن الرحيم

أخي hs889 لا شكر علي واجب وأنما هذا من القلب الي القلب

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

وأود الأشار الي مشكله حصلت لي عندما أضافة كود الي ملف الكود هو .

Private Sub Workbook_Activate()
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Private Sub Workbook_deActivate()
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub NoScreenRePainting()
    Application.ScreenUpdating = True
    'Your code here.
    Application.ScreenUpdating = True
End Sub

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

تحياتي وجزيت خيرا

بسم الله الرحمن الرحيم

اخي فلسطيني شكرا اولا لك ثم جزاك الله الف خير .

بنسبه للكود الذي وضعته ليس هو المراد عندما ادخل فرضا الرقم 62.79 ناتج الكود هو 63 وأنا أنا اريد الناتج يكون 62.75 اريد التقريب الي

20.00 او 20.25 او 20.50 او 20.75

شكرا مره أخري تحياتي

عجبا يا اخي طلبك بان تجعل الاعضاء يقومون بالدعاء لك.

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

تحياتي (y)

بسم الله الرحمن الرحيم

في بعض البرامج تمكنك من ربط بناتها الي الأكسل وأذا وجدت هذه الخاصيه في البرنامج فما عليك الي النسخ من البرنامج والصق في الأكسل

تحياتي

lWithOutNamel@yahoo.com

بسم الله الرحمن الرحيم

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

lWithOutNamel@Yahoo.com

بسم الله الرحمن الرحيم

أخي بنسبه لطلبك الاول هو أن تعمل ورقه عمل لك مجموعة وفي ورقة العمل الخامسه تكتب اسماء المجموع ا ب ج د وبعد ذالك عمل رابط لأسماء المجموعات كتالي تضغط علي أسم المجموعه

( أ) بزر المواس الأيمن ثم الذهاب الي ارتباط تشعبي ... ومن القامه علي اليمين أرتباط بـ أختار (مكان في هذا المستند ) سوف تضهر لك أسماء الأمراق أختر أسم المجموعه وسوف يتم الربط ....

أرجو أن تكون المعلومه وصلت تحياتي

بسم الله الرحمن الرحيم

ماشاء الله طرح جميل في الشرح وفقك الله .

[/align]