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

بسم الله الرحمن الرحيم وبه نستعين على كل شىء وقبل كل شىء السلام عليكم ورحمه الله وبركاته احبائى اعضاء المنتدى الرائع وحشتونى جدا والله ما يمنعنى عنكم إلا الشديد القوى آلا وهو العمل وطول وقته طبعا هذه الهديه حاجه بسيطه تفكركوا بيا عشان محدش ينسانى وان شاء السميع العليم سأعود بقوه لكن بعد موسم الميزانيات الهديه لكل اعضاء اوفيسنا وخاصه أستاذى العلامه // عبد الله باقشير واستاذى // حماده عمر وطبعا أستاتذتى جميعا ولا اود ان انسى منهم احدا أستاذى // طارق محمود أستاذى // بن عليه حاجى أستاذى // جمال عبد السميع أستاذى // ابو حنين استاذى // جمال دغيدى أستاذى // عبد الله المجرب أستاذى // يحيى حسين استاذى // محمد معتصم استاذى // احمد زمان استاذى // احمد فضيله استاذى // الخالدى أستاذى // حماده باشا أستاذتى نجمه اوفيسنا // ام عبد الله استاذى // قنديل الصياد استاذى // ضاحى الغريب استاذى // رجب جاويش أستاذى // شوقى ربيع استاذى // احمد عبد الناصر أستاذى // الشهابى استاذى // هانى عدلى استاذى وحبيب قلبى الغالى // سعيد بيرم استاذى // ابراهيم ابو ليله واخى الحبيب // عطاء الله واخى الحبيب // احمد النجار وطبعا لكل اعضاء اوفيسنا تقبلوا تحياتى وكل عام وانتم بخير OFFICENA.rar

السلام عليكم في هذا الدرس نتعلم كيفية جعل الاكسيل ينطق قيمة ما كتبته الدرس http://www.youtube.com/watch?v=8yo_fStztEk

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

جرب المرفق لعله يفي بالغرض H-تقسيم الشهر.rar

السلام عليكم ورحمة الله وبركاته الاستاذ محمود جزاك الله خيرا وبارك الله فيك لاحظ المرفق فيه كود للعلامة الجليل عبد الله باقشير دام عزه ان شاء الله يفي بالغرض تقبل فائق احترامي وتقديري mzmhr11.rar

السلام عليكم استعمل دالة IFERROR مثال ان كانت النتيجة خاطاءة يعطي فراغ كما يمكنك اختيار اي شيء لضهر مكان علامة الخطاء =IFERROR( B8*D8/100;"")

السلام عليكم جزاكم الله خيرا شاهد المرفق 2010 mzm1.rar

لاثراء الموضوع شاهد اخي الملف المرفق ارجو ان يعجبك زووم لقائمة منسدلة.rar

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك يمكنك وضع الكود التالي في حدث Sheet2 حيث عند اختياره وتنشيطة يعمل الكود تلقائيا Private Sub Worksheet_Activate() Macro2 End Sub ولكن اخي الكريم ياريت لو ترفق ملف كمثال ليتضح الامر اكثر وتكون الاجابة اكثر دقة تقبل خالص تحياتي

السلام عليكم الاخ الكريم / نايف - م بارك الله فيك من الافضل ارفاق ملف كمثال لما تريده للعمل عليه .. للوصول لنتيجة افضل والوصول الي ما تريد في انتظار ردك تقبل خالص تحياتي

يتم ذلك من خلال النطاق الذي تحدده مثلا في الملف السابق المرفق .RowSource = "=Sheet1!A2:C10" قم بتغيير A2 الي A1 وشاهد النتيجة في الملف السابق من الكود او من الخصائص الخاصة بالليست تقبل خالص تحياتي

المسئولة عن اظهار رؤوس الاعمدة في الليست هو الخيار .ColumnHeads = True اما True لتجعلها تظهر واما FALSE لمنع ظهورها تقبل خالص تحياتي

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

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

السلام عليكم الاخ الكريم / ahmed_hissen بارك الله فيك ولكن نطلب منك الصبر جرب المرفق .. ان شاء الله به ما تريد اظهار اسم ومسار الصورة التي تقوم باختيارها بالكود التالي : Sub SAMA() Image_path = Application.GetOpenFilename( _ FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _ Title:="اختار الصورة") Sheets("sheet1").Range("a1") = Image_path If Image_path <> False Then Sheets("sheet1").Image1.Picture = LoadPicture(Image_path) End If End Sub وارجو ان يفي بطلبك جزاك الله خيرا صورة.rar

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

الاخ الكريم طلبك غير واضح ... ياريت لو مثال كامل ولكن شاهد المرفق هل تقصد هكذا 2013-2003.rar

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

نعم اخي الكريم يمكنك فعل ما تقول بدون اي مشاكل وبدون اي تغغير في الكود الا اذا اردت تغيير الخلية التي تريد ان يكون اسم الشيت هو اسم هذه الخلية وان شاء الله سيعمل معك دون اي مشاكل

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

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

السلام عليكم الاخ الحبيب / أحمد فؤاد بارك الله فيك ولكن لي عتاب عليكم ... فتواجدك بيننا هذه الايام قليل ( لعله خيرا باذن الله ) تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك علي حسب فهمي لطلبك استخدم الكود التالي لتنفيذ ذلك Private Sub ComboBox1_Change() ComboBox1.ShowDropButtonWhen = fmShowDropButtonWhenFocus End Sub او بهذه الطريقة ايضا .... للاختصار ليس الا Private Sub ComboBox1_Change() ComboBox1.ShowDropButtonWhen = 1 End Sub جزاك الله خيرا

