ابو اسامة العينبوسي

السلام عليكم اختى سلمى اسف 1 -ان لم اكن اصبت هذه المره فقد اصبت على الاقل فى المره السابقه 2- ساورني الشك في انك تريدي ما او ضحت مؤخرا و لكن كان استدراكك متاخر 3- الاخ ابو عبد الله قام بالواجب وهو من المشكورين

السلام عليكم summmm.rar

السلام عليكم دائما تبهرني بحلولك اخوك عمر

السلام عليكم بعد اذن السيد دينجر ممكن ان تظلل النطاق المراد تسميته ثم من الزاويه اليسرى (بجانب شريط الصيغه) اكتب الاسم الذي تريد ثم اضغط انتر

السلام عليكم لم افهم المقصود مع الاسف

السلام عليكم انا كنت اضفت زر جديد من عندي وهو الذي يعمل الان عدلت على الزر خصتك و هو يعمل هنا اختصرت كود الاخفاء و الاظهار عندما يشتغل الملف معك Hide_Unhide.rar

السلام عليكم حقل العمر تستطيع الاستغناء عنه حيث يتم احتسابه تلقائيا تاريخ الميلاد - تاريخ التسجيل

سميت نطاق الاسماء باسم stuff ثم جعلت مصدر القائمه النطاق المذكور اعلاه

السلام عليكم انا مسرور جدا لهذا العمل لوجه الله هنا فورم سريع و هناك الكثيرر من الاشياء يمكن اضافته بكل سرور ساتحمل كل عمل هذا الفورم _______________.rar

سيدي العزيز ارفق ملف

السلام عليكم هذا مم كان يعنيه اللاخ حسب فهمى اخي وائل تحياتى num_to_date.rar

السلام عليكم Private Sub Workbook_Open() If Date > #5/1/2008# Then Application.ActiveWorkbook.Close savechanges = yes End Sub [code] هنا البرنامج لا يفتح بعد تاريخ 1/5/2008 او اي تاريخ تحدده انت لكن اذ اتم ارجاع التاريخ في الجهاز الى الوراء يفتح ( في اعدادات التاريخ في الكمبيوتر )

السلام عليكم لى عندك رجاء وطلب صغيرين فتش في المنتدى عن الوميض جهد المقل يا اخي اخوك عمر playsound.rar

السلام عليكم sort.rar

السلام عليكم اخي الكريم الكود شغااال 100% اليك الملف مره اخرى راجع الصفحات قبل تنفيذ الكود فكل الاعمده ظاهره بعد التنفيذ ستختفي ارجوا من الاخوه تجريب الملف للتاكد Hide_Unhide.rar

السلام عليكم هنا مثال بالكود اى تعديل انا حاضر 2007.rar

السلام عليكم لم انساك ولن لكن الموضوع صعب كمن يريد ان يقول ان 3 = 2 فالموضوع بحاجه لوقت انا اعمل عليه

السلام عليكم هذا كود للاخفاء عدله حسب حاجتك هو باختصار يقوم باختيار اوراق العمل دفعه واحد و من ثم يخفي منها جميع الاعمده التى تريد هنا ايضا كود لاختيار كل اوراق العمل (ليس الموجود في المرفق) Sub hidden() Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ActiveWorkbook.Sheets ws.Select Columns("a:a").EntireColumn.hidden = True Columns("t:t").EntireColumn.hidden = True Columns("e:e").EntireColumn.hidden = True Columns("h:M").EntireColumn.hidden = True Selection.EntireColumn.hidden = True Next Application.ScreenUpdating = True End Sub Hide_Unhide.rar

السلام عليكم كما تريد انا سهران الليله مستعد لاي استفسار ____1.rar

السلام عليكم لكن ادخل مسافه بين الرقم والنص ____.rar

السلام عليكم form.rar

السلام عليكم قبل ان اجيب لي استفسار انت تريد اذا كان هناك رقم زياده في رقم الهويه يتم احتسابه متشابه ام غير متشابه ؟ هذا ممكن عن طريق اضافه شرط مربوط بعدد الارقام في الخليتين

السلام عليكم ارسل الملف اخي عسى الله ان يجعل لنا من امره يسرا

السلام عليكم اخي هادي اسال الله ان يبعثك مقاما محمودا في الدنيا و الاخره