تسلسل ايام الاسبوع و الشهور بمجرد كتابة اليوم أوالشهر بشكل نصى

[ماجد2014]

الاخوه الافاضل هل يوجد داله تساعدنى فى تكمله باقى ايام الاسبوع    مثلا اذا كتبت الاثنين تقوم الداله بالتكمله الثلاثاء الاربعاء وهكذا

ارجو ان يكون الحل بالدوال  

Book1.rar

تم تعديل يناير 19, 2015 بواسطه ماجد2014

[ibn_egypt]

اخى الفاضل

 

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

 

لاحظ المربع بالصورة المرفقة

 

تحياتي  

[ماجد2014]

شكرا اخى الكريم ولكنى اريد ان يتم تكمله الايام بمجرد كتابه اى يوم فى الاسبوع عن طريق الدوال لعمل مشروع ما ...

تحياتى

[بن علية حاجي]

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

 

أخي الكريم، هذا حل بالمعادلات بالاستعانة بجدول... أرجو أن يفي بالغرض المطلوب...

 

أخوك بن علية

 

الملف المرفق : Book1_6.rar

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

جرب هذه المعادلة فى " A2 " بعد وضع اليوم الذى تريدة فى الخلية " A1 "

وأسحبها لأسف بالمقدار الذى تريدة

=INDEX(TEXT(ROW(1:8),"dddd"),MATCH($A1,INDEX(TEXT(ROW(1:8),"dddd"),),0)+1)

تقبل تحياتى

تسلسل ايام الاسبوع.rar

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

طريقة أخرى ولكن هنا يتم كتابة رقم وليس يوم لجلب تسلسل الأيام

تقبلوا تحياتى

تسلسل تواريخ 2.rar

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

طريقة أبسط فى إيجاد تسلسل أيام الأسبوع

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

=TEXT(MATCH(A1,TEXT({1,2,3,4,5,6,7},"dddd"),0)+1,"dddd") 

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

[الجموعي]

طريقة أبسط فى إيجاد تسلسل أيام الأسبوع

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

=TEXT(MATCH(A1,TEXT({1,2,3,4,5,6,7},"dddd"),0)+1,"dddd") 

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

اريد طريقة  تسلسل الشهور

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

تفضل أخى " تسلسل الشهور "

تقبل تحياتى

تسلسل شهور.rar

[ماجد2014]

كل الشكر لكما هذا كثير

مع خالص تحياتى

:fff: :fff: :fff: :fff:

[احمد غانم]

تفضل أخى " تسلسل الشهور "

تقبل تحياتى

اخي الكريم جمال عبدالسميع حفظك المولى

 

حاولت تجربة " تسلسل الشهور " و يبدو ان هناك مشكلة و لا يعمل 

[بن علية حاجي]

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

 

تفضل أخى " تسلسل الشهور "

تقبل تحياتى

اخي الكريم جمال عبدالسميع حفظك المولى

 

حاولت تجربة " تسلسل الشهور " و يبدو ان هناك مشكلة و لا يعمل 

 

أخي الكريم أحمد، المعادلة التي وضعها أخونا جمال تتطلب أن نضع في الخلية A1 "رقم الشهر" وليس "اسم الشهر"... والله أعلم

 

أخوك بن علية

[احمد غانم]

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

 

تفضل أخى " تسلسل الشهور "

تقبل تحياتى

اخي الكريم جمال عبدالسميع حفظك المولى

 

حاولت تجربة " تسلسل الشهور " و يبدو ان هناك مشكلة و لا يعمل 

 

أخي الكريم أحمد، المعادلة التي وضعها أخونا جمال تتطلب أن نضع في الخلية A1 "رقم الشهر" وليس "اسم الشهر"... والله أعلم

 

أخوك بن علية

اخي الكريم بن علية بارك الله جهودك

صدقت انه يجب ادخال رقم الشهر

و في هذه الحالة كيف يمكن ان نبدأ التسلسل بشهر "January"

تقبل تحياتي و دعائي بدوام بالتوفيق