الاخ الكريم / وليد زقزوق بارك الله فيك وبالنسبة لطلبك الأخير والخاص باضافة الشيتات شاهد المرفق التالي .... ارجو التجربة جيدا ... وابداء الملاحظات حيث تم تنفيذه علي وجه السرعة نظرا لضيق الوقت وفي انتظار ردك ارجو ان يفي بطلبك حيث يتم ذلك من خلال هذه الشاشة جزاك الله خيرا المرفق 2003 sama-add-name.rar

ولاثراء الموضوع ولاضافة التاريخ في خلايا العمود B بناءا علي الكتابة في العمود A واضافة للكود الخاص بالاخ / ابو غريب شاهد المرفق ... حيث عندما لايكون بالخلية شئ يتم مسح التاريخ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a2: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

بعد اذن الاساتذة الكبار هذه مشاركة مني لملف اكسيل عندما يفتح تسمع تكبيرات العيد شاهدوا الملف وانتظر رأيكم ؟؟؟ هو تعديل بسيط علي كود للاستاذ القدير / عادل حنفي ... جزاه الله خيرا ارجو من الله ان ينال اعجابكم http://www.gulfup.com/?O3sFn7

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

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

جزاك الله خيرا مرور طيب وكريم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / هانى ابو ادهم بارك الله فيك اليك الحل حسب فهمي للطلب نفترض اننا نريد ان نكتب كلمة ( منتدي اوفيسنا العملاق ) عند الضغط دبل كليك شمال ع الماوس يكون ذلك بكتابة هذا الكود البسيد في حدث ورقة الاكسيل كالتالي : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell.Value = " منتدي اوفيسنا العملاق " End Sub جزاك الله خيرا اكتب ما تحدده باستخدام دبل كليك.rar

الاخ الكريم / عبد الرحمن بارك الله فيك ان شاء الله ... كل شئ ممكن باذن الله استخدم الكود التالي في حدث الشيت Worksheet_BeforeRightClick كالتالي : Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub جزاك الله خيرا الغاء رايت كليك-sama.rar

رمضـــان كـــريـــم

بالنسبة لهذا الجزء من الطلب اليكط الرابط التالي موضوع للاخ الحبيب / ضاحي الغريب ان شاء الله به ما تريد http://www.officena.net/ib/index.php?showtopic=47476&page=2 بالنسبة للجزء الثاني من الطلب اليك ايضا الرابط التالي حيث به ما تريد ان شاء الله بالنسبة لزيادة الاعمدة http://www.officena.net/ib/index.php?showtopic=46295&hl=%2B%D8%B2%D9%8A%D8%A7%D8%AF%D8%A9+%2B%D8%A7%D9%84%D8%A7%D8%B9%D9%85%D8%AF%D8%A9

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

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

السلام عليكم الاخ الكريم / ريان أحمد بارك الله فيك علي كلماتك الجميله وبخصوص نقله الي ملفك قم بنقل الفورم الموجودة بالملف جميعها وكذلك الموديلات الي ملف عن طريق Export File ثم بعد ذلك ادخلهم لملفك باستخدام Import File وبعد ذلك قم بوضع الكود التالي في حدث ThisWorkbook Private Sub Workbook_Open() Call jjj UserForm3.Hide UserForm5.Hide End Sub وان شاء الله يعمل معك بشكل جيد وان لم تستطع لو من الممكن ارفاق الملف وسيتم العمل عليه ومعك دائما باذن الله جزاك الله خيرا

السلام عليكم الاخ العزيز / سعد عابد بارك الله فيك دائما مرورك عطر علي المواضيع جزاك الله خيرا

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

أحى الحبيب ( إسلام الشيمى ) بارك الله فيك وفى مرورك وكلماتك الطيبة وجزاك الله عنى خير الجزاء

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

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

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

السلام عليكم الاستاذ الكريم / سعيد بيرم اليك طريقة حماية الـــ VBA بكلمة سر بشرح فيديو طريقة عمل باسور لمحرر الاكواد.rar

السلام عليكم الاخ الكريم / سعيد بيرم جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub او قم بتسمية الخلايا المراد حمايتها كلها باسم نطاق واحد وليكن مثلا كما في الكود التالي يكون اسم النطاق myrange ليكون الكود كالتالي وهو يعتمد علي قيمة الخلية T1 اذا كانت فارغة لا يمكن التغيير في المعادلات واذا تم الكتابة فيها يمكنك تغيير ذلك Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub ولعمل حماية للمعادلات واظهار رسالة عندما يريد المستخدم التعديل قم بوضع الكود التالي في النطاق الذي تريده Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("c3:p10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء" End If End sub جزاك الله خيرا

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

السلام عليكم الاخ الكريم / أبو چيداء ضع الكود التالي في حدث ThisWorkbook علي اعتبار ان الفورم باسم UserForm1 Private Sub Workbook_Open() UserForm1.Show End Sub جزاك الله خيرا فتح الفورم عند فتح الملف.rar

السلام عليكم الاستاذ / مجدى يونس جميل جدا جميع مشاركتك فكلها افادة دائماً جزاك الله خيرا

السلام عليكم، اعتقد اخي العام الجديد انك قد وجدت الملف مناسبا ؟

الحمد لله توصلت لعمل نص متحرك ولكن مع هذه الصفحة لا يمكن استعمال اى شئ آخر فلا تستطيع الكتابة او الحساب فلماذا؟؟؟ تحريك.rar