اسماء الفصول

[mohammmed ali]

السلام عليكم أهل المنتدي الكرام

أواجه مشكله في كتابة أسماء الفصول 

فمثلاعند كتاب فصل 1/1يكتب الاكسل تلقائي 1يناير وهكذا علي كل الفصول والصفوف

ارجو الحل منكم ولكم جزيل الشكر

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

ادرج فاصلة عليا قبل كتابة اسم الفصل(لا تظهر في الخلية انما تخبر الاكسل ان هذا ليس رقماُ)

[mohammmed ali]

شكرا أستاذ سليم تم حل المشكله

ولكن عند كتابة 2/1تكتب 1/2

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

حدد اتجاه الكتابة من اليسار الى اليمين

[وجيه شرف الدين]

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

اسماء الفصول.xlsm

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

اكثر من رائع

لكن ارجو تقبل هذه الملاحظة:

عدم استعمال كلمات محجوزة للـــ  VBA  كأسماء للمتغيرات

مثلاً كلمة  Count هي احداها  لذلك يمكن استعمال بديل مثلاً  Cont

على العموم انا افضل المصفوفات في هذه الحالة لانها أسرع

انت تستطيع ان تجمع كل المعطيات في مصفوفة واحدة وتلصقها رأسًا في النطاق اللازم

و في النهاية تقوم بمسح محتويات المصفوفة   Erase ARR لتحرير الذاكرة منها

جرب هذا الكود 

Sub B()
Dim ARR(), k%: k = 0
Range("B10", Range("B9").End(4)).ClearContents
For i = 2 To 7
    For j = 1 To 6
         k = k + 1
         ReDim Preserve ARR(1 To k)
         ARR(k) = "'" & (j & " / " & Cells(i, 1))
    Next j
 Next i
Range("b10").Resize(k) = Application.Transpose(ARR)
Erase ARR
 
End Sub

 

[وجيه شرف الدين]

جزاكم الله خير على توجهتكم لى اخى الحبيب وجعله الله فى ميزان حسناتكم