محمد عسكر

السلام عليكم اخى بالنسبه للإخفاء بالكود فيمكنك الإطلاع على بعض المشاركات التى قمت بتنفيذ الإخفاء فيها و اى استفسار اي استفسار اتفضل اسأل http://www.officena.net/ib/index.php?showtopic=16701 http://www.officena.net/ib/index.php?showt...16422&st=30 تحياتى و السلام عليكم

السلام عليكم اهلا بالأخ / أبو مازن 99 اهلا بك فى اولى مشاركاتك ارفق لك الملف الخاص بك اتمنى ان يكون هو المطلوب تحياتى السلام عليكم NET.rar

السلام عليكم اخى اليك زر فى الورقة الرئيسيه لاظهار كافه الأوراق تحياتى السلام عليكم Consumables_items2.rar

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

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

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

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

السلام عليكم اخى اليك مثالا لايضاح ربط 3 قوائم منسدله معا اذا ما كانت لك اى استفسارات برجاء ايضاحها بمرفق كما اشار أ/ نزار تحياتى box3.rar

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

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

السلام عليكم اعتقد انه يمكن اخفاء ورقه و لكن عن طريق الأكواد و ستجدنى فى البرنامج الذى قمت باضافته و اعداده ضمن مشاركة باسم كنترول الثانويه الحديثه قد استعملت هذه الطريقه بواسطه الأزرار و القائمة المنسدله و هناك مشاركه الأقرب فيها نفس الموضوع http://www.officena.net/ib/index.php?showtopic=16701 و لو فى اى استفسار او ايضاح انت تأمر يا ابو السلامى تحياتى

السلام عليكم ورحمة الله و بركاته اعتقد ان الساعه كانت محل اعجاب لكم مثلى حينما رأيتها و هذ يتضح من عدد مرات تحميل الساعه و زياره الموضوع شكرا اخوتى السندباد نزار سليمان mafekry ابو اسامة العينبوسي seif eldin الجزيرة لقمان ال يسر شكرا لكم لاضافاتكم و مشاركتكم شكرا لكل من تفضل بالزياره و التحميل اخى الجزيره / عذرا لو كنت قد رايتها كنت ما قمت بكتابه الموضوع و اعتذر لو كان هناك تكرار للموضوع بالنسبه للساعه اخى لقمان فانا لم ازيل مصدرها فهو مكتوب فى البرنامج و هو موقع اجنبى لكنى لاعجابى بالساعه فقررت ان اضيفها الى موسوعتنا ( منتدى اوفسنا ) تحياتى

السلام عليكم اخى SPHINX شكرا لردك فمع جمال الكود مما جعلنى اضيفه و مع كثرة المشاهده فمن الواضح ان الموضوع لا يلقى اعجاب الكثير من الإخوه الأعضاء بالنسبه لايقونه الإكسل لننتظر رأى أستاذنا / عمر الحسينى ان شاء الله

السلام عليكم و بارك الله فيك لو عايز تضيف اوراق تانيه و تكون بنفس الشكل هنعدل فى الأكواد بتاعه اخفاء و اظهار الأوراق (( على فكره انا كنت عايز اعمل زر لاظهار كافه الأوراق فى اى وقت بس نسيت و لو عايز ممكن اعدلها فى الملف و ارفقها تانى )) و اى خدمة فى اى وقت عايز اغير التنسيق عادى عايز اشرحها ليك لو ليك فى الأكواد مفيش مشاكل تحياتى

السلام عليكم و رحمة الله وبركاته اقدم اليكم ضمن سلسه (( دراسه فى كود )) أولى الحلقات ::.. هل تود ان تكتب اسم برنامجك او اى بيان فى اعلى شاشه الإكسل بدلا من Microsoft Excel فى شريط التعريف فى احدى هدايا و ابداعات أ/ عمر الحسينى ( ابو تامر ) ومن ضمن احد اعماله فقلت ان ادرج لكم الكود لوحده حتى نرى روعه الإكسل و يمكن ادراج الكود انا بماكرو او فى ورقه البدايه فى الإكسل THIS WORKBOOK و ادرج اليكم الكود و مرفق له شكرا استاذنا عمر الحسنى شكرا لك ابو تامر و جزاك الله عنا خيرا Sub Win1() MyMe1 = "منتديات أوفيسنا " MyMe2 = "إعداد وتنفيذ / عمر الحسينى أنت الأن فى " MyExcel = MyMe1 & MyMe2 Application.Caption = MyExcel End Sub THIS WORKBOOK IN Private Sub Workbook_Open() MyMe1 = " منتديات أوفيسنا " MyMe2 = "إعداد وتنفيذ / محمد عسكر أنت الأن فى " MyExcel = MyMe1 & MyMe2 Application.Caption = MyExcel End Sub تحياتى محمد عسكر

