[VBA]工作表名稱的應用

因為工作需求常常會有將工作表A抓到工作表B的情況，一開始都是現在工作表A處理完之後再自己手動複製到工作表B，但這樣還是有點麻煩，想要可以一步到位的做法，就開始研究一下怎麼處理。

經由網路搜尋跟自己試誤，整理一下大概會用到的指令。

1. 選擇表格

   1. 一般來說如果沒有特別指定的話，執行VBA的工作表都會是當前的工作表(activesheet)，但有時候會想要在特定的工作表執行，就可以在執行程式碼之前選擇該工作表，如下所示：

   2. 1
      `選擇XXX工作表
      2
      `Worksheets(名稱).Select
      3
      `範例
      4
      Worksheets("排水&道路工程").Select
      

2. 指定最後一行(列)

   1. 這個功能很實用，用來自己判斷表格的最後一行或是最後一列，網路上很多介紹都適用於當前工作表，如果要改成指定工作表，說明如下：

   2. ​x
      1
      `判斷當前的工作表    
      2
      r = Cells(ActiveSheet.Rows.Count, 行數).End(xlUp).Row
      3
      `範例
      4
      r = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
      5
      ​
      6
      c1 = Cells(列數, ActiveSheet.Columns.Count).End(xlToRight).Column
      7
      `範例
      8
      c1 = Cells(1, ActiveSheet.Columns.Count).End(xlToRight).Column
      9
      `判斷指定的工作表，名稱通常會加雙引號
      10
      r = Worksheets(名稱).Cells(Rows.Count, 5).End(xlUp).Row
      11
      `範例
      12
      r = Worksheets("抽水站").Cells(Rows.Count, 5).End(xlUp).Row
      

3. IF判斷式

   1. 迴圈的時候使用的判斷式，指定工作表的判斷式用法如下：

   2. xxxxxxxxxx
      4
      1
      `cells的用法
      2
      If Worksheets(名稱).Cells(i, 6) <> Worksheets(名稱).Cells(i, 9) And Worksheets(名稱).Cells(i, 1).Value <> "" Then
      3
      `range的用法
      4
      Worksheets(名稱).Range("E" & r & ":F" & r).Select
      

   3. 要是判斷式太長的話，可以用空白鍵+_來換行

 

 

修改TeleGram-Desktop字型

修改TG-Desktop字型說明__Ver1.9以前適用修改TG-Desktop字型說明__Ver1.9以後適用Telegram v2.1.1版本更新

修改TG-Desktop字型說明__Ver1.9以前適用

用TeleGram(TG)也已經1年多了，因為能多重裝置同時登入、app反應迅速、操作較為人性化、能分享即時位置等，雖然LINE上的聯絡人還是比較多，所以現在算是老婆限定的通訊軟體。

TeleGram全平台都有，但個人最常用的是windows及iOS版本，但不管是什麼平台官方版本都沒有內建中文，雖然還是有中文套件能套用只是步驟比較多。iOS版本自從更新到5.0，程式由Objective-C改成Swift編寫後就不能套用中文化，只能期待之後的更新能有官方中文了。

而桌機版的中文化套用之後就能將界面變為中文，但也就是變成中文，字型仍然是最常見的細明體。就這樣用了一年之後才發現原來已經有人做出可以更改字型的套件，那就是TGFont。

下载 TGFont.dll 并重命名为 winmm.dll. 然后放在 Telegram 的文件夹里.

用户字体: 把字体文件放在 fonts 文件夹内, 可以直接使用, 无需安装到系统中.初次运行时会创建 TGFont.json. 配置文件使用 UTF-8 编码. 支持 UTF-8 BOM.

依據步驟執行，如果你使用的是TG安裝版，可以直接按ctrl+R在输入 %APPDATA%\Telegram Desktop打開安裝位置，放入更改名稱的winmm.dll，然後啟動TeleGram Desktop，就可以在安裝資料夾裡面看到TGFont.json，用記事本打開可以看到以下程式碼：

{  
    "fonts": {  
        "SimSun": {  
            "replace": "Microsoft YaHei UI",  
            "#size": 0,  
            "#width": 0,  
            "#weight": 0,  
            "#italic": false,  
            "#underLine": false,  
            "#strikeOut": false  
        }  
    },  
    "debug": false  
}  

相關參數說明可直接參照官網，simsun主要使用在簡體系統用戶，而繁體系統用戶不適用，需要將simsun修改為Open Sans，"replace"填上想要修改的字型名稱即可。

而因為我想要英文字型用一種，中文字型用一種，想要達到這樣的效果官網給了

如果只想替换中文字体，保留英文字体不变，你需要将 "key" 设为中文的 fallback 字体。这个字体在不同语言环境下可能不一样 (比如简体中文是 SimSun)，你需要使用 debug 模式找到对应的字体。

