استكمال auto-cell

[samcom comsam]

الى الافاضل رواد اوفسينا منتدانا الكريم 

مطلوب دراسة تاريخية طولية وعرضية بالاكسل 

المشكله فى كتابة الخلايا التاريخية كما هو موضح بالصورة والملف المرفق 

شكرا للمتابعة  والرد 

قبل الميبلاد وبعد.zip

[samcom comsam]

قرات من احد الموضوعات التابع لاوفسينا  ان 

الحلقات التكرارية 

code  for  next

VBA

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

[samcom comsam]

تم تعديل السؤال فى الملف المرفق  والصورة بعد الدراسة والبحث فى المنتدى العظيم اوفسينا 

شكرا على تعبكم الدائم  ومتابعتنا على اسئلتنا الكثير 

 

قبل الميبلاد وبعد.zip

[pentomara]

أعتقد يمكن استخدام الحلقات التكرارية

[samcom comsam]

في 4/8/2017 at 13:28, pentomara said:

أعتقد يمكن استخدام الحلقات التكرارية

حضرتك الموضع صعب التنفيذ على فى الكتابة ادا كان  اومر او  اكواد او فيجوال بسيك 

علشان كده رفعته على المنتدى الكبير  وفى انتظار الرد 

[samcom comsam]

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

مثلا العمود يبداء من 1 الى 2000

وتلون بالتنسيق الشرطى نلون الارقام 

4و8و12و16و20و................الخ 2000

فالرجاء معرفة الصيغه 

تم تعديل أبريل 28, 2017 بواسطه samcom comsam

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

السلام عليكم

جرب الكود التالي

Sub FillUsingArrays()
    Dim arr(1 To 50000, 1 To 5)
    Dim i       As Long
    Dim j       As Long
    Dim iRow    As Long

    Application.ScreenUpdating = False
        arr(1, 1) = "السنة": arr(1, 2) = "الشهر"
        arr(1, 4) = "السنة": arr(1, 5) = "الشهر"
    
        iRow = 2
        For i = 4000 To 1 Step -1
            For j = 1 To 12
                arr(iRow, 1) = i & " ق م"
                arr(iRow, 2) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
                iRow = iRow + 1
            Next j
        Next i
        
        iRow = 2
        For i = 1 To 2020
            For j = 1 To 12
                arr(iRow, 4) = i & " ب م"
                arr(iRow, 5) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
                iRow = iRow + 1
            Next j
        Next i
    
        Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    Application.ScreenUpdating = True
End Sub

 

[سليم حاصبيا]

4 ساعات مضت, samcom comsam said:

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

مثلا العمود يبداء من 1 الى 2000

وتلون بالتنسيق الشرطى نلون الارقام 

4و8و12و16و20و................الخ 2000

فالرجاء معرفة الصيغه 

جرب هذ المرفق

cond_format.rar

[samcom comsam]

22 ساعات مضت, ياسر خليل أبو البراء said:

السلام عليكم

جرب الكود التالي

Sub FillUsingArrays()
    Dim arr(1 To 50000, 1 To 5)
    Dim i       As Long
    Dim j       As Long
    Dim iRow    As Long

    Application.ScreenUpdating = False
        arr(1, 1) = "السنة": arr(1, 2) = "الشهر"
        arr(1, 4) = "السنة": arr(1, 5) = "الشهر"
    
        iRow = 2
        For i = 4000 To 1 Step -1
            For j = 1 To 12
                arr(iRow, 1) = i & " ق م"
                arr(iRow, 2) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
                iRow = iRow + 1
            Next j
        Next i
        
        iRow = 2
        For i = 1 To 2020
            For j = 1 To 12
                arr(iRow, 4) = i & " ب م"
                arr(iRow, 5) = Choose(j, "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليه", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
                iRow = iRow + 1
            Next j
        Next i
    
        Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    Application.ScreenUpdating = True
End Sub

 

كلمات الشكر لاتفى حقك فبهذا المجهود الذى تثاب عليه قد وفر عنى عمل 75000 خليه كتابه 

احسنت عملا وصنعا وضعها الله فى ميزان حسناتك 

مشكور  جدا جدا جدا 

وهذا ما نامله من معلمينا بمنتدنا الرائع 

[samcom comsam]

18 ساعات مضت, سليم حاصبيا said:

جرب هذ المرفق

cond_format.rar

كلمات الشكر لاتفى حقك فبهذا المجهود الذى تثاب عليه

احسنت عملا وصنعا وضعها الله فى ميزان حسناتك 

 ولكنى لو امكن 

=MOD($A1;4)=0 

لم يطبق فى الملف الخاص بالمعادله حتى بعد نسخ التنسيق 

شكرا مره اخرى للاستجابه 

 

 

[سليم حاصبيا]

1 ساعه مضت, samcom comsam said:

كلمات الشكر لاتفى حقك فبهذا المجهود الذى تثاب عليه

احسنت عملا وصنعا وضعها الله فى ميزان حسناتك 

 ولكنى لو امكن 

=MOD($A1;4)=0 

لم يطبق فى الملف الخاص بالمعادله حتى بعد نسخ التنسيق 

شكرا مره اخرى للاستجابه 

 

 

استبدل الفاصلة  "," بفاصلة منقوطة ";" قي المعادلة أو العكس(حسب اعدادات الجهاز عندك)

لتصبح هكذا

=MOD($A1,4)=0 
أو
=MOD($A1;4)=0

 

[samcom comsam]

في 4/29/2017 at 16:15, سليم حاصبيا said:

استبدل الفاصلة  "," بفاصلة منقوطة ";" قي المعادلة أو العكس(حسب اعدادات الجهاز عندك)

لتصبح هكذا

=MOD($A1,4)=0 
أو
=MOD($A1;4)=0

 

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

لقد احسنت  عملا 

بارك الله عملك 

ووضعها الله ميزان حسناتك