أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الكلام بيضرب بعد تحويله الى بي دي إف اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





تنسيق اعمدة

السلام عليكم الاستاذة الكرام كيف اجعل عمود autofit و العمود الذى يليه عرضة 2 فقط وشكرا



07-02-2020 02:52 مساء
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
قوة السمعة : 39
الاعجاب : 0
 offline 
السلام عليكم الاستاذة الكرام
كيف اجعل عمود  autofit و العمود الذى يليه عرضة 2 فقط
وشكرا




07-02-2020 03:19 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25164
الاعجاب : 52
 offline 
look/images/icons/i1.gif تنسيق اعمدة
وعليكم السلام أخي العزيز أحمد
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim c As Long
    
    For c = 1 To 7  'Loop Through Columns From Column A To Column G
        If c Mod 2 Then Columns(c).AutoFit Else Columns(c).ColumnWidth = 2
    Next c
End Sub




07-02-2020 11:45 مساء
مشاهدة مشاركة منفردة [2]
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
قوة السمعة : 39
الاعجاب : 0
 offline 
look/images/icons/i1.gif تنسيق اعمدة
تمام يا استاذى تلميذك شاطر برضو
الكود كنت غلطان فيه فى حاجة بسيطة لكن بفضل الله تمت السيطرة على الكود
الكود بعد التعديل شكرا يا استاذى على مساهمتك الرائعة دائما الله 
Sub cr()
Dim r As Integer, k As Integer
Application.ScreenUpdating = False
For r = 1 To 50
Rows(r).RowHeight = IIf(r Mod 2 = 1, 15, 25)
Next r
For k = 1 To 120
If k Mod 2 Then
Columns(k).AutoFit
Else
Columns(k).ColumnWidth = 2
End If
Next k
Application.ScreenUpdating = True
End Sub



 




08-02-2020 04:31 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25164
الاعجاب : 52
 offline 
look/images/icons/i1.gif تنسيق اعمدة
بارك الله فيك أخي العزيز أحمد والحمد لله أن تم المطلوب على خير






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مشكلة كود ترحيل المصاريف من ورقة الى اخرى بنفس التنسيق المبتدأ
9 137 hassona229
هل ممكن عمل حماية للخلايا من تغير تنسيقها عند اللصق والنسخ عبد الله السعيد
0 62 عبد الله السعيد
معادلةتنسيق وتلوين شرطى لملف توزيع ميراث حسن الحياني
2 191 حسن الحياني
فورم يحتوي على تاريخ وطباعة وتنسيق الصفحات ahmad053
0 247 ahmad053
تنسيق خلايا احمد شريف
3 126 YasserKhalil

الكلمات الدلالية
نسيق ، اعمدة ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:31 مساء

أعلن هنا
أعلن هنا
أعلن هنا