ماكرو تلوين خلية

[محمد الورفلي1]

السلام عليكم

اول ماكرو اصنعه بفضل الله اولاً  

 

ثم الشكر للأساتذة في المنتدي الذين تعلمناً من شروحاتهم في الدروس

فا انا طلابي دائما غريب بعض الشى ولكن اعرف ان الاكسل مرن  
الماكرو يعمل على توسيع الخلية النشطة افقي وعمودي وجعلها ضمن  اطار وكذالك تلوينها وكذالك اختيار الخط الكوفي وجعل المقاس الخط 12 وكذلك تلوين الخلية النشطة

 

 

ماكرو متعدد.rar

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

بارك الله فيك أخي محمد الخازمي وجزيت خيراً

 

تسجيل الماكرو ينتج عنه أسطر كثيرة جداً لا داعي لها

-------------------------------------------------

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    With Selection
        .ColumnWidth = 15
        .RowHeight = 20.5
        .Interior.ColorIndex = 3
        .Font.Name = "Monotype Koufi"
        .Font.Size = 12
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .BorderAround ColorIndex:=xlAutomatic, Weight:=xlMedium
    End With
End Sub

تقبل تحياتي

[محمد الورفلي1]

السلام عليكم

هي محاولة ليس الا واعرف انها طريقة بدائية

 

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

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

أنا لم أنكر محاولتك الجميلة أخي الغالي محمد إنما أحببت أن أعرض عليك كيفية التعامل مع الأكواد واختصار الأسطر الكثيرة التي ينتجها الماكرو المسجل

جزاك الله خير الجزاء ونصيحة مني لا تتوقف .. لا تتوقف ..سر على بركة الله

[محمد الورفلي1]

اعرف والله صفاء قلبك اتجاه الاخوه الاعضاء

 

فمنك نتعلم استاذ ياسر العزيز

سؤال لو سمحت ممكن توضيح اخر ثلاث اسطر لاني عند حذفهم لام يتغير شي في الكود

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    With Selection
   ' ÇÑÊÝÇÚ ÇáÎáíÉ
        .ColumnWidth = 22
       ' ÚÑÖ ÇáÎáíÉ
        .RowHeight = 22.5
       ' áæä ÇáÎáíÉ
        .Interior.ColorIndex = 40
       ' äæÚ ÇáÎØ
        .Font.Name = "Abuhmeda -f2"
       ' áæä ÇáÎØ
        .Font.ColorIndex = 1
       ' ÍÌã ÇáÎØ
        .Font.Size = 12
        'ÇáÎØ ÚÑÈÖ
        .Font.Bold = True
        'ÇáÎØ ãÇÆá
        .Font.Italic = True
        'ÇÍÊæÇÁãäÇÓÈ Ýí ÇáÎáíÉ
        .ShrinkToFit = True


'ããßä ÊæÖÍ ÇáÇÓØ 1æ2æ3

    '1   .HorizontalAlignment = xlCenter
    '2   .VerticalAlignment = xlCenter
    '3   .BorderAround ColorIndex:=xlAutomatic, Weight:=xlMedium
    End With
'End Sub

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

توسيط أفقي لمحتوى الخلية

توسيط رأسي

عمل حدود خارجية للخلية

 

تقبل تحياتي