學習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系統資料夾

IOS備忘錄-icloud應用

話說一開始接觸IOS系統的時候是用iPad2，第一次使用平板的經驗太好了，於是我進入了蘋果的世界。但因為平板不同於手機不太會隨身帶著走且iPad2是wifi版，帶出門想要上網還需要找便利商店或是咖啡店……，所以不覺得iCloud那哪裡好用。實際有深刻的應用是在買了iPhone之後……。

手機除了可以當掌上型遊戲機、導航機、小型電腦、相機外，大多數的人還會拿來記帳或記事。今天想要討論的就是關於「備忘錄」的使用方法。使用手機記事是很方便沒錯，但這種便利局限在簡短的事項上，畢竟手機實在不算是一個良好的輸入端，也不太可能常常背著一個藍牙鍵盤到處跑……。這時候「icloud」就派上用場了！直接就看圖說明啦。

▲首先在電腦的網頁裡面打開icloud然後登入自己的apple ID

▲登入之後可以看到apps圖示，因為這次介紹的是「備忘錄」，所以當然就是……

▲進入之後就可以看到仿實體筆記本界面的備忘錄，然後將我們需要的資訊複製貼上，再按左上方的雲端圖示返回就可以同步出現在手機上啦。

▲若輸入的訊息是地址或是電話，則可以自動判斷將該資訊加上手機apps的連結。

▲畫面回到手機，點開備忘錄稍微等待一些時間同步，等待的時間要看你的網路速度，因為備忘錄只能輸入文字，除非說你貼上正本的網路小說，不然大概都是幾秒鐘的時間就可以同步完成。現在可以看到我們輸入的訊息，標題是以第一句話決定。

▲進入之後可以發現地址跟電話的部分變了顏色，點電話就會出現是否撥打，點地址就會跳到地圖

▲跳進地圖之後會發現已經在地圖上標註了輸入的地址，點選前往就可以規劃路線啦。蘋果的地圖在尋找地址的準確度還不錯，應該不至於會找到對岸去……。