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

الأستاذ /Krm2006 إليك الملف لعله المطلوب. A1.rar

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

تفضل أخى show form.rar

بعد إذن أخوتى طريقة أخرى لأثراء الموضوع tel num.rar

السلام عليكم وايضا لزيادة الموضوع إثراء

أخى الفاضل / محمد بعد التحية أرجو الإهتمام بوضع عنوان مناسب للموضوع يدل على محتواه سوف يتم تغيير العنوان فى هذه المره ولكن يرجى الانتباه لقواعد المشاركة فى المرات القادمة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم ورحمة الله وبركاته بعتذر عن سوء فهمي واستعجالى في قراءة الطلبات والتى حالت دون الحل الصحيح للمراد فلم اخذ في الاعتبار ان المراد وضعه في الايرادات لا يزيد عن .4 قروش فقط وبالتالي فمحاولتي الاولى بأت بالفشل ولكن لحفظ ماء الوجه ( ابتسامة ) اردت ان احاول وضع حل لاثراء الموضوع وهو طبعا اقل في الجودة من حل الوالدة الفاضلة الاستاذة // ام عبد الله لان حلها يمتاز بالاختصار ولكن كما قلت لحفظ ما الوجه وحبي في الحلول التى تعتمد على الرياضيات والعقل والتفكير طورت معادلتي الاولى لتصل للمطلوب وهذا هو الحل =IF(K5="";"";IF(K5-ROUNDDOWN(K5;1)>0.05;ROUNDDOWN(K5;1)+0.05;ROUNDDOWN(K5;1))) Book15.rar

هذا البرنامج أعد وفق القواعد الشرعية وهو البرنامج الحصرى لحساب الميراث والوصايا بالأكسل (excel) يفضل نسخة 2007 فما فوق مهندس خالد الطاهر حدادة khaledhadada47@gmail.comhttps://www.facebook.com/groups/1436631679886258/ ملفات مرفقة الفرائض والوصايا بالأكسل أعداد م خالد حدادة.rar

السلام عليكم الموضوع (1) الدالة SUBSTITUTE كثيرا منا لم يسمع عنها وهى من دوال استبدال النصوص اى كان مكانها من الجملة ولها استخدامات اخرى انظر المرفق لاتحرمونا من ردودكم ودعائكم تحياتى دالة SUBSTITUTE.rar

السلام عليكم في الملف المرفق جدولين وتقرير الجدول الاول خاص بالبيانات الجدول الثاني خاص بتسجيل الاجازات للموظفين والعامل المشترك هو الرقم (ID) التقرير لعرض إجازات الموظفين بين تاريخين (ممكن تكون خلال اسبوع - يومين - شهر وهكذا ) تمهيداً لطباعتها المطلوب في التقرير 1. يتم إستخراج أخر إجازة للموظف 2. إستخراج المجموع الكلي لعدد أيام (مدة الاجازة) الخاصة بالموظف خلال عام حتى الشهر الذي نحن فيه (مثلاً) من مارس 2013 وحتى مارس 2014 ======================================== كلي أمل ان اجد الحل لديكم وشكراً مقدماً للجميع ابووائل الزير.rar

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

السلام عليكم ورحمة الله أخي الكريم الجموعي، انظر الملف المرفق لعل فيه المطلوب... (ولا أرى ضرورة وجود أمر الطباعة -أو المعاينة- مرتين)... أخوك بن علية الملف المرفق : مرن الجموعي.rar

أخى الفاضل / الجموعي شكرا جزيلا لك أخى الفاضل لقد أجزلت لى العطاء بهذا الدعاء الطيب فجزاك الله كل خير

السلام عليكم تم التعديل على الملف مرن الجموعي.rar