這樣的一段話，完全摸不著頭緒……只好不斷的Google查詢資料，最後終於讓我摸索出來！原來只要將英文字型放在中文字型前面就可以了。就像我想要將英文字型設為K2D light，中文設為iLiHei，就需要將程式碼修改為

xxxxxxxxxx
{
    "fonts": {
        "Open Sans": {
            "replace": "K2D light",
        },
        "Open Sans Semibold": {
            "replace": "K2D light",
        },
        "PMingLiU": {
            "replace": "iLiHei",
        }
    },
    "debug": false
}

其中Open Sans及Open Sans Semibold代表繁體用戶的英文，PMingLiU代表著中文，分別取代就可以了，最後將界面大小調整為125%就能讓字型看起來更漂亮一點。

如果你不想安裝字型到電腦或是使用的是免安裝版，那也可以在安裝資料夾內設一個fonts的資料夾，將你的字型丟進去就能帶著跑了。

如果你的系統不是繁中或簡中，那也沒關係，跟著下面說明試試^^。

非中文系统可以尝试将SimSun改为MS PGothic（英文系统）、Meiryo(日文系统）、Meiryo UI（Windows 8日文系统）、Yu Gothic UI（Windows 10 日文系统）PMingLiU（繁体中文）使补丁生效。（未测试）

by royink li

修改TG-Desktop字型說明__Ver1.9以後適用

TGFont更新到2.0版，有些操作方式修正了，但是大同小異，其說明如下：

下載 FontMod.dll 並更名為 winmm.dll，然後放在程式 exe 所在的檔案夾裏。 使用者字型: 把字型檔案放在 fonts 檔案夾內，可以直接使用，無需安裝到系統中。

接著打開TeleGram就會建立 FontMod.yaml。組態檔案使用 UTF-8 編碼。支援 UTF-8 BOM。

依據步驟執行，如果你使用的是TG安裝版，可以直接按ctrl+R在输入 %APPDATA%\Telegram Desktop打開安裝位置，放入更改名稱的winmm.dll，然後啟動TeleGram Desktop，就可以在安裝資料夾裡面看到FontMod.yaml，用記事本打開可以看到以下程式碼：

style: &style
# Remove '#' to override font style
#  size: 0
#  width: 0
#  weight: 0
#  italic: false
#  underLine: false
#  strikeOut: false
#  charSet: 0
#  outPrecision: 0
#  clipPrecision: 0
#  quality: 0
#  pitchAndFamily: 0
​
fonts:
  SimSun: &zh-cn-font # Chinese (Simplified) fallback font
    replace: Microsoft YaHei
    <<: *style
  PMingLiU: # Chinese (Traditional) fallback font
    replace: Microsoft JhengHei UI
    <<: *style
  MS UI Gothic: # Japanese fallback font
    replace: Yu Gothic UI
    <<: *style
  Gulim: # Korean fallback font
    replace: 맑은 고딕
    <<: *style
​
fixGSOFont: true # true is to use system UI font
#fixGSOFont: *zh-cn-font # Or replace with user defined font
debug: false

如果不需要跟我一樣想要中英文字型分開的話，相關參數說明可直接參照官網設定即可。

繁體用戶的設定可以參照下列

xxxxxxxxxx
style: &style
​
fonts:
  DAOpenSansRegular:  # 繁體中文英文及數字標準字型
    replace: iLiK2
    <<: *style
  DAOpenSansRegularItalic:  # 繁體中文英文及數字斜體字型
    replace: iLiK2
    <<: *style
  DAOpenSansSemibold:  # 繁體中文英文及數字粗體字型
    replace: iLiK2
    <<: *style
  SimSun: &zh-cn-font # Chinese (Simplified) fallback font
    replace: iLiK2
    <<: *style
  PMingLiU: # Chinese (Traditional) fallback font
    replace: iLiK2
    <<: *style
  MS UI Gothic: # Japanese fallback font
    replace: iLiK2
    <<: *style
​
fixGSOFont: false # true is to use system UI font
#fixGSOFont: *zh-cn-font # Or replace with user defined font
debug: true
​

Telegram v2.1.1版本更新

Telegram v2.1.1版本繁體中文預設字型變成微軟正黑體，簡體沒意外的話應該是變成微軟雅黑體，所以字型的部分要跟著修正，日文的部分不確定有沒有變更。

xxxxxxxxxx
fonts:
  DAOpenSansRegular:  # 繁體中文英文及數字標準字型
    replace: K2D light
    <<: *style
  DAOpenSansRegularItalic:  # 繁體中文英文及數字斜體字型
    replace: K2D Italic
    <<: *style
  DAOpenSansSemibold:  # 繁體中文英文及數字粗體字型
    replace: K2D bold
    <<: *style
  Microsoft YaHei: &zh-cn-font # 簡體中文字型
    replace: iLiHei
    <<: *style
  Microsoft JhengHei UI: # 繁體中文字型
    replace: iLiHei
    <<: *style
  MS UI Gothic: # Japanese fallback font
    replace: iLiHei
    <<: *style