今天講的實例如下：
問題如下：
解決的思路如下：
代碼運行的結果如下：
代碼如下:
代碼解析
1：2行 dim定義變量；
2：3、16行 關閉、打開屏幕刷新（用於提供程序的運行速度）；
3：4行 把顏色的代碼放入數組，間接匹配十位數；
4：5行 設定運行的區域；
5：7行 把區域內的顏色全部設置為空；
6：8~14行 遍歷區域，並把提取單元格內數值的十位數，並對應數組的顏色。
此例雖然代碼比較短，但是涉及到mid函數。
mid函數，返回 Variant (String)，其中包含字符串中指定數量的字符。
語法如下：
Mid(string, start[, length]) Mid 函數的語法具有下面的命名參數：
string 必要參數。字符串表達式，從中返回字符。如果 string 包含 Null，將返回 Null。
start 必要參數。為 Long。string 中被取出部分的字符位置。如果 start 超過 string 的字符數，Mid 返回零長度字符串 ("")。
length 可選參數；為 Variant (Long)。要返回的字符數。如果省略或 length 超過文本的字符數（包括 start 處的字符），將返回字符串中從 start 到尾端的所有字符。
mid函數實際返回的數據類型為string，所以需要使用cint來轉換成數值。
私信 視頻 可以獲取54集VBA入門視頻
私信 VBA或 vba 可以獲取文章中含VBA代碼的Excle文件
分享到:
閱讀更多 浮雲Excel分享 的文章
