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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



12-04-2018 10:08 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

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

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

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






 
ها هي الدالة المعرفة أضعها بين أيديكم
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


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

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







12-04-2018 10:27 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates

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





توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



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





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



توقيع :AMIN FAID

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

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

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

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

 

 
 


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

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

142



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

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



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





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



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


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





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





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



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

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


12-04-2018 09:13 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
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
الاعجاب : 0
 offline 
look/images/icons/i1.gif جلب التواريخ بين تاريخين باستخدام دالة معرفة PullDates
مشكور اخي العزيز وبارك الله فيك
وياحبذا يكون الملف مرفوع على الموقع مباشرة او من موقع يسهل التحميل منه .
 





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كتابة التواريخ تلقائى طارق زكريا
3 214 YasserKhalil
فورم جاهز للتقويم لإدراج التواريخ Calendar UserForm YasserKhalil
57 3112 YasserKhalil
كود الفرق بين التواريخ المبتدأ
2 449 المبتدأ

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


 







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



الساعة الآن 03:06 صباحا

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