今天讲的实例如下：
问题如下：
解决的思路如下：
代码运行的结果如下：
代码如下:
代码解析
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分享 的文章
