استخراج قيمة محددة من جدول بين تاريخين

[المحامي خالد]

السلام عليكم

 

محتاج مساعدة في كيفية استخراج قيمة محددة من جدول بين تاريخين ، بمعني أنه عندي جدول الصف فيه يحتوي على البيانات الآتية:-

(سعر الفائدة المطبقة) (تاريخ بدء تطبيق السعر) (تاريخ انتهاء تطبيق السعر)

 

وهكذا يستمر الجدول لغاية 20 صف تقريباً .

 

سؤالي: 

كيف يمكنني وضع صيغة تمكنني لو أني وضعت التاريخ في خانة معينة فيقوم البرنامج بمطابقة موقع هذا التاريخ بين) (تاريخ بدء تطبيق السعر) (تاريخ انتهاء تطبيق السعر)

 

ومن ثم يضع لي النسبة المقررة .

تم تعديل فبراير 23, 2014 بواسطه المحامي خالد

[رجب جاويش]

أخى الفاضل / المحامي خالد

أولا : مرحبا بك أخى الفاضل فى منتدى أوفيسنا العريق

ثانيا: يرجى اختيار عنوان مناسب للموضوع يدل على محتوى الطلب

ثالثا : يرجى وضع مرفق توضح به ما تريد حتى يسهل العمل عليه

رابعا: تم تغيير العنوان ولكن فضلا الاهتمام بهذه النقطة فى المرات القادمة

[المحامي خالد]

أخى الفاضل / المحامي خالد

أولا : مرحبا بك أخى الفاضل فى منتدى أوفيسنا العريق

ثانيا: يرجى اختيار عنوان مناسب للموضوع يدل على محتوى الطلب

ثالثا : يرجى وضع مرفق توضح به ما تريد حتى يسهل العمل عليه

رابعا: تم تغيير العنوان ولكن فضلا الاهتمام بهذه النقطة فى المرات القادمة

أعتذر ، ووسأكون أكثر حرصاً في المرات القادمة ، خالص تحياتي وتقديري .

[رجب جاويش]

أخى الفاضل / المحامى خالد

لا داعى للإعتذار أخى الفاضل

وشكرا جزيلا لك على سرعة التواصل

[جمال عبد السميع]

بعد حديث أستاذنا الرائع ( رجب جاويش )

عن القواعد المثلى للمشاركة

أيضا يستحسن أستاذى ليكون طلب حضرتك أسرع وأدق فى التنفيذ من قبل الزملاء ، وراغبى المساعدة 

أن ترسل مرفق يحتوى على المطلوب وشكل المطلوب المرجو من الحل

ولرفع المرفق على الموقع لابد أن تضغط الملف بأحد برامج الضغط على سبيل المثال ( WINRAR )

ثم قم برفعة وإن شاء الله تجد الحل سريعا

تقبل تحياتى : ومرحبا بك مرة ثانية أخا كريما بين أخوتك

[المحامي خالد]

بعد حديث أستاذنا الرائع ( رجب جاويش )

عن القواعد المثلى للمشاركة

أيضا يستحسن أستاذى ليكون طلب حضرتك أسرع وأدق فى التنفيذ من قبل الزملاء ، وراغبى المساعدة 

أن ترسل مرفق يحتوى على المطلوب وشكل المطلوب المرجو من الحل

ولرفع المرفق على الموقع لابد أن تضغط الملف بأحد برامج الضغط على سبيل المثال ( WINRAR )

ثم قم برفعة وإن شاء الله تجد الحل سريعا

تقبل تحياتى : ومرحبا بك مرة ثانية أخا كريما بين أخوتك

كيف استطيع رفع الملف ؟

[جمال عبد السميع]

أخى الخطوات فى منتهى البساطة

1- قم بعمل المطلوب بشكل مختصر داخل ملف أكسيل ( مثال على المطلوب تنفيذة )

