錦子老師

劉浩宇靜靜的坐在家裡，漫不經心地看著電視，默默地等待著。

根據LINE的聊天訊息，張磊在早上的時候，就坐上了到達臺北市的高鐵，而且就在11點，就已經到站了，現在正打D按照劉浩宇給的地址(10543臺北市松山區敦化北路244巷35號)尋來。

到了麼，劉浩宇拿起了手邊的筆電，直接起身出門，往與張磊相約的那個咖啡館(路易莎咖啡LOUISA COFFEE 敦北店)趕去。

這座咖啡館，其實就是兩人約定的見面地址。

「你好，我是張磊，請問，您應該就是劉浩宇先生吧？」鄭磊伸出右手，主動打起了招呼，給人的感覺就很有禮貌。

於此同時，張磊看向劉浩宇的眼神中閃過一絲驚訝，他也沒有想到劉浩宇會這麼年輕。

「你好，我就是劉浩宇。」劉浩宇也伸出了自己的右手，和張磊握了一下。

互相介紹完畢，兩個人都坐了下來，桌子上也已經有了兩杯點好的義式摩卡咖啡。

「我只有一個問題，假設在工作表A1儲存格裡有一段文字"喬遷大喜平安幸福，良辰吉日慶喬遷。",如果想寫個巨集，當搜尋到"喬遷"這二個字時，將這二個字變成紅色，請問應該如何寫?」張磊的眼中閃過一絲疑惑，語氣謹慎的問出了這個問題。

「我簡單的做一個小小VBA程序，給你參考」劉浩宇靜靜的說出。

1.首先將字串所在活頁簿開啟。

2.按ALT +F11開啟模組視窗。

3.點取「插入 > 模組」指令，開啟一個空白模組工作表。

4.輸入下列程序碼。

Sub text3690()

    Range("A1").Select          ‘選擇目前工作表A1儲存格

    For i = 1 To Len(Range("A1"))          ‘設定I值為1到目前儲存格字串長度

        If Mid(Range("A1"), i, 2) = "喬遷" Then          ‘如果抓取A1儲存格字串從I值開始的二個字元，如果等於”喬遷”則執行下列程序。

            Range("A1").Characters(Start:=i, Length:=2).Font.Color = RGB(255, 0, 0)
‘設定抓取的2個字元字型色彩為紅色RGB(255, 0, 0)。

            i = i + 1          ‘由於己找尋到所要字串，故設定I值等於目前戈I值加1，減才找尋的次數，避免不必要的動作。

        End If          ‘IF程序結束。

    Next I          ‘變成目前戈I值的下一個I值。

End Sub

5.按F5鍵執行程序，再按ALT+F4關閉模組視窗或按ALT+TAB鍵回到活頁簿視窗，即可看到喬遷字串變紅色。

更多相關影片教學：請點我

更多相關文章：請點我