اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



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





جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله تذكروني إذا ما غبت عنكم يوماً ، ولا تنسونا من صالح دعائكم ، فهذا ..



12-04-2018 10:08 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8694
الاعجاب : 2905
 Online 
السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله
تذكروني إذا ما غبت عنكم يوماً ، ولا تنسونا من صالح دعائكم ، فهذا هو ما يتبقى لنا بعد الممات

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






 
ها هي الدالة المعرفة أضعها بين أيديكم
Function PullDates(dStartDate As Date, dEndDate As Date, iIndex As Integer, dDay As Integer)
    Dim dvbDay          As Variant
    Dim iMaxDays        As Integer
    Dim dFirstday       As Date
    
    Application.Volatile
    If dDay < 1 Or dDay > 7 Then PullDates = CVErr(xlErrNum): Exit Function
    If dStartDate > dEndDate Then PullDates = CVErr(xlErrNum): Exit Function
    dvbDay = Choose(dDay, vbSaturday, vbSunday, vbMonday, vbTuesday, vbWednesday, vbThursday, vbFriday)
    
    dFirstday = dvbDay - Weekday(dStartDate) + dStartDate
    If dFirstday < dStartDate Then dFirstday = dFirstday + 7
    iMaxDays = Int((dEndDate - dFirstday) / 7) + 1
    PullDates = ""

    If iIndex = 0 Then
        PullDates = iMaxDays
    ElseIf iIndex <= iMaxDays Then
        PullDates = dFirstday + (iIndex - 1) * 7
    End If
End Function


استخدام الدالة :
*********
بفرض أن لديك تاريخين في الخلايا A1 و B1 حيث هذين التاريخين هما تاريخ البداية وتاريخ النهاية (الأخ اللي شاف كلمة النهاية مش دي آخر كلمة في الموضوع .. لسه فيه شوية اصبر يا كابتن)
دلوقتي المطلوب إننا نستخرج التواريخ ليوم معين من أيام الأسبوع وليكن يوم الجمعة (أحب الأيام لقلبي)
هنفترض تاريخ البداية 1/1/2018 وتاريخ النهاية 1/3/2018 من أول يناير لأول مارس (كفاية كدا عشان تقدروا تتأكدوا من مخرجات الدالة المعرفة)






هنيجي في العمود الرابع مثلاً ونضع المعادلة بالشكل التالي وهشرح لكم المعادلة وايه اللي ممكن يتغير فيها
=PullDates($A$1,$B$1,ROW(A1),7)


طبعاً بما إن الدالة بقت معرفة مش مجهولة وموجودة في موديول في الملف اللي عندك فتقدر تستخدمها يا جميل زيها زي أي دالة موجودة بالإكسيل فبتكتب علامة يساوي ووراها اسم الدالة PullDates ..
أول بارامتر هو تاريخ البداية وهو A1 وهنثبت الخلية دي بحيث لما نسحب المعادلة لتحت تفضل ثابتة
والبارامتر التاني هو تاريخ النهاية وهو B1 ونفس الكلام يا هشام نثبت الخلية 
نيجي للبارامتر التالت اللي هو أصلاً خاص برقم محدد (يعني مثلاً لو عايز أول جمعة بين التاريخين هكتب 1 ، ولو عايز تاني جمعة هكتب 2 ، ولو عايز تالت جمعة هكتب 3 ، وممكن حد يكمل مكاني عشان تعبت ..)
طبعاً هنا أنا مش عايز أول جمعة ولا تاني جمعة ولا غيره ، أنا عايز كله (طبق الكشري كله مش معلقة واحدة منه) >> طيب نعمل ايه ؟ هنا بنستخدم دالة لطيفة في الإكسيل اسمها Row ودي بتجيب رقم الصف ، ففي أول معادلة هنكتب A1 ومش هنثبتها لأننا محتاجين إنها تتغير .. لما تكون A1 يبقا هترجع الرقم 1 اللي هو رقم الصف
لما نسحب المعادلة لتحت A1 هتكون A2 فالرقم هيكون 2 ، وهكذا ....
آخر بارامتر وهو رقم اليوم اللي أنا عايز أتعامل معاه
فهنا حضرتك هتكتب من 1 إلى 7
حيث الرقم 1 يشير ليوم السبت ، والرقم 2 يشير ليوم الأحد ............. النقط دي اختصار للوقت والجهد يا إسلام ............ والرقم 7 يشير ليوم الجمعة
بس خلاص .. وصلنا للنهاية
ودا شكل المخرجات للتواريخ ليوم الجمعة بين التاريخين (ممكن طبعاً تفتح التقويم وتراجع نتائج الدالة دا شيء هيسعدني)
KOnrtpdq9iPlXvT


