الشهابي

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

الأخ العزيز / أبو سلام جزاك الله خير على التنبيه فعلا لا حطت ذلك وتم إضافة إشارة أصغرقبل إشارة يساوي في هذا الجزء من المعادلة IF(A2-INT(A2)<=0.1;INT(A2) وضبطت المعادلة والحمد لله حيث ستصبح المعادلة كالتالي : =IF(A2-INT(A2)>0.5;INT(A2)+1;IF(A2-INT(A2)>0.1;INT(A2)+0.5;IF(A2-INT(A2)<=0.1;INT(A2);IF(A2-INT(A2)=0;A2)))) فضلا استبدل المعادلة واخبرني بالنتيجة جزاك الله خير

الأخ العزيز / kinggraphic السلام عليكم ورحمة الله وبركاته أهلا وسهلا بك في هذا المنتدى ومرحباً بك عضواً جديداً فيه ويسعدني أن أرد على استفسارك حول التقريب الخاص اللي طلبته وهذه المعادلة حسب التقريب اللي طلبته =IF(A2-INT(A2)>0.5;INT(A2)+1;IF(A2-INT(A2)>0.1;INT(A2)+0.5;IF(A2-INT(A2)=0.1;INT(A2);IF(A2-INT(A2)=0;A2)))) يمكنك أن تغير الخلية التي تريد تقريب الرقم منها وهي هنا في المعادلة الخلية (A2 ) وهذا ملف مرفق تم تعديل المشاركة حيث تم اكتشاف خطأ في المعادلة وتم التصحيح أرجو إن كنت حملت الملف السابق أن تحذفه وتحمل الملف الجديد تقريب خاص.rar

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

أخي العزيز / عبد السلام الزوي ضع المعادلة التالية في الخلية (AA16) =IF(OR(H16="-";H16<$H$12;K16="-";K16<$K$12;N16="-";N16<$N$12;Q16="-";Q16<$Q$12; T16="-";T16<$T$12;W16="-";W16<$W$12;Z16="-";Z16<$Z$12);" ";SUM(H16;K16;N16;Q16;T16;W16;Z16)) إن شاء الله تكون صحيحة

أبونا / عبد الله المجرب واعذرني عن وصفك بالأب ليس تكبيراً لك فأنت لا شك صغير السن بس كبير في عطائه أنت مثل الأب الذي يتفقد أبنائه ويسعى لإسعادهم دوماً الله يسعدك في الدنيا والآخرة ويحفظك من كل مكروه ابنكم المحب لكم / الشهابي

أخي العزيز / الفرس لست من خبراء المنتدى وليس لدي الخبرة الكافية ولكن جوابي حسب ما يحدث لي ربما يكون هو اللي عندك فربما أن الملف مرتبط بملف آخر وبالتالي عند فتح الملف يتم تحديث الإرتباطات تلقائياً وعند غلق الملف يطالبك بالحفظ لن التحديث يعتبر تغير وهذا حسب علمي

أستاذنا الكبير / طارق محمود دائماً رائع بارك الله فيك وزادك علماً ورفعةً

أخي العزيز / amer1960 شكراً جزيلاً أخي العزيز على كلماتك الطيبة وحسن ثناءك ودعاءك الغالي أعطاك الله مثله و أزيد الحمد لله أنه هو المطلوب وما نقدمه إنما هو من كرم هذا المنتدى وأعضائه الكرام الذين أنتم واحد منهم وجزاك الله خير مرة أخر تقبل تحياتي أخوك / الشهابي

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

أخي العزيز / amer1960 تم الاستعانة بكودين لأستاذنا القدير / عبد الله المجرب أبو أحمد حفظه الله فالكود الأول لجلب البيانات من أوراق العمل في المستند تلقائياً وذلك في المدى ( A150:F176) حيت كلما زادت ورقة عمل بنفس التنسيق سيتم إضافة بياناتها في هذا المدى وتم استثناء ورقة ( طباعة الشيك ) وورقة ( الفروع ) لأن بياناتها تختلف حيث يبدأ الكود من الورقة رقم 3 وتم زيادة ورقة باسم ( المهاري(2)) لملاحظة زيادة البيانات ويمكنك أن تزيد ما تشاء من المصارف وفروعها Private Sub Worksheet_Activate() Application.ScreenUpdating = False For x = 3 To Sheets.Count Cells(x + 147, "B") = Sheets(x).Name Next x Application.ScreenUpdating = True[/b] [b]End Sub[/b] [b] الكود الثاني يتعلق بزر الزيادة والنقصان حيث يتغير اسم المصرف بالنقر على ذلك الزر ويتبعه تغير القيمة بالأرقام والحروف Private Sub SpinButton1_SpinDown() If [B7] < 2 Then Exit Sub t = [B7] - 1 [B7] = t [D13] = Cells(t + 149, 3)[/b] [b]End Sub Private Sub SpinButton1_SpinUp() If [B7] > 27 Then Exit Sub t = [B7] + 1 [B7] = t [D13] = Cells(t + 149, 3)[/b] [b]End Sub كما يمكنك اختيار الأسماء من القائمة المنسدلة في خلية اسم المصرف التي عملتها أنت فقط تم تغيرها بقائمة منسدلة مطاطية كما استفدناه من أستاذنا الكبير كيماس حفظه الله وبالنسبة للقيمة الرقمية تم دمج الرقيمتين الدينار والدرهم في خلية واحد والفصل بينهما بكومة يمكنك أن تلغيها أو تجعل كل قيمة في خلية مستقلة حسب رغبتك ن لاحظ الملف المرفق إن شاء الله نكون توفقنا معك وهذا هو مطلوبك لطباعة الشيكات.rar

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

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

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

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

أشاطرك الراي أستاذنا الكبير / دغيدي شهادة من أستاذ لأستاذ حفظك الله أستاذنا الكريم / عبد الله المجرب

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

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

أخي العزيز / mohammadey1 بارك الله فيك وجزاك الله خير أكواد جميلة وبالنسبة لاستفسارك هناك فائدة لأستاذنا عبد الله باقشير وهي : قبل نسخ أي كود أولا قم بتحويل اللغة في شريط اللغة إلى اللغة العربية أي اجعل المؤشر يكتب باللغة العربية ثم انسخ الكود

أخي العزيز / herni يمكنك استخدام دالة COUNTIF عن طريق المعادلة التالية : =COUNTIF($A$1:$A$25;E5) ثم تقوم بسحبها للأسفل جرب المرفق أخي العزيز جدول الموظفين.rar

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

أستاذنا / رجب جاويش ما شاء الله تبارك الله هناك أكواد كثيرة لترحيل الناجحين والراسبين بس أعجبتني فكرة الكود تبعك وخاصة هذه الطريقة Range("a" & i).Resize(1, 104).Copy أستاذنا / أنتم مدرسة أكواد نتعلم منها

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

أخي العزيز / mathhero تم الاستعانة بدالة مستحدثة للأستاذ الكبير عماد الحسامي فقد تم استبدال المعادلات عندك بمعادلات دالة أستاذنا الحسامي وتم وضع درجات عشوائية للتأكد من عمل الدالة لاحظ المرفق تحليل النتائج الثاني عشر.rar

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