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

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

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

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

هذا من فضل ربي ثم بفضلكم ومتابعتي لعلومكم التي أرجو الله تعالى أن يجعلها بميزان حسناتكم...حبيبي أبو أسيل. تقبل أعطر وأزكى تحياتي وأمنياتي لكم

السلام عليكم ورحمة الله وبركاته أحبتي أساتذتي الكرام الذين لطالما تعلمت منهم واستأنست بهم.. أحببت مشاركة إخوتي الكرام بمنتدانا الكريم بعمل بسيط أرجو الله تعالى أن ينفع به وأن يكون خالصاً في سبيله .. لقد اطلعت على فيديوهات تتعلق بالتركيز على الـ vba للتخفيف من حجم الملف بالمعادلات ... ولا أدري إن كانت ستحقق هذه الفائدة في الملفات كبيرة الحجم هذه الدالة التي أضفتها تعتمد على (عملية ضرب الكمية بالسعر بشرط )متعلق بعمود مساعد كما هو مبين بالمرفق أدناه. Function QtyUnitPrice(NoPlank As String, Qty As String, UnitPrice As String) 'احتساب الثمن باستخدام دالة ضمنvba If NoPlank <> "" Then NoPlank = NoPlank QtyUnitPrice = Qty * UnitPrice Else QtyUnitPrice = "" End If End Function لكنني أحببت تعريب مسمياتها محبة بلغتي ورجاء أن تدخل عالم البرمجة ذات يوم...كما يلي: Function احتساب_الثمن(دون_فراغ As String, الكمية As String, سعر_الوحدة As String) 'احتساب الثمن باستخدام دالة ضمنvba يتم تعريب التسميات If دون_فراغ <> "" Then دون_فراغ = دون_فراغ احتساب_الثمن = الكمية * سعر_الوحدة Else احتساب_الثمن = "" End If End Function يمكنكم التعديل عليها وإضافة الشروط التي ترغبونها لتوافق ملفاتكم ....أرجو توجيهي في حال وجود أي خطأ فيها كوني مبتدئ بهذا المجال والسلام عليكم ورحمة الله وبركاته. فاتورة مبيع محمد.rar كما أرجو أن تكون هناك جدولة للدوال التي يقوم السادة الأعضاء الكرام بإرفاقها لنستفيد منها أو ليستفيد أبناؤنا الأحبة منها.