[بن علية حاجي]

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

 

أخي الكريم أحمد، إذا أردت أن يبدأ التسلسل بشهر January نضع في الخلية A1 العدد 12 (رقم شهر ديسمبر)...

 

أخوك بن علية

[ياسر خليل أبو البراء]

أخي الحبيب جرب أن تكتب الشهر الذي تريده في الخلية A1 ثم نفذ الكود التالي  (الرقم 20 يمكنك تغييره كما تريد)

Sub FillMonths()
    Dim LastDataRow As Long
    LastDataRow = 20
    Range("A1").AutoFill Destination:=Range("A1:A" & LastDataRow)
End Sub

تم تعديل يناير 21, 2015 بواسطه YasserKhalil

[احمد غانم]

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

 

أخي الكريم أحمد، إذا أردت أن يبدأ التسلسل بشهر January نضع في الخلية A1 العدد 12 (رقم شهر ديسمبر)...

 

أخوك بن علية

اشكرك من كل قلبي

لا يوجد اسهل من ذلك!!!    

معلش لو اثقلت عليك اخي بن علية و انت واسع الصدر

هل يمكن عمل التسلسل الشهري افقيا بنفس النمعادلة؟؟

تم تعديل يناير 21, 2015 بواسطه أحمــــد غانـــم

[أبو محمد عباس]

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

اعمال في قمة الابداع والروعة للاساتذة الكبار في هذا الصرح الكبير

الاستاذ ابن مصر

الاستاذ بن علية حاجي

الاستاذ ابو محمود

الاستاذ ابو البراء

جزاكم الله خيرا وبارك الله في اعمالكم 

وبعد اذن الاساتذة الافاضل اود ان اذكر للاخ العزيز الاستاذ احمد غانم جزاه الله خيرا

اعتقد معادلة الاستاذ ملك المعادلات ابو محمود تعتمدعلى اسماء الشهور التي في الحاسبة فاذا كانت January  تكتبها وستعمل المعادلة اما اذا كانت بالعربية ( كانون الثاني ) كذلك المهم تعتمد على اسماء الشهور المثبتة في الحاسبة

هذا حسب علمي والله سبحانه وتعالى اعلم

تقبلوا فائق احترامي وتقديري

[احمد غانم]

الأخ محمد ابو العباس السلام عليكم

يبدو ان المعادلة تعمل مع كتابة اسم الشهر ايضاً لكن فقط باللغة الإنكليزية 

و الله اعلم لك مني جزيل الشكر على ملاحظتك و ثنائك الجميل

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

عذرا لأساتذتى الأفاضل وهذا الجدل حول المعادلة

المعادلة يمكن أن تعمل وفقا للأثنين " رقم الشهر ، وكتابتة نصا "

ويمكن للأخوة الإختيار من القائمة المنسدلة وهى نصية " والشهر بها عربى "

وتم عملها أفقيا وفقا لطلب أخى " أحمد غانم "

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

تسلسل شهور.rar

[احمد غانم]

الأخ العزيز جمال عبد السميع

بارك الله بك و بجهودك و دمت ذخرا لهذا الصرح الكبير

بأعضائه و المشرفين علية

[ماجد2014]

طريقة أبسط فى إيجاد تسلسل أيام الأسبوع

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

=TEXT(MATCH(A1,TEXT({1,2,3,4,5,6,7},"dddd"),0)+1,"dddd") 

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

ارجو ا شرح هذه الداله

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

أخى الحبيب لكى نقوم بشرح الدالة السابقة دعنا نشرح أولا الدالة الأساسية فى هذا الموضوع ، وننسى مؤقتا الدالة المطلوب شرحها.

السؤال كان من قبل حضرتك أنك تريد تسلسل لأيام الأسبوع وفقا ليوم يتم وضعة فى الخلية "A1 " لتقوم المعادلة المطلوبة بأخذ هذا الشرط  والتكملة للزصول لباقى أيا الأسبوع فى باقى خلايا العمود

