إدراج أسماء الشهور بكل اللغات

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

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

إخواني الكرام في منتدى أوفيسنا

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

أقدم لكم موضوع حول إدراج أسماء الشهور بكل اللغات ..

إليكم الكود التالي ، قم بوضع الكود في موديول عادي ... ثم نفذ الكود ولاحظ النتائج بنفسك

Sub ListMonthsInAllLanguages()
'يقوم الكود بإدراج أسماء شهور السنة بكل اللغات
'---------------------------------------------
    Dim R As Long, C As Long
    Dim strDate As Date
    Dim S, bFind As Boolean
    
    Application.ScreenUpdating = False
        For R = 1 To 12
            For C = 1 To 99
                strDate = CDate("01/" & Format(R, "00") & "/2015")
                S = "[$-4" & Format(C, "00") & "]MMMM"
                Cells(R, C).NumberFormat = S
                Cells(R, C).Value = strDate
            Next C
        Next R
        Columns.AutoFit
    Application.ScreenUpdating = True
End Sub

أرجو أن ينال الملف والموضوع إعجابكم وتستفيدوا منه إن شاء الله

حمل الملف من هنا

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

كان معكم أخوكم أبو البراء

[حسام ميلكانا]

برنس فى كل حاجة

احنا كفاية علينا اننا نقدم لك دعوة فى ظهر الغيب لعل وعسى ان يتقبلها الله منا

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

 

 

[عبد العزيز البسكري]

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

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

ملف أكثر من رائع .. ينقصه فقط اسم اللغة للتمييز  ..

فائق إحتراماتي

 

تم تعديل أبريل 3, 2016 بواسطه عبد العزيز البسكري

[أبوبسمله]

جزاك الله كل خير يا ابو البراء

ماذا تعنى 

CDate

فى هذا السطر متغير تاريخ  وفورمات  وليه سنه 2015 ؟

 strDate = CDate("01/" & Format(R, "00") & "/2015")

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

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

بارك الله فيكم إخواني وأحبابي في الله

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

أخي الحبيب حسام يكفينا منك كلمة "جزاكم الله خيراً" فهي أفضل ما في الدنيا وما فيها

أخي الغالي أحمد الفلاحجي مشكور على مرورك العطر ، بالنسبة للدالة CDate  تستخدم لتحويل النص إلى تاريخ حيث حرف الـ C يرمز لكلمة Convert أي تحويل

جرب تغير السنة لـ 2016 وشوف هل سيحدث ذلك فارق أم لا ؟ جرب بنفسك .. أي سنة مش شرط 2015 ..

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

[أبوبسمله]

جزاك الله خيرا ياابوالبراء

ان شاء الله سوف اجرب بعد عودتى من العمل

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

[توكل]

أخي أبا البراء جزاك الله كل خير من إبداع إلى إبداع

أنا اطلعت على الكود وفهمت كيف يعمل ولكن ما المقصود مشكوراً بالمتغير 

Dim S, bFind As Boolean

[محمد حسن المحمد]

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

إخوتي الكرام أستاذنا الجليل أبو البراء:

((((((جزاكم الله خيراً على ما تقدمونه لنا وللأجيال اللاحقة من علم نافع بإذن الله تعالى)))))).

مافهمته من الكود هو التالي : راجياً التصحيح والإفادة حتى يتم استيعابه من قبلي:

عرض الشهور بلغات العالم حتى 99 لغة..

1- متغير R على طول الصفوف

2- متغير C على طول الأعمدة

3- متغير Str تاريخ البدء كتاريخ.

4- متغير S بحث كقيمة منطقية.

إيقاف تحديث الشاشة..ثم

1- الصفوف حتى 12 لاستيعاب عدة الشهور ((إن عدة الشهور عند الله اثنا عشر شهرا في كتاب الله يوم خلق السماوات والأرض منها أربعة حرم ذلك الدين القيم فلا تظلموا فيهن أنفسكم وقاتلوا المشركين كافة كما يقاتلونكم كافة واعلموا أن الله مع المتقين ( 36 ) . ( إنما النسيء زيادة في الكفر يضل به الذين كفروا يحلونه عاما ويحرمونه عاما ليواطئوا عدة ما حرم الله فيحلوا ما حرم الله زين لهم سوء أعمالهم والله لا يهدي القوم الكافرين ( 37 ) . 

2- الأعمدة حتى 99 لاستيعاب اللغات:(( يا أيها الناس إنا خلقناكم من ذكر وأنثى وجعلناكم شعوبا وقبائل لتعارفوا إن أكرمكم عند الله أتقاكم إن الله عليم خبير ( 13 ) ) 

....تاريخ البدء=تبديل التاريخ بتنسيق 1 من كل شهر

ثم ينفذ حلقة تكرارية ...ثم تفعيل تحديث الشاشة ثم إغلاق الكود.

هذا ما فهمته..كتبت ذلك استجابة لطلبكم في التفاعل مع العمل ...

والسلام عليكم.

[عبد العزيز البسكري]

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

بارك الله فيك أخي الغالي " محمّد حسن المحمد " على التّوضيح و التّحليل

باسم الله ما شاء الله .. شرح و لا أروع ..

جزاك الله خير الجزاء و زادك من علمه و فضله

خالص إحتراماتي

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

أخي الحبيب أحمد الفلاحجي

خذ وقتك وجرب وتلاعب بالكود كما تشاء لتتعلم ، ولا تخش التجربة والمحاولة

أخي الغالي أبو يوسف

ما أروع التفاعل الذي شاركت به ، وشرح ولا أروع ، أسلوب مميز جداً في الشرح والتحليل .. هكذا أريد التفاعل .. بارك الله فيك وجزاك الله كل خير

أخي العزيز توكل

يبدو أن وضع المتغير في غير محله .. المتغير من النوع Boolean أي يحمل القيمة True أو False ولكن لا حاجة لنا له في الكود المقدم

أخي المتميز عبد العزيز

بارك الله فيك وجزيت خيراً على ردودك الطيبة ومتابعتك الجيدة

تقبلوا جميعاً وافر تقديري واحترامي