شباب لماذا لا تظهر الخطوط في الاكسل

[راعي الاولة]

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

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

الطريقة التي اريد تطبيقها هي .

عند الضغط على ادوات تظهر القائمة المنسدلة نختار تخصيص

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

[محمد طاهر عرفه]

موجود مربع سرد الخطوط داخل قائمة تنسيق

Tools

Customize

Commands

Format

fonts

بالعربي غالبا ستكون :

ادوات

تخصيص

اوامر

تنسيق

خطوط

[راعي الاولة]

مشرفنا العزيز محمد طاهر

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

[محمد طاهر عرفه]

اذا كان المقصود اضافة خط بعينه

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

و لكن مازال يمكنك عمل ذلك بماكرو ووضع ايقون للماكرو او سحب الماكرو الي القائمة

[راعي الاولة]

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

انا مش عارف الطريقة يا ليت تشحرح بشي من التفصيل كرماً

لا امراً انا في انتظارك :mellow:

[محمد طاهر عرفه]

يمكنك تسجيل ماكرو مباشرة من قائمة

tools

Macro

Record new macro

و فى هذه الحالة سيسجل لك خصائص كثيرة للخط

و ما تحتاجه بعد حذف الخواص الأخري هو فقط الجزء التالي :

Sub tohama()


    With Selection.Font

        .Name = "Tahoma"

    End With

    

End Sub

أو اختصارا حيث أنها خاصية واحدة

Sub tohama()



      Selection.Font.name= "Tahoma"

    

End Sub

فافتح محرر البيزيك alt+f11

و ادرج موديول جديد

و ضع فيه الكود السابق

أو سجل أي ماكرو كما سبق ، ثم حرره و استبدل الكود بالكود السابق

سيصبح لديك ماكرو يغير الخط الي خط تهامة للمنطقة المختارة

و يمكنك نسخه و تغيير اسم الماكرو و نوع الخط داخل الكود الي الخطوط الأخري المطلوبة

[راعي الاولة]

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

[محمد طاهر عرفه]

السلام عليكم

مرفق ملف مسجل به الماكرو

و الان اضف قاءمة جديدة الي القوائم الموجود بجوار التعليمات كما تريد

Toold

Customize

command

new menu

ثم أضف اليها زر

custom button مثلا

من مجموعة ماكرو ( الخيار الثاني )

ثم بعد اضافته الي القائمة و مربع الحوار مازال مفتوحا

اختاره و بالزر الايمن اختار

assign macro

و اختار ماكرو المسمي Tohama

و بالنقر علي الزر اثناء التشغيل سيتم تحويل اي خط فى الخلايا المختارة الي تهامة

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

Tools

Macro

security

medium

or

low

Font_Tohama.rar

[راعي الاولة]

اخوي محمد طاهر

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

ثم بعد اضافته الي القائمة و مربع الحوار مازال مفتوحا

اختاره و بالزر الايمن اختار

assign macro

و اختار ماكرو المسمي Tohama

و بالنقر علي الزر اثناء التشغيل سيتم تحويل اي خط فى الخلايا المختارة الي تهامة

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

Tools

Macro

security

medium

or

low

اذا كان هناك شرح مصور ياليت تفيدنا فيه افضل جزاك الله الف خير وشكر :mellow:

[محمد طاهر عرفه]

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

و سأعيد الرد بطريقة أخري :

الموضوع الذي في الملف لا يخدمني لانه خط لا ارغب فيه انا عندي خط في جهازي محتاج اسوية اختصار بعينة

بضغط ALT+F11 ستجد الأسطر الثلاثة

Sub tohama()

     Selection.Font.name= "Tahoma"

End Sub

و بها اسم الخط تكرر مرتين Tohama

انسخ الثلاثة أسطر كما هي

و استبدل Tohama باسم الخط الذي تريد

( فى الكلمتين : العنوان و السطر الذي يليه )

هذا بالنسبة للخط

ذكرت فى ردك أن التجربة لم تننجح معك فى كل المرات

ما الذي يحدث ؟؟

عموما جرب تكرار الماكرو كما سبق اولا

و لتشغيل أي منها

تختار الخلايا المراد التطبيق عليها اولا ، ثم

Tools

Macro

أو

ALT+F8

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

فسيتغير الخط بإذن الله

بعد ذلك تبقي عملية السحب الي القائمة

هي كما كنت تفعل فى الوورد تماما

و لكن ، ما ستضيفه هو الخيار الثاني المتاح فى مجموعة ماكرو (بدلا من سحب الفونت مباشرة من مجموعة فونت فى الوورد ) ثم تختار ما أضفته بالزر الايمن Assigm macro

و تنتقي الماكرو المناظر للخط الذي تريد