وبالطبع لو أردنا تنسيق رقم للوصول لمسمى اليوم فأما نستخدم تنسيق الأوفيس " بتحويل الرقم من "1:7" وهما أيام الأسبوع إلى نص

لذلك هذا يجعل دالة " TEXT " أولى الدوال التى تتبادر إلى الذهن لعمل ذلك وشروطها كالأتى "

-  =TEXT(VALUE,FORMAT_TEXT)

معنى مكون الدالة السابقة أنها دالة تقوم بتنسيق رقم وتحويلة إلى نص " لذلك نجدها ضمن دوال النصوص "

نطبق الدالة السابقة على طلبك

سنجد أننا سوف نضع القيمة المقابلة لليوم المطلوب وليكن يوم" السبت " ، سنجد أن الدالة ستكون كالأتى "

=TEXT(,"DDDD")

بتطبيق الدالة السابقة سنجد أنها سترجع "يوم السبت " وبالتالى لوقمنا بتغيير هذا الرقم وهو " الصفر " والذى تركت موضعة خالى فى المعادلة السابقة ، برقم "1" سنجد أنها سترجع "يوم الأحد"

وبالتالى سيكون صعب تغيير الرقم يدويا داخل المعادلة للحصول على أيام الأسبوع لذلك كان لابد من البحث عن دالة تقوم بذلك فكان التفكير فى الدالة " ROW " وهى دالة من دوال البحث والمرجع وليس لها شروط وشكلها كالتالى "

-    =ROW([REFRENCE])

لنضعها الأن مع المعادلة " TEXT " لتقوم بجلب الرقم المطلوب بشكل تلقائى وفقا للصف الواقعة فية ، ليكون شكل المعادلة كالتالى "

=TEXT(ROW(A1)-1,"DDDD")

وبسحبها لأسفل سنجد أنها تقوم بجلب أسم اليوم وفقا لتنسيق الرقم التى تقوم بجلبة الدالة " ROW "

وسنجد أن هذه الدالة بوضعها الحالى لاتحقق طلبك وهو جلب أيام الأسبوع وفقا لشرط يتم وضعة فى الخلية " A1" مثلا لتكمل المعادلة الأيام التى تلى اليوم الذى يتم وضعة فى هذه الخلية وبشكل مسلسل

- وبالتالى سنقوم بالبحث عن دالة بها مواصفات دالة "ROW " ويمكن وضع شرط بها لنجد أن أفضلهم دالة " MATCH " وشروطها كالتالى :

- =MATCH( LOOKUP_VALUE,LOOKUP_ARRAY,[MATCH_TYPE])

1- نجد أن الشرط الأول الموجود فى المعادلة وهو " LOOKUP_VALUE " ويمكن وضع الشرط المطلوب به

2-  " LOOKUP_ARRAY " وتم وضع مصفوفة الأيام وتم وضع دالة " TEXT " وذلك لتنسيقها كنص

3- والشرط الأخير فيها وهو " [MATCH_TYPE] "

ثم تم تكملة المعادلة البسيطة السابقة بباقى عناصرها وهى تنسيق ناتج الدالة " MATCH " كنص

فكانت النتيجة الدالة موضع السؤال :

=TEXT(MATCH(A1,TEXT({1,2,3,4,5,6,7},"dddd"),0)+1,"dddd")

أرجو أن يكون الشرح قد أوصل فكرة المعادلة

وأن المعادلة حققت المطلوب منها

تقبل تحياتى

[ماجد2014]

أخى الحبيب لكى نقوم بشرح الدالة السابقة دعنا نشرح أولا الدالة الأساسية فى هذا الموضوع ، وننسى مؤقتا الدالة المطلوب شرحها.

السؤال كان من قبل حضرتك أنك تريد تسلسل لأيام الأسبوع وفقا ليوم يتم وضعة فى الخلية "A1 " لتقوم المعادلة المطلوبة بأخذ هذا الشرط  والتكملة للزصول لباقى أيا الأسبوع فى باقى خلايا العمود