2- ثم قم بضغطة ببرنامج ( WINRAR ) وإذا لم يكن لديك ، عن طريق ( GOOGLE ) ستجد العديد من الأصدارات أختر أيا منهم

3-ستجد فى نهاية هذة الصفحة مستطيل ( أضافة رد )

4- فى نهايتها ستجد مستطيلان أحدهما مكتوب فية ( مشاركة ) والأخر ( المحرر الكامل )

5- أضغط على المحرر الكامل سينقل حضرتك إلى صفحة أخرى تسمى معاينة الموضوع

6- ستجد أسفلها عبارة ( أرفاق ملفات ) وأسفلها ( BROWSE ) أضغط عليها ستذهب بك إلى المكان إللى حضرتك واضع به ملفك الذى سبق عملة وضغطتة ب ( WINRAR )

وبعد ذلك أضغط (أرفاق الملف ) ليتم رفعة

أرجو أن يكون الشرح واضحا

تقبل تحياتى

[المحامي خالد]

أخواني الكرام ،،

مرفق الملف المطلوب العمل عليه .

 

شكرا مقدماً لكم

سعر فائدة المركزي.zip

[جمال عبد السميع]

إلى حضرتك المطلوب أخى

وقد أضفت ميزة البحث بين تاريخين

 

سعر فائدة المركزي.rar

[عادل ابوزيد]

الاستاذ الفاضل جمال

شئ رائع جددددددددددددددددددا

عمل ممتاااااااااااااااااااااااااااااااااز

بارك الله لك وفيك وزادك من عملمه وفضله

[المحامي خالد]

إلى حضرتك المطلوب أخى

وقد أضفت ميزة البحث بين تاريخين

مجهود ممتاز اخي الكريم .

 

ولكن ليس هكذا المطلوب ، المطلوب هو وفقاً لما تم شرحه بحيث فقط اقوم بادخال التاريخ فيقوم البرنامج بحساب النسبة التي تتفق مع هذا التاريخ

 

خالص تحياتي وتقديري

[رجب جاويش]

بعد اذن أخى الحبيب / جمال عبد السميع

 

أخى الفاضل / المحامى خالد

جرب المرفق

 

سعر فائدة المركزي1.rar

[رجب جاويش]

وهذا حل آخر

 

سعر فائدة المركزي2.rar

[رجب جاويش]

وهذا حل آخر عن طريق الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iBOOL As Boolean
If Target.Address = [F5].Address Then
    If Target.Count > 1 Then Exit Sub
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LR
        If Target >= Cells(i, 2) And Target <= Cells(i, 3) Then
        iBOOL = True
        [F7] = Cells(i, 4): Exit For
        End If
    Next
    If Not iBOOL Then
        MsgBox "لا يوجد سعر فائدة مناظر لهذا التاريخ"
        [F7] = ""
        [F5].Select
        Exit Sub
    End If
End If
End Sub

سعر فائدة المركزي3.rar

[المحامي خالد]

هذا هو المطلوب فعلا ، ولكن البرنامج لا يعمل بشكل جيد بدءَ من تاريخ 1/7/2004 والصفوف التي بعدها .

[المحامي خالد]

خلاص ... عرفت المشكلة وين ، كان هناك تضارب في التواريخ .

 

كثر الله خيركم ، وجعل الله ذلك في ميزان حسناتكم .

[رجب جاويش]

أخى الفاضل / المحامى خالد
السبب فى ذلك أن التوايخ بها خطأ بسيط
لاحظ الصف رقم 16
العمود B  الخاص بالبداية يحتوى على التاريخ 11/11/2004
والعمود C الخاص بالنهاية يحتوى على تاريخ أقل من تاريخ البداية وهو 11/2/2004 وهذا غير منطقى
هذا هو السبب فى خطأ نتيجة المعادلة
 

وهو ما توصلت أنت له فعلا

[رجب جاويش]

أخى الفاضل / المحامى خالد

جزاك الله كل خير