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

**سهیل نصرت آبادی1** · 2017/08/15

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

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**ali.b** · 2017/08/15

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

کد:

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

**سهیل نصرت آبادی1** · 2017/08/15

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

**Amir Ghasemiyan** · 2017/08/15

نوشته اصلی توسط سهیل نصرت آبادی1

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

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

**سهیل نصرت آبادی1** · 2017/08/16

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

**ali.b** · 2017/08/16

نوشته اصلی توسط سهیل نصرت آبادی1

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

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

کد:

.HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter

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