تغییر فونت اکسل با استفاده از کد vba
- آخرین بروزرسانی: 4 خرداد 1402
تا الان برای شما پیش آمده که بخواهیم تغییر فونت اکسل را با استفاده از کد نویسی VBA انجام بدهید
ما توی این آموزش رایگان اکسل برای شما نحوه تغییر با استفاده از کد نویسی vba آموزش خواهیم داد
همانطور که میدانید برای تغییر فونت اکسل می توانیم از قابلیت های خیلی زیادی استفاده بکنیم که به صورت پیش فرض میتونیم از خود اکسل هم تغییر کند را انجام بدهیم اما توی این آموزش برای تغییر فونت اکسل با استفاده از کد vba استفاده کردیم
تغییر فونت اکسل با استفاده از کد vba
اگر شما هم کاربر همیشگی سایت آکادمی روحالله هستید ما به یک بخشی برای بانک کد VBA اکسل داریم که میتوانید از لینک زیر مشاهده فرمایید
تغییر فونت اکسل با استفاده از کد vba این کد VBA برای تغییر فونت سلولهای ستون A ورک شیت استفاده میشود. با اجرای این کد، فونت سلولهای ستون A به “Arial” تغییر خواهد کرد.
برای استفاده از این کد، میتوانید مراحل زیر را انجام دهید:
تغییر فونت اکسل
- باز کردن فایل اکسل و انتخاب ورکشیت مورد نظر
- از منوی Developer، گزینه Visual Basic را انتخاب کنید
- در پنجره VBA، یک ماژول جدید ایجاد کنید
- کد بالا را در ماژول جدید قرار دهید
- فایل VBA را ذخیره کرده و از پنجره VBA خارج شوید
- بازگشت به ورکشیت و اجرای کد با استفاده از دکمه F5 یا با استفاده از گزینه Run Macro از منوی Developer
کد تغییر فونت اکسل با استفاده از کد vba
|
1 2 3 4 5 6 7 8 |
Sub ChangeFont() 'https://academyruhollah.com/ Dim lastRow As Long, i As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To lastRow Cells(i, "A").Font.Name = "Arial" Next i End Sub |
آموزش رایگان اکسل
بعد از اجرای کد، فونت سلولهای ستون A به “Arial” تغییر میکند. میتوانید نام فونت دیگری را به جای “Arial” در این کد قرار دهید. همچنین، با تغییر “A” به شماره ستون مورد نظر خود، میتوانید فونت ستون دیگری را نیز تغییر دهید.
خب بفرمایید که آیا فونت باید در سیستم نصب شده باشه یا خیر اگر در سیستم این فونت نباشه باز هم تغییر میکنه یا خیر ؟ راه حلی بفرمایید که اگر فونت درون سیستم نبود چکار باید کرد ؟ با تشکر
سلام ارادت خدمت شما دوست عزیز
خیر حتما باید فونت ها روی سیستم نصب باشد تا بتوانید از آن استفاده کنید در غیر این صورت قابل استفاده نیست
فعلا که بنده را کاری ندارم فونت نباشه بتوانید از آن استفاده کنید
موفق پیروز باشید مثل همیشه