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

السلام عليكم ورحمة الله وبركاتهواجهتني صعوبة في تحديد أكثر من خيار باستخدام دالة VLOOKUP وذلك ضمن برنامج شيكات لنقوم مثلاً بالاستعلام عن الشيك من خلال الرقمحيث وجدت أنه توجد أرقام متشابهة لأكثر من شيك ضمن بنك واحد أو أكثر ...فكيف لي اختيار الشيك الآخر بالاستعلام لطبعه مثلاً ؟..وقد استخدمت دالة VLOOKUP بشرط اسم المصرف لكن لم يجدِ نفعاً.. =IFERROR(IF(AND($L$3=$O$2;$H$3=$P$2);VLOOKUP($O$2;الجدول1[[رقم الشيك]:[تاريخ الدفع]];5;0);"");"") قمت بإرفاق صورتين لتوضيح المطلوب علماً أن اسم المستخدم admin وكلمة السر هي 123 والأوراق المحمية دون كلمة مروروالسلام عليكم ورحمة الله وبركاته. الشيكات.rar

السلام عليكم ورحمة الله وبركاته أخي الكريم حمادة أبو سما المحترم أدعو الله تعالى لوالديك أن يرحمهما في الدنيا والآخرة ...وبالمقابل أرجو منك الدعاء لنا أن يغفر لنا ولوالدينا وللمؤمنين وأن يرحمنا وأن يتجاوز عن سيئاتنا وخطايانا أجمعين يوم يقوم الحساب ...آمين...آمين أخي الحبيب فتحت باباً واسعاً ...قد فتحه عدد من السادة العلماء النجباء ...وهذا الباب يطرقه الكثيرون أمثالي ممن يريدون النهل من معين صافٍ فياضٍ ... ولذلك أرجو الله تعالى أن يكون علماً نافعاً تحصل منه على خيري الدنيا والآخرة ...ولكن ما نطلبه – فضلاً لا أمراً - هو الشرح المباشر بالتسلسل مدعوماً بالصور أو الفيديو وفي نهاية المحاضرة يكون ملف PDF لمن يريد المراجعة وإثراء معلوماته ... والسلام عليكم ورحمة الله وبركاته... أخوكم المحب لكم أبو يوسف

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

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

السلام عليكم ورحمة الله وبركاته بارك الله بكم على كل ما تنشرونه وجعله الله تعالى بميزان حسناتكم شاهداً لكم لا عليكم ...أرجو الله تعالى أن يمتعنا بالنظر إلى وجهه الكريم يوم تبيض وجوه وتسود وجوه... آمين ...آمين ..والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين.

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

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

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

السلام عليكم ورحمة الله وبركاته الحمد لله الذي رزقك أخاً لإسراء ...يعوضك عن غياب إخوتك وأخواتك .. { الْمَالُ وَالْبَنُونَ زِينَةُ الْحَيَاةِ الدُّنْيَا } [الكهف:46] ولهذا فاستقبل عطية الله عز وجل بفرح وسرور وشكر وحمد بورك لك في الموهوب وشكرت الواهب وبلغ رشده ورزقت بره وأرجو الله أن يجعل ذرياتكم صالحين ناصحين بارين ...تهانينا الحارة بالمولود الجديد.... والسلام عليكم ورحمة الله وبركاته

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

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

جزاكم الله خيراً. بارك الله بكم.

السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. 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 يرجى التعديل عليها ليتم المطلوب كما أرجو أن ينفع الله بها وأن يجعلها خالصة لوجهه الكريم. والسلام عليكم ورحمة الله وبركاته. أعتذر عن التكرار.

السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام أقدم لكم دالة تتعلق بالحساب بين تاريخين راجياً أن أجد لدى أساتذتنا المهتمين بالبرمجة التعديل عليها وإصلاح عيوبها المتمثلة بما يلي: *الفرق بين تاريخين: مراقبة هل يعطي النتيجة الدقيقة أم لا؟. 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

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

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

وإياكم أخي الكريم أشكر مروركم العطر

أشكركم على مروركم العطر أستاذ Michel أرجو أن ينال إعجابكم.

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