مختار حسين محمود

مشكور على مرورك أخى أحمد عبده

أخى الكريم طلعت بارك الله فيكم وشرُفت بمروركم وسعدتُ به تحياتى

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

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

على فكرة يا أبوصلاح أخوك مش ناسيك كنت فى بالى وأنا مريح من عناء الاكسل النهردة الصبحية كوداية صغيرة فى حدث المصنف زى دى Private Sub Workbook_Open() AlertTime = Now + TimeValue("00:00:10") Application.OnTime AlertTime, "autosave" End Sub وحنة صغيرة فى مديول عادى زى دى Sub autosave() Application.ScreenUpdating = False Application.DisplayAlerts = False ThisWorkbook.Save AlertTime = Now + TimeValue("00:00:10") Application.OnTime AlertTime, "autosave" Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub الأثنين بيعملو حفظ تلقائى كل 10 ثوانى من غير ما تشعر تحياتى

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

أخى الحبيب ياسر شرُفتُ بمرورك

سلمت من كل شر أخى الحبيب ياسر شرُفتُ بمرورك

يا رب يا عم ياسر أجيب عربية وأروح أتفسح و أشوف حبايبى فى مطروح

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

منعت من الموقع بأن أسجل أعجابى بكلامكما فقد وصلت للحد الأقصى اليوم لكن الأهم هو أن تحب الاكسل فيحبك و كمان يعطيك محبة الناس الحمد لله

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

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

أخى طبعاً يمكن ذلك بكل تأكيد ولكن بعد عودة الكهرباء بالسلامة :jump: بهذر معاك يا أبوصلاح

السلام عليكم أخوتى ورحمة الله وبركاته كلنا يعرف يشغل ماكرو لكن هل فكرت تعمل باسوورد للماكرو ؟!!!!!!!!!!!!!!!!!!!!!!!!!! ماشى البعض منا يعرف يسوق عربية - أنا مش منهم - لكن هل فكرت أنك تعمل باسوورد لعربيتك ؟!!!!!!!!!!!!!!!!! حمل المرفق وهتعرف كل شىء الكود الأساسى المستخدم بسيط : Sub passtorunmacro() Dim MyPassword MyPassword = InputBox("من فضلك أدخل كلمة سر تشغيل الماكرو ", "كلمة السر", "********") 'باسوورد الماكرو If MyPassword = "123" Then MsgBox "كلمة السر صحيحة. لتشغيل الماكرو اضغط موافق", vbInformation, "دخول" 'استدعاء الماكرو Call Shape Exit Sub Else MsgBox "كلمة السر خاطئة", vbCritical, "خطأ" Exit Sub End If End Sub وهذا هو البنزين90 عفواً أقصد الكود الفرعى الذى نستدعيه لتحريك العربية : Sub Shape() Dim i As Integer Dim j As Integer With ActiveSheet.Shapes("Picture1") For j = 1 To 10 For i = 1 To 300 .IncrementLeft 0.75 DoEvents Next i For i = 1 To 300 .IncrementLeft -0.75 DoEvents Next i Next j End With End Sub اللى تعجبه الفكرة يدعو لى أتعلم السواقة , وأشترى عربية Enter Password to run a Macro.rar

أقول إيــــــــــــه مش لاقى كلام يبقى تاخد دول :fff: وهذا ملف مشابه يساعد فى سرعة عمل قائمة بأيام الأسبوع والشهور لعموم الفائدة Add Custom List Access to Right Click Menu.rar

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

بسم الله ما شاء الله ولا حول ولا قوة الا بالله جازاكم الله خيرا أراك اليومين الأخيرين شعلة نشاط اللهم لا حسد ولكن غبطة حتى شوف :wink2: ألف مبروك على المشاركة 5000 عقبال المليون

تفضل يا زيزو المحاولات بالاشارات المحاولات بالاشارات.rar

بُوركت وجازاكم الله خيراً أخى عبدو

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

بارك الله فيك و جازاك الله خيرا .. يا روح المنتدى ويا فاكهة المنتدى والله ألف ألف ألف كتر خيرك على ما تقدمه لإخواننا جُعل فى ميزان حسناتك بإذن الله تعالى

أبو البراء دائما الأول ربنا ما يحرمنا منك يا روح المنتدى وهذا بعض ما تقدمه لنا تحياتى

أخوتى فى الله السلام عليكم كلنا يعلم أن الفلترة شىء هام فى الاكسل كثيراً ما نحتاجه وكلنا نعلم أن الفلترة تكون حسب اعتبارات كثيرة لكن كونها تكون حسب لون الخط أعتقد أن القليل منا يعرفها لذلك أحببتُ أن أشاركم بهذا الكود المنقول لرجل أقدره فى هذا المجال وهو Ron de Bruin بدون إطالة تفضلوا المرفق وتقبلوا تحياتى Filtering by the Active Cell's Font Color.rar

تفضل أخى عبدووووووووو recharche XD 1 v2.rar recharche XD 2 v2.rar