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

بسم الله الرحمن الرحيم وبه نستعين على كل شىء وقبل كل شىء السلام عليكم ورحمه الله وبركاته احبائى اعضاء المنتدى الرائع وحشتونى جدا والله ما يمنعنى عنكم إلا الشديد القوى آلا وهو العمل وطول وقته طبعا هذه الهديه حاجه بسيطه تفكركوا بيا عشان محدش ينسانى وان شاء السميع العليم سأعود بقوه لكن بعد موسم الميزانيات الهديه لكل اعضاء اوفيسنا وخاصه أستاذى العلامه // عبد الله باقشير واستاذى // حماده عمر وطبعا أستاتذتى جميعا ولا اود ان انسى منهم احدا أستاذى // طارق محمود أستاذى // بن عليه حاجى أستاذى // جمال عبد السميع أستاذى // ابو حنين استاذى // جمال دغيدى أستاذى // عبد الله المجرب أستاذى // يحيى حسين استاذى // محمد معتصم استاذى // احمد زمان استاذى // احمد فضيله استاذى // الخالدى أستاذى // حماده باشا أستاذتى نجمه اوفيسنا // ام عبد الله استاذى // قنديل الصياد استاذى // ضاحى الغريب استاذى // رجب جاويش أستاذى // شوقى ربيع استاذى // احمد عبد الناصر أستاذى // الشهابى استاذى // هانى عدلى استاذى وحبيب قلبى الغالى // سعيد بيرم استاذى // ابراهيم ابو ليله واخى الحبيب // عطاء الله واخى الحبيب // احمد النجار وطبعا لكل اعضاء اوفيسنا تقبلوا تحياتى وكل عام وانتم بخير 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 ولكن اخي الكريم ياريت لو ترفق ملف كمثال ليتضح الامر اكثر وتكون الاجابة اكثر دقة تقبل خالص تحياتي

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

المسئولة عن اظهار رؤوس الاعمدة في الليست هو الخيار .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

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

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

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

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك يتم وضع هذا الكود اخي الكريم في حدث الشيت نفسه Worksheet_Change واليك اخي الكريم ملف مرفق به الكود تقبل خالص تحياتي تغيير اسم الشيت+.rar

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك يمكنك اخي الكريم تنفيذ ذلك من خلال الكود التالي Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text End Sub جزاك الله خيرا

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

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

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

تم الاجابة علي الرابط التالي ... بعنوان (( فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة )) http://www.officena.net/ib/index.php?showtopic=49585

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

الاخ الكريم / وليد زقزوق بارك الله فيك وبالنسبة لطلبك الأخير والخاص باضافة الشيتات شاهد المرفق التالي .... ارجو التجربة جيدا ... وابداء الملاحظات حيث تم تنفيذه علي وجه السرعة نظرا لضيق الوقت وفي انتظار ردك ارجو ان يفي بطلبك حيث يتم ذلك من خلال هذه الشاشة جزاك الله خيرا المرفق 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

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

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

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

بعد اذن الاستاذ القدير / عباد ... جزاه الله خيرا هل تريد الزر هكذا اخي الكريم ترحيل مع vlookup111.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

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

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

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

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

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

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

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

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

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

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

السلام عليكم الاستاذ الكريم / سعيد بيرم اليك طريقة حماية الـــ 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 جزاك الله خيرا

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

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

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