mohammmed ali قام بنشر سبتمبر 27, 2019 مشاركة قام بنشر سبتمبر 27, 2019 السلام عليكم أهل المنتدي الكرام أواجه مشكله في كتابة أسماء الفصول فمثلاعند كتاب فصل 1/1يكتب الاكسل تلقائي 1يناير وهكذا علي كل الفصول والصفوف ارجو الحل منكم ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 27, 2019 مشاركة قام بنشر سبتمبر 27, 2019 ادرج فاصلة عليا قبل كتابة اسم الفصل(لا تظهر في الخلية انما تخبر الاكسل ان هذا ليس رقماُ) رابط هذا التعليق شارك More sharing options...
mohammmed ali قام بنشر سبتمبر 27, 2019 الكاتب مشاركة قام بنشر سبتمبر 27, 2019 شكرا أستاذ سليم تم حل المشكله ولكن عند كتابة 2/1تكتب 1/2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 27, 2019 مشاركة قام بنشر سبتمبر 27, 2019 حدد اتجاه الكتابة من اليسار الى اليمين رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر سبتمبر 28, 2019 مشاركة قام بنشر سبتمبر 28, 2019 استاذى الحبيب استاذ سليم بعد اذنك واثراء للموضوع جرب هذا الملف اسماء الفصول.xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 28, 2019 أفضل إجابة مشاركة قام بنشر سبتمبر 28, 2019 اكثر من رائع لكن ارجو تقبل هذه الملاحظة: عدم استعمال كلمات محجوزة للـــ 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 2 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر سبتمبر 28, 2019 مشاركة قام بنشر سبتمبر 28, 2019 جزاكم الله خير على توجهتكم لى اخى الحبيب وجعله الله فى ميزان حسناتكم 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.