學習EXCEL VBA的動機

學習EXCEL VBA的動機

由於工作性質的關係，需要在excel上增減工項，而每次增減工項之後字型都會變成新細明體而不是常用的標楷體，由於上司的龜毛要求中文字體要使用「標楷體」而數字或英文字體則需要使用「Times New Roman」，這就導致每次修改完之後都必須執行「修改字體」這個工作。

一般來說工作是這樣的，先全選改變字體為「標楷體」，然後再改成「Times New Raman」就能達到上述的要求，但……某些工項文字採用的是「公式連結」，所以如果照做，「公式連結」內的文字會變成「新細明體」，所以必須將這些工項挑出來，光是修改字型的工作就花了我作業時間的20~50%，於是就想著到底有沒有更方便的方式來做這種簡單但重複性高的工作，Google了之後才發現原來VBA就能做到這些工作，在某種程度上做的比人更好！從開始到現在學習都是土法煉鋼，很多東西都是不斷的嘗試出來，反正只要能執行，再怎樣都比自己手動來得快速方便，於是乎抱持著這樣的學習態度弄到現在，好像也沒什麼大問題。

隨著工作一直來，東西一直增加，有時候發現從前寫的程式現在來看已經不知道到底在寫什麼、應該怎麼修正，所以開始把自己寫好的程式記錄在blog上，利於後續回憶用。

xxxxxxxxxx
Sub 變更字體及大小()
'計算表範圍
    A = "A5:F"
    標題 = "a1:g4"
    k = 5                      '調整列高的起點
    字大小 = 12                 '內容字大小
'判斷最後一列
    r = Cells(ActiveSheet.Rows.Count, 6).End(xlUp).Row 
'判斷最後一行
    c1 = Cells(5, 
    name1 = "標楷體"
    name2 = "Times New Roman"
'內文字體&大小修改
    With Range(A & r).Font
        .Name = name1
        .Name = name2
        .Size = 字大小
    End With
 
'標題字體修改
        With Range(標題).Font
            .Name = name1
        End With

 

---

字體分享

文章採用的字型為iLiHei，看不慣新細明體的可以自行下載安裝iLiHei分享載點(google)：

1. win7以上下載後按右鍵→安裝即可
2. XP需自行複製到windows系統資料夾