عبد الفتاح كيرة

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

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

شكرا لك أخى أحسن الله إليك

شكرا لك أخى بارك الله فيك

أستاذى new4a أفادكم الله على المعلومة الجيدة بارك الله فيك

لا تتعب نفسك أخى المرفق موجود بالمشاركة حمله و جرب تغيير القيم فى العمود c أما تخطى المؤشر لخلايا معينة فهذا شأن آخر بعدما تنظر بالملف

حدد كل خلايا الشيت كليك يمين تنسيق خلايا حماية امسح العلامة من " تم تأمينها" ارجع للشيت حدد فقط الخلايا المتضمنة معادلات التى تريد حمايتها كرر ما سبق لكن ضع العلامة داخل " تم تأمينها " ضع الكود التالى فى حدث تغيير الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Locked = True Then Me.Protect Password:="123" Else Me.Unprotect Password:="123" End If End Sub كود حماية الخلايا ذات المعادلت.zip

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

الحمد لله رب العالمين

أشكرك أخى بارك الله فيك

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

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

Sheets("sheet(3)").Select Range("A1:F15").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$F$15" ActiveWindow.SelectedSheets.PrintPreview ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,2,,,TRUE,,FALSE)"

=IF(SUM(C7:F7)>20;20;SUM(C7:F7)) جمع بشرط.zip

أشكركم جزيل الشكر بارك الله فيكم و فعلا أخى كنت أتمنى شروحا كهذه لعمالقة المنتدى كى نستفيد أكثر أما برنامج التصوير فهو كمتاسيا ستوديو و لا أستخدم من إمكاناته إلا القليل http://www.techsmith.com/camtasia/ وشرحه هنا و شكرا لدعائك بالتوفيق

نعم أخى ممكن إن شاء الله تفضل بالعمود الأول شرح البحث التلقائى.zip

حيا الله الأستاذ خالد بارك الله فيك

جربه مرة أخرى بالمرفقات فرق التاريخين 2بصورة رقم.zip

أخى كيف تقول الملف لا يعمل و تقول أننى استخدمت الماكرو يمكنك الموافقة على تفعيل الماكرو فى بداية تشغيل الملف أخى استعمل المعادلة للطرح =A2-B2 و سيظهر الناتج كرقم إذا لم يظهر الناتج كرقم غير تنسيق الخلية إلى رقم بالتوفيق

لعل هذا ما تريده اضغط الزر بالملف المرفق فرق التاريخين بصورة رقم.zip

مرحبا أخى نأسف لأننا تركناك تنتظر لكن نتأكد من الطلب أنت تريد التاريخ مثلا 01/12/1978 يظهر 28825 هل هذا هو المطلوب؟ الأخ بن علية أعطاك المعادلة المطلوبة يعنى لو الفرق بين التاريخين فى السنوات = 2 سنة كاملة يكون 783 هل هذا ماتريده

Private Sub Worksheet_Activate() Range("a1").Value = ActiveSheet.Name End Sub

معذرة أستاذ أشرف خطأ غير مقصود تم إصلاح الملف حمل من المرفقات شرح البحث التلقائى.zip

شكرا أستاذ أشرف أخى sdsds شكرا لك لكنى لم أفهم المطلوب

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