أخى الفاضل جرب هذه الفكرة البحث بتاريخ الميلاد3.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، جرب الكود التالي (يجب مراعاة ومراقبة أسماء الشيتات والنطاقات التي تطبق عليها هذه العميات) : Private Sub Workbook_Open() Application.DisplayAlerts = False If Date > DateValue("15/1/2015") Then If InputBox("لطفًا... أدخل كلمة السرّ") <> "as2191612" Then MsgBox "***عذرًا... ليس لديك الحق في استخدام البرنامج ***" ThisWorkbook.Close Else MsgBox " تفضل بالدخول كلمة المرور صحيحة" On Error Resume Next For J = 1 To 13 Set X = Choose(J, Sheet2, Sheet3, Sheet4, Sheet5, Sheet6, _ Sheet7, Sheet8, Sheet9, Sheet10, Sheet11, Sheet12, Sheet13, Sheet17) X.Unprotect ("2191612") X.Range("A1:U4400").ClearContents X.Protect Password:="2191612" Next J For K = 1 To 4 Set Y = Choose(K, Sheet1.Range("A1:OK200"), Sheet14.Range("A1:D200"), _ Sheet17.Range("A1:AD200"), Sheet19.Range("A1:AN400")) Set Z = Choose(K, Sheet1, Sheet14, Sheet17, Sheet19) Z.Unprotect ("2191612") With Y .ClearContents End With Z.Protect Password:="2191612" Next K With Sheet18 .Unprotect ("2191612") .Range("A1:AJ400").Value = .Range("A1:AJ400").Value .Protect Password:="2191612" End With Me.Save End If End If End Sub أخوك بن علية

Private Sub Workbook_Open() If Date >= CDate("12/03/2015") Then Application.ScreenUpdating = False Sheet1.Range("A1:OK200").ClearContents Sheet2.Range("A1:U4400").ClearContents Sheet3.Range("A1:U4400").ClearContents Sheet4.Range("A1:U4400").ClearContents Sheet5.Range("A1:U4400").ClearContents Sheet6.Range("A1:U4400").ClearContents Sheet7.Range("A1:U4400").ClearContents Sheet8.Range("A1:U4400").ClearContents Sheet9.Range("A1:U4400").ClearContents Sheet10.Range("A1:U4400").ClearContents Sheet11.Range("A1:U4400").ClearContents Sheet12.Range("A1:U4400").ClearContents Sheet13.Range("A1:U4400").ClearContents Sheet14.Range("A1:D200").ClearContents Sheet15.Range("A1:N200").ClearContents Sheet16.Range("A1:AN400").ClearContents Sheet17.Range("A1:U44000").ClearContents With Sheet18.Range("A1:AJ400") .Value = .Value End With Application.ScreenUpdating = True End If End Sub المشكلة في Me.Save

السلام عليكم ان كان فهمي لطلبك صحيح اذهب الى الخلية التي تريد ان يكون فيها اسم المحرر في شيت الطباعة وكتب هذه المعادلة ='2003'!H3 ونفس الامر بالنسبة للتاريخ ='2003'!I3

السلام عليكم ورحمه الله وبركاته الاخوه الاعزاء عندى ملف وقد بدئت فى تصميمة ولكن كثرة المعادلات ارهقت الملف لدرجة انى عند كتابة اى كلمة او اى رقم يصبح بطيئ ويظهر رسالة فى الشريط السفلى فى اليسار مكتوب ( جارى حساب البيانات ) ويعد من 1 الى 100% وهذا يعيقنى جدا علما بان الملف 3 ورقات فقط وانوى تكرار صفحه المورد الى 20 مورد او اقل فأعتقد بعد تعبى فيه ممكن يتوقف اعتقد ايضا هنا طريقة فى كود مثل application screen update = false اتمنى ان تجدوا حلا لهذة المشكلة وجزاكم الله خيرا حيث انى تعبت فى هذا الملف ولا اريد خسارته لأنه سيوفر على كثيرا فى عملى اخوكم خالد عبد المجيد GoLdEn_FaBrIc_1-1-2011.rar

أخى الفاضل جرب المرفق البحث بتاريخ الميلاد2.rar

