ياسر فاروق قام بنشر يناير 23, 2017 مشاركة قام بنشر يناير 23, 2017 أساتذة الاكسيل هل يوجد طريقة - تثبيت أرتفاع الصف (بمعنى تثبيت قياس الارتفاع 14.25 ) مع إمكانية العمل عليه بدون العبث فى الارتفاع واستثناء اخر سطر مع نهاية الصفحة (الخط المتقطع) - عرض العامود رابط هذا التعليق شارك More sharing options...
ياسر فاروق قام بنشر يناير 31, 2017 الكاتب مشاركة قام بنشر يناير 31, 2017 في ٢٣/٠١/٢٠١٧ at 16:49, YasserOriba said: رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 جرب هذا الماكرو Sub row_height() Sheet1.Cells.RowHeight = 25 lr = Sheet1.Cells(Rows.Count, 1).End(3).Row Sheet1.Range("a1:a" & lr - 1).RowHeight = 14.5 End Sub 1 رابط هذا التعليق شارك More sharing options...
ياسر فاروق قام بنشر يناير 31, 2017 الكاتب مشاركة قام بنشر يناير 31, 2017 شكرا على الاهتمام ولكن ممكن شرح لهذا الكود إذ لم يكن هناك إزعاج تم تجربتة ولكنه يعطى ارتفاع الصف 25 + الرسالة المرفقة وأيضا أستطيع تغيير الارتفاع (عدم العبث فى ارتفاع الصف) وهل من الممكن الكتابة بخط واحد فقط نوعه Arial (اللغة العربىة مقاس 11 واللغة الانجليزية مقاس 10) كما فى الملف المرفقBOQ.rar وشكرا مره أخرى على اهتمامكم ووقتكم Capture0022.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 جرب هذا الماكرو Sub row_height() Sheet1.Cells.RowHeight = 25 lr = Sheet1.Cells(Rows.Count, 1).End(3).Row Sheet1.Range("a1:a" & lr - 1).RowHeight = 14.5 End Sub ربما ليس هناك بيانات في العامود A جرب ان تكتب شيئاً في هذا العامود ولو اربعة او خمسة صفوف رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 استبدل الكود بهذا Sub row_height() With ActiveSheet .Cells.RowHeight = 25 lr = .Cells(Rows.Count, 2).End(3).Row .Range("b1:b" & lr - 1).RowHeight = 14.5 End With End Sub 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 استاذ سليم بارك الله فيك .. ادعو الله ان تكون من المشاركين في هذا الرابط رابط هذا التعليق شارك More sharing options...
ياسر فاروق قام بنشر فبراير 1, 2017 الكاتب مشاركة قام بنشر فبراير 1, 2017 17 ساعات مضت, YasserOriba said: شكرا على الاهتمام ولكن ممكن شرح لهذا الكود إذ لم يكن هناك إزعاج تم تجربتة ولكنه يعطى ارتفاع الصف 25 + الرسالة المرفقة وأيضا أستطيع تغيير الارتفاع (عدم العبث فى ارتفاع الصف) وهل من الممكن الكتابة بخط واحد فقط نوعه Arial (اللغة العربىة مقاس 11 واللغة الانجليزية مقاس 10) كما فى الملف المرفقBOQ.rar وشكرا مره أخرى على اهتمامكم ووقتكم Capture0022.rar استاذ سليم بارك الله فيك وشكرا على الاهتمام ولكن المشكلة لا زالت قائمة عند تشغيل الكود يعطى ارتفاع الصف 25 وأيضا يعمل على شيت واحد وليس كل الشيتات مرة واحدة وأيضا تظهر رسالة الخطأ هل من الممكن تطبيق الكود على الملف المرسل من قبل BOQ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 3, 2017 مشاركة قام بنشر فبراير 3, 2017 ذكرت أخي الكريم أن هناك مشكلة في تنفيذ الكود ولم تذكر المشكلة بالتفصيل ..قم بوضع صورة للمشكلة التي تقابلك والأفضل إرفاق الملف الذي طبقت عليه الكود للإطلاع عليه فلكل ملف ظروفه الخاصة في كثير من الأحيان .. حاول الإطلاع على التعليمات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل في طرح الموضوعات ولتجد استجابة أفضل (ولا تعتبر كلامي إلا نصيحة لك أن تأخذ بها أو تتركها كما تشاء) تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان