كود لتكبير الخلية النشطة فقط

[محمد مصطفى ابو حمزة]

كود لتكبير الخلية النشطة فقط

Book1.rar

[ابو تميم]

أنت رهيب جدا أخي محمد مصطفى

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

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

[ريان أحمد]

بارك الله فيك كود روعة ومفيد جدا ومحترف

[دغيدى]

أخى الفاضل / محمد مصطفى

أثابكم الله .. على ما تقدموه

[محمد يحياوي]

الاخ الفاضل محمد مصطفى شكرا على الملف الجميل وفقك الله

الاخ الكريم ابو تميم هذا الشيئ الذي طلبته (تكبير خلية دون تكبير السطر) مستحيل في الاكسل و انما يمكن ذلك بعمل تعليق

[أبو عبد النور]

الاخ يحياوي،

الامر ممكن وذلك عن طريق رسم مربع Shape فوق الخلية النشطة .

[ابو تميم]

شكرا جزيلا أخي apt هل يمكن شرح الطريقة

ولك جزيل الشكر

[alisalem_ali25]

عمل جيد و مفيد خاصة في اكسيل، لك الشكر و التقدير بارك الله فيك وبارك في علمك

[قصي]

عمل جميل

حفظك الله

هل يمكن ان تعمل على جميع الصفحات الموجوده في الشيت ؟

[محمود رواس]

عمل رائع جدا من استاذ كبير من اساتذه هذا المنتدى .

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

وشكراً ،،،

[abouelhassan]

احترام من القلب

[قصي]

عمل رائع جدا من استاذ كبير من اساتذه هذا المنتدى .

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

وشكراً ،،،

هل يوجد طرقة اخرى اسهل

[ابو تميم]

بسيطة

ضع الكود فقط في Thisworkbook وسيعمل على جميع أوراق العمل بدون استثناء

[Dalin]

السلام عليكم

الرجاء شرح طريقة تكبير الخلية النشطة ولك جزيل الشكر.........

[ضاحي الغريب]

ماشاء الله رب العالمين

اخي / محمد مصطفي (ابوالروائع)

روائعك لا تنتهي

بارك الله فيك

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

تقبل تحياتي

[حمادة عمر]

جميل جدا اخي الحبيب / محمد مصطفي

طريقتك جميله بالفعل

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

[محمد مصطفى ابو حمزة]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    FontSize = ActiveCell.Font.Size
    LargeSize = FontSize * 5
    Cells.Font.Size = FontSize
    ActiveCell.Font.Size = LargeSize
End Sub

هذا هو الكود يتم وضعه فى حدث الورقة عند تغير التحديد 

ويقوم بالاتى 

اول سطر: تم تحديد متغير اسمه FontSize وقيمته حجم خط الخلية النشطة

ثانى سطر: تم مضاعفة هذا الحجم خمس مرات

ثالث سطر : تم جعل الحجم largesie

ثم انهاء الاجراء

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

قم بسجيل ماكرو للتنسيق الذى تريد

وضفه الى هذا الكود وشاهد النتيجة

[محمد مصطفى ابو حمزة]

شكرا اخى واستاذى

 

ضاحي الغريب

شكرا اخى واستاذى

 

 

حمادة عمر

على الكلمات العطرة الموضوع من اكثر من سنة ولكن احيته اختنا الاستاذة

 

دالين حامد

[ضاحي الغريب]

اخي الحبيب / محمد مصطفي

الفترة زادت عن سنة  ......

ليس العبرة بالوقت ولا الزمان بالعكس

الموضوع جماله وتالقه وفكرته جميلة جدا  واعذرني لم اشاهده الا الان

ونرفع الشكر للاخت الكريمة / دالين .... علي انها فتحت الموضوع لنراه جمال الكود

وكا قلت لك ابوالروائع ورائعك لاتنتهي 

تقبل تحياتي

[محمد مصطفى ابو حمزة]

تعديل على الكود لتكبير كامل السطر

Book1.rar

[مجدى يونس]

الاخ محمد مصطفى

اعمالك مميزه فعلا

شكرا لك

[محمد مصطفى ابو حمزة]

استاذنا ومعلمنا الكبير

 

مجدى يونس

شرف لى ردك الكريم

[Dalin]

استاذي الكريم محمد مصطفى ...

اشكر لك اهتمامك وتواضعك ...

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

وانا باذن الله من متابعي كتاباتك وجزاك الله عنا كل خير ...

[محمد مصطفى ابو حمزة]

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