رابط الملف المرفق 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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

والسلام عليكم ورحمة الله وبركاته
 
 


أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah، محمد حسن المحمد، ali mohamed ali، ابوحمزه، محمود ابو الدهب،





12-04-2018 10:27 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1114
الجنس : ذكر
الدعوات : 7
يتابعهم : 0
يتابعونه : 287
قوة السمعة : 7896
الاعجاب : 1934
 Online 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates

رائع يا ابوبراء 
جزاكم الله خيرا وجعل كل ما تقدمه فى ميزان حسناتك
142


أثارت هذه المشاركة إعجاب: YasserKhalil،




12-04-2018 10:39 صباحا
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
menu_open
مشرف قسم الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 610
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 37
قوة السمعة : 3836
الاعجاب : 1038
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
جزاك الله خيرا استاذى الحبيب ياسر
عمل رائع هخلص امتحانات وافهمها ان شاء الله biggrin2

أثارت هذه المشاركة إعجاب: YasserKhalil،




12-04-2018 10:49 صباحا
مشاهدة مشاركة منفردة [3]
AMIN FAID
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 250
المشاركات : 17
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 64
الاعجاب : 22
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
تسلم استاذ ياسر

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :AMIN FAID

رغم كيد العدا .. رغم كل النقــم

سوف نسعى إلى .. أن تعم النعـم

سوف نرنو إلى .. رفع كل الهمــم

للمســير للعلي .. ومناجاة القمــم

 

 
 


12-04-2018 12:41 مساء
مشاهدة مشاركة منفردة [4]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 199
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
يتابعهم : 58
يتابعونه : 10
قوة السمعة : 1392
الاعجاب : 401
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
وعليكم السلام ورحمة الله وبركاته

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

142

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



12-04-2018 01:29 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8694
الاعجاب : 2905
 Online 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
السلام عليكم إخواني وأحبابي في الله
بارك الله فيكم ومشكور على كلماتك الطيبة والتي تسكن القلب
أحبكم الله الذي أحببتموني فيه ، وجمع الله بيننا في الفردوس الأعلى في مستقر رحمته

أثارت هذه المشاركة إعجاب: محمد حسن المحمد، Eslam Abdullah،




12-04-2018 02:16 مساء
مشاهدة مشاركة منفردة [6]
ali mohamed ali
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 114
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 949
الاعجاب : 165
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
عمل رائع وممتاز بارك الله فيك وجعله فى ميزان حسناتك
 

أثارت هذه المشاركة إعجاب: YasserKhalil،




12-04-2018 03:27 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8694
الاعجاب : 2905
 Online 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
تسلم أخي العزيز علي .. الأروع هو مرورك العطر بالموضوع





12-04-2018 06:18 مساء
مشاهدة مشاركة منفردة [8]
ابوحمزه
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 233
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 1-1-1983
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 58
الاعجاب : 16
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
3

أثارت هذه المشاركة إعجاب: YasserKhalil،




12-04-2018 07:19 مساء
مشاهدة مشاركة منفردة [9]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 571
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 105
قوة السمعة : 1792
الاعجاب : 650
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
بارك الله فيك استاذى ومعلمى جارى التحميل ولما تقرأ ردى هيكون تم التحميل biggrin2

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


12-04-2018 09:13 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8694
الاعجاب : 2905
 Online 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
مشكور على مروركما العطر أخي الكريم أبو حمزة وأبو الدهب
تقبلا وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




14-04-2018 01:18 مساء
مشاهدة مشاركة منفردة [11]
mom101
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 18-01-2018
رقم العضوية : 3753
المشاركات : 1
الجنس : ذكر
تاريخ الميلاد : 3-3-1978
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
الاعجاب : 1
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
مشكور اخي العزيز وبارك الله فيك
وياحبذا يكون الملف مرفوع على الموقع مباشرة او من موقع يسهل التحميل منه .
 

أثارت هذه المشاركة إعجاب: YasserKhalil،




14-04-2018 01:54 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 257
قوة السمعة : 8694
الاعجاب : 2905
 Online 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
بارك الله فيك أخي الكريم
لو فيه مشكلة بالتحميل لديك قم بمراسلتي على الفيس بوك وسأرفق لك الملف ..بخصوص رفع الملفات على موقع الرفع يدعم صاحب الموضوع .. صحيح دعم بسيط لكني في حاجة إليه






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم جاهز للتقويم لإدراج التواريخ Calendar UserForm YasserKhalil
17 527 YasserKhalil

الكلمات الدلالية
التواريخ ، تاريخين ، باستخدام ، دالة ، معرفة ، PullDates ،


 







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

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.




الساعة الآن 08:10 صباحا

أعلن هنا
أعلن هنا
أعلن هنا