مشاركتى اليوم أيها الأخوة الأعزاء هى عن كيفية فتح ملف معين قد تقوم بتخصيصه وفتحه مباشرةً بمجرد النقر والدخول فى برنامج الإكسيل بمعنــــى :::: أن يقوم الملف بالفتح أوتوماتيكياً ( رغماً عنك ) كلما توجهت لفتح برنامج الإكسيل والعمل فيه وذلك عن طريق أن تقوم بتحديد الملف الذى تريد تخصيصه وكما قلنا للفتح مباشرة ثم النقر على هذا الملف ( كليك يمين ) ثم إختيار creat shortcut أى نسخ نسخه ممتده من نفس الملف ثم نقل هذه النسخه الممتده وإلقاءها فى ملف XLSTART على هذا المسار C:\Program Files\Microsoft Office\Office10\XLStart معنى ذلك أن أى ملف موجود فى هذا الملف XLSTART أنه يفتح أوتوماتيكياً بمجرد النقر والدخول فى برنامج الإكسيل ولكن ماهى إستخدامات مثل هذه الملفات التى تُعد لكى تفتح بشكل تلقائى ؟!!!!! والإجابه إخوانى الأعزاء تكمن فى أن العديد منا يقوم بالتخطيط ووضع برنامج زمنى لأعماله خلال فتره معينه كأن تكون أسبوعاً أو شهراً مثلاً ... هذا البرنامج العملى المعد يستلزمه متابعه يوميه بمجرد فتح برنامج الإكسيل والدخول فى دوامة العمل وإعداد مثل هذه الملفات وإدراجها فى هذه المسارات يعد بمثابة إرغام أو تذكير كلٍ منا بمتابعة برنامجه السابق الذى أعده على هذا الملف ومراجعته صباح كل يوم أو ( عند الدخول فى البرنامج ) لكى يستمر على البرنامج العملى الذى أعده لنفسه من قبل والظريف أن الملف الأصلى يكون محفوظاً على أىٍ من المسارات التى تختارها أنت بينما النسخه الممتده هى التى تكون على فولدر السى بمعنى آخر أنه فى حالة فقدان الويندوز فجأه ( كما يحدث أحيانا ) وبالتالى مسح فولدر السى عند إعداد النسخه الجديده فهنا لن تكون هناك أية مشكله .... لماذا ؟ ... لأننا لم نقم بمسح الملف الأصلى وإنما مسحنا النسخه الممتده فقط بينما النسخه الأصليه لا تزال فى مكانها السابق آسف للإطاله ... ولكن أريد التوضيح ... جرِّب وفى إنتظار تعليقاتكم وردودكم فى مشاركتى الأولى مع تحياتى / محاسب أحمد عبدالعزيز

أليكى أختى ماطلبتى tel num 2.rar

السلام عليكم الاخ الكريم / http://www.officena....showtopic=41520 تقبلوا خالص تحياتي

السلام عليكم ورحمة الله وبركاته قمت بعمل المطلوب لك مع طريقة للتاكد من الرقم الذي تقوم بادخاله اضافة رقم لارقام المحمول.rar

أخى الفاضل هل تقصد هكذا البحث بتاريخ الميلاد2.rar

أخى الفاضل / محمد تم دمج الموضوعين معا فى موضوع واحد لأنهما سؤال واحد

جزا الله خيراً استاذ الحبيب // جمال عبد السميع لتفهمك الامر ولاثراء الموضوع وبعد اذن عملاق المعادلات استاذنا الحبيب جمال عبد الميع هذا حل بطرية المعادلات وليسصفيفاً =SUM(DATEDIF(A2;B2;"d");1) braa 2.rar

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

تفضل أخى البحث بتاريخ الميلاد2.rar

السلام عليكم Sub kh_Replace() Dim ch With Range("C5:C1000") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا", , , True Next .Replace "ة", "ه", , , True .Replace "ي ", "ى ", , , True End With End Sub تحياتي

أرقام السور كانت عبارة عن إشارة مرجعية وتم تحريرها لعله هذا هو السبب أما المسافات قبل وبعد الأرقام تأكدت منها مع العلم أن هذا الأمر يحدث كثيرًا إذا كانت الصفوف كثيرة تتعدى صفحة

