HADNOOR

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

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

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

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

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

جزاك الله كل خير وشكرا لتعاونك ولك مني كل تقدير

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

عفوا اخي العزيز لا يحتاج الامر الي ملف فلقد قمت بشرح ما اريد وهو استبدال اي كلمة او حرف بجملة بشرط توفر كلمة اخري في نفس الجملة فعلي سبيل المثال لا اريد استبدال كل كلمة TRUE في كل الجمل ولكن اريد فقط تغيير كلمة TRUE في الجملة التي تتوفر فيها 02 علي سبيل المثال اتمني ان اكون قد وضحت القصد وشكرا للتجاوب للاخ حسن السجيب لقد وجدت لك كود للاستبدال فهل يمكن تعديله بحيث يكون هناك شرط في الاستبدال في المدي المعين للاستبدال ومرفق الكود الخاص بك وبعد اذنك لو يقوم اي من الاخوه بالتعديل فجزاه الله خيرا الكود Sub Replace() On Error GoTo MyErr Set MyRange = Application.InputBox(prompt:="حدد النطاق الذي تود الإستبدال منه", Title:="نطاق الإستبدال", Type:=8) A = Application.InputBox("ضغ الكلمة التي تود إستبدالها هنا" & vbNewLine & "" & vbNewLine & "(يمكنك وضع مرجع للكلمة بدل كتابتها)", "الكلمة المُراد إستبدالها") B = Application.InputBox("ضع الكلمة الجديدة هنا" & vbNewLine & "" & vbNewLine & "(يمكنك وضع مرجع للكلمة بدل كتابتها)", "الكلمة الجديدة") MyRange.Replace A, B MyErr: Exit Sub End Sub

اخواني في الله السلام عليكم فضلا اريد المساعدة في كيفية استبدال كلمة في جملة بشرط وجود كلمة اخري في هذه الجملة في الاكسل مثل هذا المثال 5000-00,TRUE,0,0, التكلفة المباشرة 5000-01,TRUE,0,0,التكلفة المباشرة لفرع 1 5000-02,TRUE,0,0,التكلفة المباشرة لفرع 2 فعلي سبيل المثال اريد ان استبدل TRUE الي FALSE في الجملة التي بها 02 فكيف يتم ذلك وتقبلوا وافر التحية والتقدير

اشكركم لردكم الكريم وتقبلوا مني ومن كل الزملاء خالص التحية ودوما للامام

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

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

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

الاخ العزيز برنامج جيد ولكن ينقصة بعض الاشياء الهامة بما يخص الحسابات فهو يحتاج ان يكون متكامل فمن الممكن ان نقوم بالمناقشة سويا علي الايميل hitemy@hotmail.com وبعد ذلك نعرض للاخوه ما توصلنا له في المنتدي لكي يستفيد الجميع

ارجوا منك اخي العزيز رفع الملف علي موقع يكون مفتوح بالسعودية لكي يستفيد منه الجميع او ارسالة علي ايميلي وسوف اقوم برفعة علي موقع يكون متاح للجميع HITEMY@gmail.com وتقبل وافر التحية