وبالطبع لو أردنا تنسيق رقم للوصول لمسمى اليوم فأما نستخدم تنسيق الأوفيس " بتحويل الرقم من "1:7" وهما أيام الأسبوع إلى نص

لذلك هذا يجعل دالة " TEXT " أولى الدوال التى تتبادر إلى الذهن لعمل ذلك وشروطها كالأتى "

-  =TEXT(VALUE,FORMAT_TEXT)

معنى مكون الدالة السابقة أنها دالة تقوم بتنسيق رقم وتحويلة إلى نص " لذلك نجدها ضمن دوال النصوص "

نطبق الدالة السابقة على طلبك

سنجد أننا سوف نضع القيمة المقابلة لليوم المطلوب وليكن يوم" السبت " ، سنجد أن الدالة ستكون كالأتى "

=TEXT(,"DDDD")

بتطبيق الدالة السابقة سنجد أنها سترجع "يوم السبت " وبالتالى لوقمنا بتغيير هذا الرقم وهو " الصفر " والذى تركت موضعة خالى فى المعادلة السابقة ، برقم "1" سنجد أنها سترجع "يوم الأحد"

وبالتالى سيكون صعب تغيير الرقم يدويا داخل المعادلة للحصول على أيام الأسبوع لذلك كان لابد من البحث عن دالة تقوم بذلك فكان التفكير فى الدالة " ROW " وهى دالة من دوال البحث والمرجع وليس لها شروط وشكلها كالتالى "

-    =ROW([REFRENCE])

لنضعها الأن مع المعادلة " TEXT " لتقوم بجلب الرقم المطلوب بشكل تلقائى وفقا للصف الواقعة فية ، ليكون شكل المعادلة كالتالى "

=TEXT(ROW(A1)-1,"DDDD")

وبسحبها لأسفل سنجد أنها تقوم بجلب أسم اليوم وفقا لتنسيق الرقم التى تقوم بجلبة الدالة " ROW "

وسنجد أن هذه الدالة بوضعها الحالى لاتحقق طلبك وهو جلب أيام الأسبوع وفقا لشرط يتم وضعة فى الخلية " A1" مثلا لتكمل المعادلة الأيام التى تلى اليوم الذى يتم وضعة فى هذه الخلية وبشكل مسلسل

- وبالتالى سنقوم بالبحث عن دالة بها مواصفات دالة "ROW " ويمكن وضع شرط بها لنجد أن أفضلهم دالة " MATCH " وشروطها كالتالى :

- =MATCH( LOOKUP_VALUE,LOOKUP_ARRAY,[MATCH_TYPE])

1- نجد أن الشرط الأول الموجود فى المعادلة وهو " LOOKUP_VALUE " ويمكن وضع الشرط المطلوب به

2-  " LOOKUP_ARRAY " وتم وضع مصفوفة الأيام وتم وضع دالة " TEXT " وذلك لتنسيقها كنص

3- والشرط الأخير فيها وهو " [MATCH_TYPE] "

ثم تم تكملة المعادلة البسيطة السابقة بباقى عناصرها وهى تنسيق ناتج الدالة " MATCH " كنص

فكانت النتيجة الدالة موضع السؤال :

=TEXT(MATCH(A1,TEXT({1,2,3,4,5,6,7},"dddd"),0)+1,"dddd")

أرجو أن يكون الشرح قد أوصل فكرة المعادلة

وأن المعادلة حققت المطلوب منها

تقبل تحياتى

اخى الاستاذ جمال لااجد غير ان اقول لك شكرا بارك الله فيك

     

تم تعديل يناير 23, 2015 بواسطه ماجد2014

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب ابو محمود جزاكم الله خيرا

جهد كبير وشرح رائع جعله الله في ميزان حسناتكم

عافاكم الله واعطاكم الصحة والعافية

دمتم في رعاية الله وحفظه

[ابو محمد وهبي]

بارك الله فيكم جميعاً ...

تم تعديل مارس 17, 2017 بواسطه ابو محمد وهبي