نجوم المشاركات

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

السلام عليكم ورحمة الله وبركاته.. من خلا ل اطلاعي على بعض المواقع المتخصصة في الإكسيل ، وجدت هذه النماذج وأحببت أن أنقلها كما هي وإدراجها في هذا المنتدى علها أن تكون مصدر لاستلهام الأفكار في تصميم البرامج الخاصة في الإكسيل. الفورم الأول: المرفق1: http://www.excel-easy.com/vba/examples/excel-files/controls-collection.xls

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

Me.Date_5 = DateAdd("m", 2, Me.Date_4) هذا هو الكود: تتطلب دالة DateAdd تحديد ثلاثة متغيرات هي : 1- نوع الفترة التي تريد إضافتها وهل هي يوم ِأم شهر أم سنة أم ساعة إلخ ،،، 2- العدد أي ما هو عدد الأيام أو الأشهر التي تريد إضافتها 3- التاريخ الذي تريد الإضافة إليه وتستخدم بالصيغة التالية : DateAdd(الفترة, العدد, التاريخ) حيث تعيد الدالة DateAdd النتيجة على شكل متغير من نوع تاريخ هناك عدد من متغيرات الفترة التي يمكن استخدامها وفي القائمة التالية أهم هذه المتغيرات : yyyy سنة q ربع سنة m شهر d يوم w يوم الأسبوع ww أسبوع h ساعة n دقيقة s ثانية و عليه فإنه يتوجب عليك تغيير الرقم 2 إلى 3 إذا أردت أن تكون الزيادة بثلاثة أشهر و هكذا. بالتوفيق أخي

السلام عليكم و رحمة الله تعالى و بركاته تفضل أخي التعديل المطلوب في المرفق Aziz.rar

الف شكر وجزاكم الله خير

برنامج جميل ولكن مقفل فكيف نتعلم من برنامج مقفل

السلام عليكم جرب المرفق شتوية 2017.rar

جرب هذا الملف ايضاً ربما يكون ما تطلبه SEARCH_BY LETTERS.rar

السلام عليكم ورحمة الله ارجو ان يكون هذا هو طلبك 1.rar

في هذا الملف يمنكك عمل الاثنين معاً اما الكتابة مباشرة في الخلية او البحث من القائمة المنسدلة selaect by name1.rar

اليك الملف جاهز للعمل (القائمة المنسدلة مطاطة (اي انها تستجيب لاي تغييرات في البيانات و لا تذكر المكرر الا مرة واحدة selaect by name.rar

تفضل اخي الكريم http://www.mediafire.com/file/d12jbuyx8uxzsbq/براعم_الايمان1.rar

جرب هذا الملف دون الحاجة الى الضفط على زر بحث يكفي ان تكتب الاسم في الخلية E1 ليقوم اكسل بتحديده(اذا كان الاسم صحيحاً) Private Sub Worksheet_Change(ByVal Target As Range) Range("a5:f100").Interior.ColorIndex = xlNone If Target.Address(0, 0) <> "E1" Then Exit Sub On Error GoTo 1 Range("z1").FormulaArray = "=MATCH(TRIM(E1),TRIM(B5:B100),0)+4" t = Range("z1").Value Range("z1").Clear Cells(t, 1).Resize(1, 6).Interior.ColorIndex = 6 Exit Sub 1: MsgBox "This Name Doesn't Exits" Range("z1").Clear End Sub

السلام عليكم اخي الكريم شاهد المرفق لعلة يكون النتيجة المطلوبة ولكن بعد ادخال الرقم(الوزن) اضغط على انتر او Tab من لوحة المفاتيح اقبل تحياتي واحترامي Book1.rar

ملأى السنابل تنحني بتواضع ....... والفارغات رؤوسهن شوامخ

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