كود جعل الخلية بــ اللون البرتقالى والتيكست Arial + Blod

[أبو چيداء]

مثلا الخلية A2

[حمادة عمر]

السلام عليكم

الاخ الكريم / ابو جيداء

استخدم الكود التالي لتنفيذ طلبك ان شاء الله

Sub sama()
With Range("A2")
    .Interior.ColorIndex = 46
    .Font.Name = "Arial"
    .Font.Size = 12
    .Font.Bold = True
End With
End Sub

تقبل خالص تحياتي

[أبو چيداء]

شكرا اخى الفاضل واذا كنت اريد اعمل ميرج والتحكم فى حجم الصف فما الكود

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو چيداء

بارك الله فيك لتنفيذ طلبك الاخير استخدم الكود التالي

فمثلا ان اردت دمج الخليتين (A2 و B2 ) وكذلك تغيير ارتفاع الصف الثاني نستخدم الكود التالي

Sub sama1()
    Range("A2:B2").Merge
    Rows("2:2").RowHeight = 27
End Sub

حيث ان 

Range("A2:B2")

هو النطاق التي تريد دمجه

والسطر الثاني  

Rows("2:2")

هو رقم الصف الذي تريده

 

ويمكنك اخي الكريم بطريقة بسيطة وسهله الحصول علي مثل هذه الاوامر بطريقة تسجيل الماكرو

ليمكنك ذلك بنفسك

ليس لأي شئ الا لأن تتوصل لذلك بنفسك

ومعك دائما باذن الله

تقبل خالص تحياتي

[رجب جاويش]

أخى الحبيب / حمادة عمر

بارك الله فيك

وبارك الله لك فى الأمورة سما

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

بارك الله فيك

مرورك وحده يكفي ليشرف اي موضوع

واغلي سلام ودعوة لابنتك ( سما )

تقبل خالص تحياتي

[سما محمد]

جميل جدا

تقديم المعلومة بهذه السلاسة

جزاك الله خيرا

[حمادة عمر]

بارك الله فيكي

اختي الفاضلة / سما محمد

[أبو چيداء]

شكرا لكما استاذتى

ا\حماده عمر

ا\رجب جاويش

[حمادة عمر]

بارك الله فيك اخي الكريم / ابو جيداء

تقبل خالص تحياتي