محمد حسن المحمد

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

تفضل اخي الكريم الفرق بين تاريخين66999999776660 (1).xlsx

وأن شئت هكذا الفرق بين تاريخين666660.xlsx

تفضل أخي الكريم الفرق بين تاريخين666660.xlsx

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

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً وأحسن إليكم آمين الحقيقة: إن هذه الحياة الدنيا ظل زائل ، ولا يبقى إلا الذكرى الطيبة بين الناس ...ولذلك فإن الله تعالى لا يريد لنا العنت ولا يريد بنا العسر بل يريد بنا اليسر ... ومن خلال سيرة النبي محمد صلى الله عليه وآله وسلّم كان يحب التفاؤل حتى في تسمية الأولاد علماً أن الحياة ستمر بكل سهامها ... ولم لا ؟! .... وها نحن نقضي سنوات من أعمارنا نتوق إلى لحظة يلتئم شملنا بأهلنا الذين لا زالوا على قيد الحياة بعد أن طحنتنا هذه الحرب الضروس وعلى الرغم من كل ذلك لن نيأس من روح الله تعالى .... ستزول هذه الغمة بإذن الله تعالى وسيكون هذا الشريط القاتم من الذكريات المؤلمة... سينبلج فجر جديد بعد طول هذا الليل الذي نقاسيه. تقبلوا مروري والسلام عليكم

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: تم التحكم بحجم البيانات من خلال طريقة العمل التالية: ثم وضع ذلك في الكود Sub طباعة() ActiveWindow.SelectedSheets.PrintOut copies:=2 End Sub __________________________________________________________________________________________________________________________________ أعتذر للأستاذ الكريم نزار سليمان عيد لم أشاهد مشاركته إلا بعد أن شاركت بها وعلى كل هذا رافد ...والتنوع طيب ... بارك الله بكم تقبلوا مروري والسلام عليكم طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm

السلام عليكم ورحمة الله وبركاته 💐 وبارك بكم، أشكركم على ردكم الجميل أخي العزيز @2005sft كما أشكر ولدي الحبيب أبو بسمله @احمد الفلاحجي على مروركم العطر ورفد الموضوع بمشاركة حول تنزيل وتفعيل أداة Kutools For Excel بارك الله بكم وجزاكم الله خيرا وأحسن إليكم آمين يارب العالمين 🏵️🌸💐 والسلام عليكم ورحمة الله وبركاته 💐

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

الحمد لله الذي بنعمته تتم الصالحات 🌿🌿🌿🌿🌴🌴🌴🌴💐💐🌴🌴🌴🌴🌿🌿🌿🌿

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وأحسن إليكم آمين يارب العالمين 🏵️🌺 أسأل الله تعالى أن يوفقنا وإياكم لما يحب ويرضى آمين والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸

السلام عليكم ورحمة الله وبركاته 💐🏵️🌸 أستاذنا الفاضل @محمد طاهر جزاكم الله خيرا وأحسن إليكم آمين إضافة ممتازة وهامة. بارك الله بكم تقبلوا تحياتي العطرة لشخصكم الكريم والسلام عليكم ورحمة الله وبركاته 💐🌺😊

Function Ceiling2&(n#) Ceiling2 = -Int(-n) If n < 0 Then Ceil = Fix(n) End Function السلام عليكم جرب هذه الدالة

السلام عليكم أخي الكريم يرجى معاينة الملف التالي بعد التعديل عليه أرجو أن يناسبك الحل Activex Combo box.xlsm

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً أختي الكريمة على نشر هذه الأحاديث الشريفة، راجياً من الله تبلغ القاصي والداني وأن يعم نفعها وأن يجعل ذلك بميزان حسناتكم ...آمين والسلام عليكم

هل كانت هذه المعلومة مفيدة؟!.

السلام عليكم ورحمة الله وبركاته أخي الكريم @2005sft رفع الله قدرك وأعلى شأنك وبعد: أما عن أدوات Kutools For Excel فهي مجموعة إضافات تسهل التعامل بالإكسيل قد تكون نزلتها ثم لم تعدّها بشكل تام على حاسوبك فيعطيك هذه الملاحظة وهي - والله أعلم - خدمات مدفوعة وبذلك يكون قد تم التطرق لأحد أسئلتك الكريمة إليك الرابط: من هنا أخي الكريم أما عن السؤال الآخر ذو شقين يتعلق الأول منهما بنطاق التاريخ في كل شيت bb5:bb22 أي في كل شيت في العمود BB ستجد تاريخ انتهاء كل سنة وهنا وضعها في النطاق من bb5 حتى bb22 كما سترى لاحقاً في صورة من الملف ، أما الشق الثاني هو يتعلق بنطاق ناتج قيمة مبلغ الزكاة في كل سنة وفق الكود التالي: Function kh_Sum_Hijri(MyNSheet As String, Firstdate As String, Enddate As String, Rngdate As String, RngSum As String) Dim kh_Calendar As Integer kh_Calendar = Calendar Calendar = vbCalHijri If IsDate(Firstdate) And IsDate(Enddate) Then kh_Sum_Hijri = kh_Sum(CDate(Firstdate), CDate(Enddate), Sheets(MyNSheet).Range(Rngdate), Sheets(MyNSheet).Range(RngSum)) End If Calendar = kh_Calendar End Function حيث أن Range(Rngdate) هو bb5:bb22 و Range(RngSum) هو bj5:bj22 والله أعلى وأعلم تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته.

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

السلام عليكم ورحمة الله وبركاته من File>>Options>>Advanced>>Show sheet tabs تلغي التحقق من خانة التحقق كما في الصورة أدناه.

السلام عليكم ورحمة الله وبركاته إليك ما طلبت أخي الكريم تقبل تحياتي نمؤذج.xlsx

السلام عليكم ورحمة الله وبركاته ما شاء الله بارك الله أخي الحبيب @lionheart حل رائع ، مذهل ، أحسنتم بارك الله بكم تقبل تحياتي العطرة لشخصكم الكريم. والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته 💐 أخي الكريم هل هذا ما تريد الوصول إليه فإن لم يكن يرجى التوضيح اكثر تم استخدام الدالة Sumif للوصول إلى النتائج لكن بعد إلغاء دمج الخلايا في ملف البيانات كما يلي: ملحص.xlsx

السلام عليكم ورحمة الله وبركاته 💐 يرجى النظر في الملف المرفق تقبل تحياتي العطرة الفرق بين تاريخين.xlsx

السلام عليكم ورحمة الله وبركاته لإجراء اللصق في الخلايا المصفاة أو ما يجاورها، نذهب إلى أعلى خلية في المكان المراد اللصق فيه مثلاً D2 من D2 :D10 نكتب فيها = أول خلية مراد نسخها مثلاً: =A2 = أول خلية مراد نسخها ثم نحدد النطاق المراد اللصق فيه على أن تكون أول خلية محددة D2 ثم نضغط على زري CTRL+Enter معاً. والله أعلم لمزيد من المعلومات يمكنك متابعة هذا الفيديو والسلام عليكم

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