如何將巨集程式放置於自訂功能區？

使用者如果希望此巨集程式能夠方便使用，可以把巨集放在自訂的功能區中，如何把巨集放置在自訂的功能區中？

舉例我們已經建置一個名為changefont的Excel2010的VBA巨集，我們要把它放置在Excel2010的功能區域中方便我們使用，我們可以依照下列步驟進行：

1.執行『檔案』/『選項』，在『Excel選項』表單中，點選『自訂功能區』選項，切換選擇命令為『巨集』

2.找到我們所建立的changefont這個巨集，然後在右邊自訂功能區中，按下下方『新增索引標籤』按鈕，新增一個自訂的『新增索引標籤』。

3.點選『重新命名』按鈕，在輸入框中輸入"變更註解字型"，按下確定。

4.然後再點選"變更註解字型"這個自訂的索引標籤下方的『新增群組(自訂)』，點選『重新命名』按鈕，"顯示名稱"改為『變更』。

5.按下中間『新增(A)』這個按鈕，再將changefont這個巨集加入"變更註解字型"這個自訂的索引標籤中的『變更』，再按『確定』。

6.完成設定之後，可以在功能區中看到所增加的"變更註解字型"這個自訂功能區，使用者只要點選『變更』群組中的changefont，即可執行該巨集。

利用VBA程式解決Excel2010大量變更註解字型的問題

接續上篇文章解決Excel2010變更註解字型的問題，有使用者在Microsoft Answers提到：如何才能將已經建立好的多筆的儲存格註解一次進行字型的變更，而不用逐筆變更。

舉例以下工作表已經在數個儲存格中加入註解，如果要變更每一個儲存格的註解字型或相關格式，只能逐筆進行，無法以全部選取的方式，一鍵完成。這個需求在Excel2010並未提供，只能透過VBA巨集程式來達成。

所以我們的目標要建立一個可以一次將所有註解字型進行變更的VBA程式。

程式碼內容如下

'-----------
'作者:楊煥謀
'歡迎引用

Sub changefont()
Dim ob As Object
Dim obrange As Range
On Error Resume Next
Set obrange = Selection
For Each ob In obrange.Cells
ob.Comment.Shape.Select True
With Selection.Font
        .Name = "微軟正黑體"   '修改此字型名稱即可變更駐解字型

        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
'        .TintAndShade = 0
'        .ThemeFont = xlThemeFontNone
    End With
 With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .ReadingOrder = xlContext
        .Orientation = xlUpward
        .AutoSize = False
        .AddIndent = False
    End With

Next





End Sub

這支程式可以將選取區中所有儲存格的註解字型變更為"微軟正黑體"  ， 使用者只要修改此字型名稱即可變更駐解字型，為了讓使用者更清楚其作用，我加上一個格式設定，讓註解變成橫書垂直方向。

如何使用這支程式？

1.因為我們要在Excel內建的VBA IDE環境中加入巨集程式，所以首先要把『開發人員』功能區叫出來，因為在Excel2007開始將VBA IDE放置在『開發人員』功能區，而此功能區沒有放在使用預設的功能區之列，所以使用者必須執行『檔案』/『選項』

在『Excel選項』表單中，點選『自訂功能區』選項，在右邊『自訂功能區』選單勾選『開發人員』(預設沒有勾選)

勾選完按確定可以看到功能區中新增一個『開發人員』功能區。

2.再點選『開發人員』/『Visual Basic』，叫出VBA IDE

2.點選所在的Excel工作簿名稱的VBAProject，舉例本範例的工作簿名稱為"如何大量變更註解字型.xlsm"，副檔名為.xlsm代表是含有巨集的工作簿。按右滑鼠右鍵，在突顯功能表中選取插入模組

3.打開新增的模組，將上述程式碼複製貼上即可。

4.將滑鼠游標移至程式碼中，按下執行按鈕進行測試即可。

5.測試的時候請註意：必須將所有要更改註解的儲存格選取，並將點選『校閱』/『註解』/『顯示所有註解』，將儲存格上的註解顯示出來，這樣才能確保處理的是註解字型而非儲存格字型。

6.執行的結果如下

7.特別註意此巨集程式沒有復原功能，建議先複製一份原稿再進行測試!

座位表製作增益集2.0正式發佈(我的第一個純64位元版本的增益集)

把8年前的主機升級至64位元的系統環境，一堆從前VB的作品通通不能用，所以最近沒什麼時間在部落格上寫文章，經過一個月的奮戰，終於產出第一個在64位元環境(WIN7 + OFFICE2010)可以使用的增益集，這個版本只能在64位元的OFFICE使用!有興趣可以至增益集工坊註冊下載，免費的。另外歡迎各地(包含大陸)網友引用，但是不要忘記標示作者是誰!

解決Excel2010變更註解字型的問題

Excel工作表儲存格加入註解的功能，可以幫助使用者快速了解資料的內涵。使用者在工作表的資料格加入註解時，Excel會使用預設的字型，無法讓使用者事先更改字型設定，使用者只能在加入每筆註解後，再進行字型修改設定。

舉例要在A1儲存格加入註解，然後修改其字型，可以依照下列步驟進行：

1.選擇A1儲存

2.切換功能區至『校閱』，在『註解』功能區段中按下『新增註解』

3.游標會出現在黃色的『註解』輸入框中

4.此時將功能區切換至『常用』/『字型』，即可看到註解預設的字型為"Tahoma"、大小為9點字，只要在此進行變更字型，即可達到目的。

5.例如我們要把註解字型改為"新細明體"、大小為14點字，只要在黃色的『註解』輸入方塊中，將所輸入的註解文字反白選取，再由『常用』/『字型』中進行選取新的字型與變更大小即可!

除了上述方式，使用者也可以用另一個方法，達到變更註解字型的目的，就是利用呼叫『註解格式』對話框，進行設定。

6.如何呼叫『註解格式』對話框？最快的方式就是：使用者選取黃色的註解輸入方塊，再按滑鼠右鍵叫出突顯功能選單，在選單的下方即有『註解格式』的選項。

7.滑鼠點選『註解格式』的選項，即可叫出『註解格式』的設定表單，使用者可以在此設定『註解』的各種格式，包括字形、大小、顏色…等等各種額外的設定。

ps:使用者要使用此快捷功能，最麻煩的部分可能是：如何選取黃色的註解輸入方塊，因為輸入註解之後，預設註解會隱藏，只有滑鼠移動至該儲存格註解才會浮現，此時要選取此黃色的註解輸入方塊不容易，使用者可以選取註解所在的儲存格，再將功能區切換至『校閱』/『註解』，點選『顯示/隱藏註解』，將註解顯示，此時會比較容易選黃色的註解輸入方塊。如果要變更回隱藏註解，只要再點選『顯示/隱藏註解』即可。

下個解決問題預告：利用VBA解決Excel多筆儲存格的註解字型變更的問題!