السلام عليكم الأخ الفاضل / جملين لازم مشرفين مينفعش اعضاء (( ههه)) تحياتى اليك لكتابه التاريخ 15/4 فقط ثم ENTER و ستجد انه وضع العام الحالى (( افتراضى )) و لو عايز ادراج عام محدد مختلف عن العام الحالى 15/4/1999 عند الإشاره للتاريخ / جلب التاريخ =TODAY() يمكنك جلب التاريخ الحالى لهذا اليوم ((ك + Ctrl )) كنترول و كاف و بالنسبه للتواريخ فهناك الكثير من المشاركات عن التاريخ و طرح تاريخين و التعامل مع التواريخ باشكالها اتمنى ان اكون قد اجبت على ما هو مطلوب تحياتى

السلام عليكم هذه ساعه ذات شكل جميل و امكانيه رائعه للحساب اتمنى ان تنول الإعجاب تحياتى Clock.rar

السلام عليكم اخى انظر الى المرفق اتمنى ان ينول الإعجاب Consumables_items___.rar

السلام عليكم اخوتى اقدم اليكم الكود بعد تعديل فى اسماء الأشهر الى الأشهر الميلادية التى نتعامل بها DateToTxt2.rar

السلام عليكم اخى هذا رابط موضوع عن اضافه شيت و نموذج و مثال له ( ادخل اسم الشيت و سيتم اضافه شيت بهذا الإسم) http://www.officena.net/ib/index.php?showt...hl=%E6%D1%DE%C9 و بالنسبه للترحيل ففى المنتدى حدث و لا حرج و الحل لتحديد ترحيل بياناتك اما ان ترسل الملف محددا ما تريد ترحيل و اما ان تتعلم من الموضوعات الكثير جدا جدا جد ا و التى تشمل على اشكال و انواع الترحيل و هذا بحث فى المنتدى عن الترحيل http://www.officena.net/ib/index.php?act=S...%CA%D1%CD%ED%E1 تحياتى

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

السلام عليكم اخى نزار بارك الله فيك و جزاك خيرا تحياتى

السلام عليكم اليك كود عند اغلاق البرنامج من غير نافذه سؤال عن الحفظ ام لا و يتم الحفظ تلقائى Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.save End Sub و هذا كود لفتح البرنامج و اخفاء اشرطة الأدوات Private Sub Workbook_Open() Sheets("اسم الورقه التى ستنفتح عليها الشاشه").Activate With Application 'Application.DisplayFullScreen = True .CommandBars("Full Screen").Visible = False .CommandBars("Worksheet Menu Bar").Enabled = False .CommandBars("Standard").Visible = False .CommandBars("Formatting").Visible = False .CommandBars("Drawing").Visible = False .CommandBars("Reviewing").Visible = False .CommandBars("Web").Visible = False .CommandBars("Control Toolbox").Visible = False .CommandBars("Forms").Visible = False .DisplayStatusBar = False .DisplayFormulaBar = False End With Sheets("اسم الورقه التى ستنفتح عليها الشاشه").Activate End Sub و هذا كود الغلق البرنامج مع اظهار اشرطة الأدوات و القوائم Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("اسم الورقه التى سيغلق عليها البرنامج").Activate MsgBox " مع تحياتى ", vbexcelamation, "خروج من البرنامج " With Application .DisplayFullScreen = False .CommandBars("Worksheet Menu Bar").Enabled = True .CommandBars("Standard").Visible = True .CommandBars("Formatting").Visible = True .CommandBars("Drawing").Visible = True .DisplayFormulaBar = True .DisplayStatusBar = True .CommandBars("Control Toolbox").Visible = True .CommandBars("Forms").Visible = True .DisplayStatusBar = True .DisplayFormulaBar = True End With ActiveWorkbook.save End Sub تحياتى محمد عسكر

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

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