قنديل الصياد

كود صغير لاظهار خاصية البحث والاستبدال Sub Replace() Application.SendKeys ("^f") End Sub مرفق ملف به التطبيق

بارك الله فيك وعليك اخى الفاضل الاستاذ / محمد وكل عام وحضرتك بخير

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

الف الف مليون مبروك الترقية أخى واستاذى الرائع الاستاذ / هانى عدلى ومن تقدم الى تقدم ومن ومن ازدهار الى ازدهار

كل الشكر والتقدير والاحترام لمروركم الجميل اساتذتى الكرام كل عام وحضراتكم بخير ورمضان كريم استاذى الجميل استاذى الرائع استاذى المبدع استاذنا الكبير والمتالق دائما

شكرا استاذى الكبير وعميد منتدانا العظيم كل عام وحضرتك والاسرة بخير بمناسبة شهر رمضان المعظم واتمنى من الله وادعوه ان تكون من حجاج بيته الكريم

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

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

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

كل عام وحضرتك بخير استاذنا الاستاذ / ابراهيم ابو ليلة وبارك الله فيك وعليك

مرفق كود لتلوين الخلية النشطة او الصف النشط Private objCurrentCell As Range Private OrigColorIdx As Long Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo SelectionChange_Err Application.EnableEvents = False If objCurrentCell Is Nothing Then Set objCurrentCell = Target OrigColorIdx = Target.Interior.ColorIndex If OrigColorIdx < 0 Then OrigColorIdx = 0 Target.Interior.ColorIndex = 25 Else objCurrentCell.Interior.ColorIndex = OrigColorIdx Set objCurrentCell = Target OrigColorIdx = Target.Interior.ColorIndex If OrigColorIdx < 0 Then OrigColorIdx = 0 Target.Interior.ColorIndex = 25 End If Application.EnableEvents = True Exit Sub SelectionChange_Err: Application.EnableEvents = True End Sub

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

اساتذتنا الافاضل فى الاوفيس 2007 ، 2010 ، 2013 يتم عمل الدوائر الحمراء ويتم الحفظ دون اى عناء فى الاوفيس 2003 يتم ايضا عمل الدوائر الحمراء بنفس طريقة الاوفيس 2010 والمشكلة عند الحفظ لا يتم حفظ الدوائر فالرجا حل تلك المشكلة وشكرا لكم برجاء حل المشكلة حتى يستفيد الجميع مرفق ملف به الدوائر ولكن مع عدم الحفظ

شرح عمل الدوائر الحمراء بدون اكواد على اوفيس 2007 وما بعدها ( 2010 ، 2013 ) افتح ملف اكسيل 2010 ونفذ كما هو بالصور الاتية مرفق ملف به التطبيق + شرح فيديو شرح الدرس فيديو

كل عام وانت بخير اخى واستاذى العزيز / ابو حنين كود رائع وعمل جميل ... بارك الله فيك وعليك مرفق مثال لكود استاذنا الكبير / ابو حنين

السلام عليكم اخوانى واساتذتى الاعزاء بعد اذن استاذنا الكبير الاستاذ / عبد الله باقشير الذى اكن له كل تقدير واحترام لانه استاذ جليل واخ نشهد كلنا له معادلة استاذنا تعلمت واتعلم منها ولكن وجدت ان اخى السائل فى ملفه توجد كلمة (غ) ويريد ادراجها كما قرات من طلبه فارفقت ملف لعله يقى بالغرض كما طلب اخى السائل

مرفق ملف كما تريد اخى العزيز وايضا فيديو لكيفية التسلسل فيديو لشرح كيفية تسلسل الارقام تلقائيا اكسل بطريقة السحب فى الخلايا

بارك الله فيك اخى واستاذى العزيز وكل عام وحضرتك بخير وسعادة

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

اخى العزيز انظر المرفق عله يفى بالمطلوب

اخى الفاضل اليك ما طلبت

الملف الذى قمت بعمله الكسر به عربى اللغة والارقام تظهر على حسب اختيارها فى جهازك يمكن ان تغير الارقام فى جهازك لتصبح باللغة العربية كالصورة التالية