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

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

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

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

جرب المرفق لعله يفي بالغرض H-تقسيم الشهر.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

السلام عليكم الاخ الكريم / 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

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

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك يتم وضع هذا الكود اخي الكريم في حدث الشيت نفسه 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

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

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

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

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

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

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

بعد اذن الاستاذ القدير / عباد ... جزاه الله خيرا هل تريد الزر هكذا اخي الكريم ترحيل مع vlookup111.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم الاخ الكريم / سعيد بيرم جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها 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

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