حمادة عمر

السلام عليكم الاستاذ القدير العلامة الخبير / عبدالله باقشير جمعة مباركة بارك الله فيك وكما قبلت هديتي المتواضعة فلقد اعطيتني اجمل هديه بمروركم وقبولكم لها والاجمل والاروع هو ثناءك علي العمل ... شهادة عظيمة جدا بارك الله لك وبارك عليك وبارك لك في اولادك واهلك اجمعين جزاك الله خيرا

السلام عليكم الاخ الكريم / محمد يوسف محمد بارك الله فيك جمعة مباركة تقبل خالص تحياتي جزاك الله خيرا

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

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة (((( الدرس الخامس )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة. وسنتعرف في هذا الدرس علي طريقة وضع الاكواد الخاصة بزر طباعة الفاتورة ويتم ذلك باستخدام كود بسيط في زر الطباعة وهو من سطر واحد كما يلي Private Sub CommandButton3_Click() Me.PrintForm End Sub ولكن بوضع الكود بهذه الطريقة فقط سيطبع كل بيانات الفاتورة بما فيها جميع الازرار الخاصة بالتسجيل والاغلاق ... الخ ولتفادي هذا الامر سيتم اضافة اسطر بسيطة لاخفاء هذه الازرار قبل الطباعة ليكون شكل الكود النهائي للطباعة كالتالي : - Private Sub CommandButton3_Click() CommandButton1.Visible = False CommandButton2.Visible = False CommandButton4.Visible = False CommandButton5.Visible = False CommandButton3.Visible = False Me.PrintForm End Sub ارجو أن يكون قد وفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها5 اكسيل.rar

السلام عليكم الاخ الكريم / sh3esha3 قم اخي بتخفيض مستوي امان الماكرو في الاكسيل لديك ليعمل معك الفورم واليك ملف به طريقة تخفيض امان الماكرو في كل اصدارات الاكسيل 2003 ، 2007 ، 2010 وسيعمل معك باذن الله جزاك الله خيرا طريقة تخفيض مستوى الأمان في كل إصدارات الإكسيل.rar

السلام عليكم الاخ الحبيب / ضاحي الغريب جمعة مباركة بارك الله فيك مرور طيب وكريم يشبه النسيم العليل سعدت كثيرا بمرورك اخي الحبيب / ضاحي ... جزيل شكري وامتناني جزاك الله خيرا

::: (( هـــديـــة الجمعـــة )) ::: سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل بمزيج من الحركات مما يستخدمها ملك الحركات الاخ الحبيب / شوقي ربيع اقدم لكم اليوم سورة ( الكهف ) كامله علي فورم في ملف اكسيل به بعض الحركات الجميله ويمكنك من خلاله التعرف علي ... ** معلومات عامة عن السورة ** ** قراءة السورة كامله ** ** فضائل قراءة السورة ( يوم الجمعة ) ووقت قراءتها ** ارجو من الله ان يحوز اعجابكم ويكون مفيدا وهو اهداء لجميع محبي منتدي اوفيسنا ... وخصوصا اساتذتي الكرام .. نسألكم الدعاء بظهر الغيب جزاكم الله خيرا ســـــورة الكهـــف فــي فـــــورم.rar

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

السلام عليكم الاخ الكريم / قنديل الصياد بارك الله فيك اولا اخي يجب ان تلاحظ عنوان الموضوع فهو مخالف لقواعد المنتدي ... برجاء ملاحظه ذلك فيما بعد اما بخصوص طلب فورم الطباعة لبيانات الموظف فاعتقد ان ان هناك موضوعين للاخ الحبيب / ضاحي الغريب ... جزاه الله خيرا بعنوان (( دعوة عامة بمبادرة - قاعدة بيانات شئون الموظفين )) والثاني (( شئون الموظفين الاصدار الثاني - تجريبي - قوائم خبورية مميزة )) واعتقد ان بهم ما تريد ويمكنك التعديل عليهم علي الروابط التاليه بالترتيب http://www.officena.net/ib/index.php?showtopic=46173 http://www.officena.net/ib/index.php?showtopic=46612 اما بخصوص معادلة الترقيم فلعمل ترقيم في العمود A بناءا علي الخليه B استخدم المعادلة التاليه =IF(B3="";"";SUBTOTAL(3;B$3:B3)) حيث تبدأ هذه المعادلة من الصف الثالث ويتم سحب المعادلة علي باقي الخلايا جزاك الله خيرا

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

السلام عليكم الاخ الكريم / ابو حبيبة وحنين بارك الله فيك ولكن اخي الكريم علي حسب علمي ان ذلك غير ممكن حيث ان المعادلة دائما ما تكون مرتبطه بخليه او امر معين ليتم تنفيذ المطلوب بها واظن انه لا يمكن تثبيتها حتي لا تتغير بعد ذلك ولكن يمكن ان يفاجئنا الاستاذ العملاق / جمال عبد السميع ... ملك المعادلات بمثل هذه الراائعة والفكرة الجديدة جزاك الله خيرا

السلام عليكم الاستاذ القدير العلامة الخبير / عبدالله باقشير بارك الله فيك كود في منتهي الروعة والدقة وانبهر باكوادك دائما في طريقة تركيبها وخصوصا باستخدام الـ Array نتعلم منك كل يوم شيئاً جديدا زادك الله من علمه ومن فضله جزاك الله خيرا

لسلام عليكم الاخ الكريم / ابو علام بارك الله فيك شاهد الرابط التالي ... عله يفيدك ... بعنوان (( حفظ ملف إكسيل 2007 أو 2010 بتنسيق 2003 )) ... بشرح فيديو http://www.officena....c=45933&hl=2007 جزاك الله خيرا

قم بارفاق صورة للخطأ الذي يظهر لك

السلام عليكم الاخ الكريم / محمد بن شهرة بارك الله فيك قم بتنزيل الملف المرفق وبعد فك الضغط قم بالضغط عليه 2 كليك فقط ثم قم بفتح الاكسيل مرة اخري وشاهد هل تم حل المشكله لديك ام لا فهو ملف يعمل علي استرجاع واستعادة الاعدادات الاصليه لاكسيل 2003 ارجو ان يفي بطلبك جزاك الله خيرا MyBasicExcel_2003.rar

السلام عليكم الاخ العزيز / ريان أحمد بارك الله فيك بعد اذن اخي الحبيب / احمد عبد الناصر ... جزاه الله خيرا يمكنك وضع الباسورد الذي تريده في الكود في السطر التالي .... والرقم السري هو هنا 1 ويمكنك تغييره كما تريد بين الاقواس s.Unprotect "1" وكذلك في السطر s.Protect "1" ليكون بذلك الشكل النهائي للكود كما يلي Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect "1" s.Cells.Locked = False s.Cells.FormulaHidden = False On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect "1" Next End Sub جزاك الله خيرا

السلام عليكم الاخ الكريم / sh3esha3 بارك الله فيك شاهد المرفق الموجود في الموضوع في الرابط التالي ( مشاركة رقم 9 ) http://www.officena.net/ib/index.php?showtopic=46507&hl=%D9%81%D9%88%D8%B1%D9%85 وفي انتظار ردك جزاك الله خيرا

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

السلام عليكم الاخ الكريم / ايمن ابو علام بارك الله فيك مرور طيب وكريم وكلمات منتهي منتهي الروعة ... انه شرف للجميع حقا تواجدنا في هذا الصرح العملاق حقا لما نقابله من اخوة اعزاء جزاك الله خيرا

الاخ الكريم / حسام برجاء رفع الملف علي المنتدي مباشرة لسهوله تحميله

السلام عليكم الاخ الحبيب / إسلام الشيمي بارك الله فيك الكود المرسل من الاخ الحبيب / احمد عبد الناصر .... جزاه الله خيرا يعمل بكفاءة ودقه عاليه ... وبعد اذنه لكن عليك بعد لصق الكود في المودل ... ان تقوم بتغيير الحروف الغير مفهومة بين الاقواس في اسطر الرسائل الاسطر التاليه ... مثلا في الكود الثاني sheetname = InputBox("ãä ÝÖáß ÇÏÎá ÇÓã ÇáÔíÊ") وكذلك MsgBox ("ÇäÊ áã ÊÏÎá ÇáÇÓã Çæ ÇÓã ÇáÔíÊ ÇßÈÑ ãä 31 ÍÑÝ") قم بتغيير الاقواس لكلمات بالعربية او الانجليزيه تكن مفهومة ... وسيعمل معك الكود كما تريد تماما ( ان شاء الله ) جزاك الله خيرا

السلام عليكم الاستاذ العملاق / رجب جاويش بارك الله فيك ولكن لاحقاق الحق وارجاع الفضل لاصحابه فالفكرة من الاساس للقدير / عبد الله المجرب ... جزاه الله خيرا وقمت بالتعديل الطفيف ليتناسب مع طلب الأخ / ابو حبيبة وحنين الاخ الحبيب / إسلام الشيمي بارك الله فيك هناك موضوع للاستاذ الحبيب / ابو حنين .... جزاه الله خيرا تقريبا بنفس طلبك علي الرابط التالي بعنوان (( هل يمكن تتبع التعديل التى تتم على بيانات الاكسيل )) http://www.officena.net/ib/index.php?showtopic=45590&hl= ارجو ان يكون به طلبك جزاكم الله خيرا

شاهد الرابط التالي بعنوان إخفاء وحماية المعادلات برسالة تحذيرية والدخول برقم سرى http://www.officena.net/ib/index.php?showtopic=45743&hl=

السلام عليكم الاخ الكريم / abdoullah بارك الله فيك تقبل تحياتي وشكري علي كلماتك الرقيقة الرائعة جزاك الله خيرا

السلام عليكم الاخ الكريم / ابو حبيبة وحنين بارك الله فيك شاهد المرفق التالي باستخدام الكود الموضح قم بكتابه اي شئ في خلايا العمود A وشاهد النتيجه في العمود B ضع هذا الكود في حدث الشيت الذي تريد عمل ذلك عليه Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 2) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub جزاك الله خيرا كتابه تاريخ التعديل في الخليه المقابله.rar