فارسی کردن متن از طریق vb

[سهیل نصرت آبادی1]

سلام میخوام از طریق برنامه نویسی یک شیت و فارسی کنم
به عنوان مثال هرچی تو شیت 5 تایپ کردن خودش فئنت b nazain بگیره

[ali.b]

سلام
بفرمایید

Sub font()
Range("A1", Range("A65536").End(xlUp)).Select
    With Selection.font
        .Name = "B Nazanin"
        .Size = 14
    End With
    
End Sub

[سهیل نصرت آبادی1]

مرسییییی
میخوام همه متنها وسط سلول قرار بگیره؟؟؟

[Amir Ghasemiyan]

مرسییییی
میخوام همه متنها وسط سلول قرار بگیره؟؟؟

کارهایی که میخواین انجام بشه رو یک بار با ضبط ماکرو انجام بدین متوجه میشید چه کدی باید بذارین

[سهیل نصرت آبادی1]

سلام
ضبط ماکرو چ جوریه دوست عزیز؟

[ali.b]

سلام
ضبط ماکرو چ جوریه دوست عزیز؟

سلام اين دو تا كد رو قبل END WITH اضافه كن

.HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter

در مورد ماكرو هم از منوي vIEW گزينه MACROS رو انتخاب كن و از منوي اون record رو بزن بعدش هر كاري كه در نظر داري طبق روال عادي با اكسل انجام بعدش تموم شد تو همون مسر برو Stop رو بزن
يك كد به صورت خودكار در بخش vba همون كد ها هست.