جزاك الله خيرا اخانا العزيز رجب

نسألكم الدعاء وجزاكم الله خيرا

من هنا Microsoft Virtual Academy دورات مجانية What is MVA? Successful technologists never stop learning and great technology never stops evolving. Microsoft Virtual Academy (MVA) offers online Microsoft training delivered by experts to help technologists continually learn, with hundreds of courses, in 11 different languages. Our mission is to help developers, knowledgeable IT professionals and advanced students learn the latest technology, build their skills, and advance their careers. MVA is free of charge, and the entire service is hosted on Windows Azure. Microsoft Virtual Academy تم ترقية هذه المشاركة الى مقالة

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

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

لدى ملف أريد من حضراتكم شرح كيفية عمل كشف حساب لكل عميل على هذا الملف. حساب العملاء.rar

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

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

ولتفعيل الآمر RUN بويندوز 7 فى قائمة START إتبع الخطوات التالية اضغط كلك يمين على task bar ثم properties ثم tabs ثم start menu ثم customize ثم run command ثم apply ok وجزاكم الله خيرا

السلام عليكم أود فى البدايى ان اشكر جميع الأخوة على سرعة التلبية وسرعة الرد ولكن أود أن أوضح بعض الأشياء 1) اريد أن تكون الدوائر فى صف درجة الطالب فقط وليس فى صف درجة نهاية العام 2) ان يكون وضع الدوائر فى صف درجة الطالب بالشروط الأتية أولاً اذا كان درجة الطالب أقل من النهاية الصغرى للمادة توضع دائرة على الدرجة ثانياً اذا كان درجة نهاية العام للطالب أقل من 15 درجة لان درجة نهاية العام هى درجة الإمتحان التحريرى لنهاية العام هذه هى شروط نجاح الطالب فى المادة وفى هذه الحالة توضع الدائرة فى صف درجة الطالب وليس فى صف نهاية العام ارجو أن أكون قد أوضحت ما اريد من الكود خاصة ان الكود المرفق يعمل ما أوضحت لكن عندما جاءت فى شهادة طالب غائب درجة نهاية العام ودرجة الطالب بها حرف " غ " لم يكمل وضع الدوائر وعند تغيير حرف " غ " فى صف درجة نهاية العام أو صف درجة الطالب بدرجة أو وضع صفر فإن الكود يعمل بشكل ممتاز لذلك الرجاء حل هذة المشكلة وشكرا وهى ان يضع الكود المرفق دائرة اذا كان فة صف درجة الطالب و صف درجة نهاية العام حرف " غ " Book21.rar

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

أخى الفاضل / هشام شلبى كل عام وأنتم بخير أشكركم على التعديل فأن نسخت الكود ولم أدقق فيه قبل مدفع الفطار صف درجات 6 مساويا للصف 13 فلما التغيير ؟

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

الاخوة الاساتذة : م. جمال دغيدي هشــــــــــــام جزاكم الله كل الخير وكل عام وانتم بخير ابو الحارث

أخى الفاضل / تفضل تم عمل المطلوب برحاء تنسيق الملف بالطريقة المناسبة Book22.rar

السلام عليكم ورحمة الله ... أستاذي هشام أخجلتني كثير بلطفك يعجز لساني عن شكرك سلمت لنا ...شكرا

السلام عليكم ========== اخى العزيز halwim انا وكل ما املك ملك لك تفضل الرابط " وعلى فكرة البرنامج مجانى وليس له معلومات تسجيل" رابط البرنامج المطلوب

السلام عليكم اليكم الدالة الثانية اجمل واروع من الاولى لا تحرمونا من ردودكم ودعائكم دالة توليد الارقام العشوائية.rar

ياسلام عليك يا معلم هشام وليس شرطا أن يتم التغيير في آخر كلمة جرب هذه الجملة : انا جائع جدا القديمة : انا الجديدة : أخي وشووووف