بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الخبراء
  • Content count

    1,521
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    9

محمد حسن المحمد last won the day on December 14 2015

محمد حسن المحمد had the most liked content!

السمعه بالموقع

1,602 Excellent

عن العضو محمد حسن المحمد

  • الرتبه
    أبو يوسف

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    معلم وحالياً محاسب

اخر الزوار

6,754 زياره للملف الشخصي
  1. جزاكم الله خيراً فيديو رائع وجميل كما ذكرت
  2. بارك الله بكم وأحسن إليكم أخي الغالي أبو أدهم تعطرت هذه المشاركة بوجودكم...تقبل تحياتي.
  3. تم الحل بفضل الله تعالى لجزء كبير من المطلوب.. الشيكات.rar
  4. السلام عليكم ورحمة الله وبركاتهواجهتني صعوبة في تحديد أكثر من خيار باستخدام دالة VLOOKUP وذلك ضمن برنامج شيكات لنقوم مثلاً بالاستعلام عن الشيك من خلال الرقمحيث وجدت أنه توجد أرقام متشابهة لأكثر من شيك ضمن بنك واحد أو أكثر ...فكيف لي اختيار الشيك الآخر بالاستعلام لطبعه مثلاً ؟..وقد استخدمت دالة VLOOKUP بشرط اسم المصرف لكن لم يجدِ نفعاً.. =IFERROR(IF(AND($L$3=$O$2;$H$3=$P$2);VLOOKUP($O$2;الجدول1[[رقم الشيك]:[تاريخ الدفع]];5;0);"");"") قمت بإرفاق صورتين لتوضيح المطلوب علماً أن اسم المستخدم admin وكلمة السر هي 123 والأوراق المحمية دون كلمة مروروالسلام عليكم ورحمة الله وبركاته. الشيكات.rar
  5. السلام عليكم ورحمة الله وبركاته أخي الكريم حمادة أبو سما المحترم أدعو الله تعالى لوالديك أن يرحمهما في الدنيا والآخرة ...وبالمقابل أرجو منك الدعاء لنا أن يغفر لنا ولوالدينا وللمؤمنين وأن يرحمنا وأن يتجاوز عن سيئاتنا وخطايانا أجمعين يوم يقوم الحساب ...آمين...آمين أخي الحبيب فتحت باباً واسعاً ...قد فتحه عدد من السادة العلماء النجباء ...وهذا الباب يطرقه الكثيرون أمثالي ممن يريدون النهل من معين صافٍ فياضٍ ... ولذلك أرجو الله تعالى أن يكون علماً نافعاً تحصل منه على خيري الدنيا والآخرة ...ولكن ما نطلبه – فضلاً لا أمراً - هو الشرح المباشر بالتسلسل مدعوماً بالصور أو الفيديو وفي نهاية المحاضرة يكون ملف PDF لمن يريد المراجعة وإثراء معلوماته ... والسلام عليكم ورحمة الله وبركاته... أخوكم المحب لكم أبو يوسف
  6. وعليكم السلام ورحمة الله وبركاته ...أخي الكريم أرى أن تكتب موضوعاً منفصلاً توضح به طلبك ضمن تسلسل معين على أن ترفق الملف المراد التعديل عليه أو نموذجاً مشابهاً له ....وسيقوم الإخوة المشرفون خبراء الإكسيل بمساعدتك ...أما عن نفسي فإنني لا زلت أبحث عن علم نافع بما يتسنى لي من وقت ...فاعذرني لأن عملي يأخذ جلّ وقتي ...والسلام عليكم ورحمة الله وبركاته.
  7. السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على هذه الموضوعات المفيدة والمطلوبة ليتم مشاركتها بين عدة أشخاص تسهيلاً وتذليلاً لمصاعب العمل حيث يتم توزيعه إلى عدة مندوبين من حيث المبدأ فكرة رائعة وجميلة كروعة أدائك المتميز باستمرار أخي الحبيب الزباري ... لكن جربتها ونزلت المرفق كما ذكرت فك الضغط عنه على سطح المكتب ...أعطاني Error وبما أن غيري من الأساتذة الكرام قد جربه ونجح فالخطأ أكيد في طريقة وضعي له ..أفيدونا جزاكم الله خيراً ...والسلام عليكم.
  8. استاذ محمد حسن حضرتك ممكن تتواصل معايا أخي الكريم هاني السلام عليكم ورحمة الله وبركاته ...أتشرف بالتواصل معكم ولكن اسمع عذري وبعدها قرر: الحقيقة التي يعلمها الكثيرون من الأساتذة الكرام أنني مبتدئ في هذا البحر الزاخر ...وما قدمني بينهم إلا عاطفة الأبوة والأخوة التي أحسها تجاههم .. أما إن كنت تريد معرفة العلم على أصوله فاطرق أبواب أربابه ولا تمل وهم لن يبخلوا لأنه مجال لا مجال للبخل به ....وهل يرضى أن يحوز على رضى الناس ويغضب ربه بكتمان العلم وكيف سينتقل العلم إلى الأجيال القادمة في حال كتمانه. والسلام عليكم ورحمة الله وبركاته.
  9. بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ..أما بعد: أخي الحبيب محمد أبو صهيب المحترم السلام عليكم ورحمة الله وبركاته ما شاء الله بارك الله أبدعت وأحسنت.. أرجو من إدارة المنتدى الكرام إعطاءه حقه بأن يكون من مشرفي الموقع أو الخبراء لأنه بحق يستحقها بجدارة دون أي مدح أو إطراء... والسلام عليكم ورحمة الله وبركاته.
  10. احتساب الثمن

    وعليكم السلام أخي الحبيب جلال الجمال أبو أدهم بارك الله بكم ..شكراً على مروركم العطر وكلامكم الطيب. أعتذر لكل الإخوة الذين حمّلوا المرفق في المشاركة الأولى إن كان المرفق خالياً من المضمون ...لقد نزلته عدة مرات يحتوي على WinRAR دون مضمون ...أجهل السبب...والغاية من تفريغه من مضمونه. فإن كان به ضرر لأي شخص فإنني أسحب مشاركاتي مع شديد الأسف. رابط خارجي للملف ...أرجو أن لا يلحق بأخيه.
  11. add to date

    جزاكم الله خيرا أخي الحبيب عبد العزيز على هذا الدعاء الطيب.. تقبل تحياتي والسلام عليكم.
  12. add to date

    جزاكم الله خيراً. بارك الله بكم.
  13. السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. Function TwoDates(OldDate As String, NewDate As String) As String 'الفرق بين تاريخين If NewDate <> 0 Then If OldDate <> 0 Then TwoDates = Year(NewDate - OldDate) - 1900 & " years " & Month(NewDate - OldDate) - 1 & " months " & Day(NewDate - OldDate) + 1 & " days " Else TwoDates = "" End If End If End Function Function بين_تاريخين(تاريخ_قديم As String, تاريخ_جديد As String) As String 'الفرق بين تاريخين If تاريخ_جديد <> "" Then If تاريخ_قديم <> "" Then بين_تاريخين = Year(تاريخ_جديد - تاريخ_قديم) - 1900 & " سنة " & Month(تاريخ_جديد - تاريخ_قديم) - 1 & " شهر " & Day(تاريخ_جديد - تاريخ_قديم) + 1 & " أيام " Else بين_تاريخين = "" End If End If End Function لا تقبل التاريخ كتنسيق تاريخ بل تنسيق عام قمت بإرفاق عمود مساعد للتحويل التاريخ إلى رقم للتاريخين القديم والجديد. *إضافة أو طرح من تاريخ معين: أرغب بأن يدخل أو يخرج القيمة كتاريخ بدلاً من إظهارها كرقم كما يلي:(علماً أنه يجب أن لا يترك أي شرط من شروطها فارغاً ...يمكن وضع قيمة صفر بدلاً من تركه فارغاً)... Function AddToDate(MyDate As String, Before As String, After As String) As String 'طرح أو إضافة لتاربخ If Before <> "" Then If After <> "" Then AddToDate = MyDate - Before + After Else AddToDate = "" End If End If End Function Function BeforeDate(MyDate As String, Before As String) As String 'طرح من تاربخ If Before <> "" Then BeforeDate = "" BeforeDate = MyDate - Before Else BeforeDate = "" End If End Function Function AfterDate(MyDate As String, After As String) As String 'إضافة لتاربخ If MyDate <> "" Then AfterDate = -(-After) - (-MyDate) End If End Function يرجى التعديل عليها ليتم المطلوب كما أرجو أن ينفع الله بها وأن يجعلها خالصة لوجهه الكريم. والسلام عليكم ورحمة الله وبركاته. أعتذر عن التكرار.
  14. السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. Function TwoDates(OldDate As String, NewDate As String) As String 'الفرق بين تاريخين If NewDate <> 0 Then If OldDate <> 0 Then TwoDates = Year(NewDate - OldDate) - 1900 & " years " & Month(NewDate - OldDate) - 1 & " months " & Day(NewDate - OldDate) + 1 & " days " Else TwoDates = "" End If End If End Function Function بين_تاريخين(تاريخ_قديم As String, تاريخ_جديد As String) As String 'الفرق بين تاريخين If تاريخ_جديد <> "" Then If تاريخ_قديم <> "" Then بين_تاريخين = Year(تاريخ_جديد - تاريخ_قديم) - 1900 & " سنة " & Month(تاريخ_جديد - تاريخ_قديم) - 1 & " شهر " & Day(تاريخ_جديد - تاريخ_قديم) + 1 & " أيام " Else بين_تاريخين = "" End If End If End Function لا تقبل التاريخ كتنسيق تاريخ بل تنسيق عام قمت بإرفاق عمود مساعد للتحويل التاريخ إلى رقم للتاريخين القديم والجديد. *إضافة أو طرح من تاريخ معين: أرغب بأن يدخل أو يخرج القيمة كتاريخ بدلاً من إظهارها كرقم كما يلي:(علماً أنه يجب أن لا يترك أي شرط من شروطها فارغاً ...يمكن وضع قيمة صفر بدلاً من تركه فارغاً)... Function AddToDate(MyDate As String, Before As String, After As String) As String 'طرح أو إضافة لتاربخ If Before <> "" Then If After <> "" Then AddToDate = MyDate - Before + After Else AddToDate = "" End If End If End Function Function BeforeDate(MyDate As String, Before As String) As String 'طرح من تاربخ If Before <> "" Then BeforeDate = "" BeforeDate = MyDate - Before Else BeforeDate = "" End If End Function Function AfterDate(MyDate As String, After As String) As String 'إضافة لتاربخ If MyDate <> "" Then AfterDate = -(-After) - (-MyDate) End If End Function يرجى التعديل عليها ليتم المطلوب كما أرجو أن ينفع الله بها وأن يجعلها خالصة لوجهه الكريم. والسلام عليكم ورحمة الله وبركاته. دوال تاريخ.rar
  15. احتساب الثمن

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