关闭

VBScript例子程序

标签: 颜色格式代码位置字符
60人阅读 评论(0) 收藏 举报
分类:

VBS基本语法介绍

W3CSchool

工作中遇到的问题,项目组长给了一个Excel,让分析其中包含的字符含义,由于每页条数太多,导致看不出来要分析的字符在一长串字符中的位置。于是想把其中要注意的字符标注颜色,网上找资料,发现Excel中本身没有这个功能,于是下了下面的代码进行处理,顺便学习下VBS的基本语法格式。
未执行脚本前三个sheet的样子如下:

sheet1
sheet2
sheet3

执行脚本后三个sheet样子如下:

sheet1_f
sheet2_f
sheet3_f

最后上脚本代码如下:

Sub Macro1()

Dim loopNum As Integer

For Each wsh In Worksheets
'找出sheet名称并提取相应的字符串
findStringArray = Split(wsh.Name, "_")
findString = findStringArray(0)
LengthString = Len(findString)

'遍历所有sheet中的所有的表格
TotalRows = wsh.UsedRange.Rows.Count
    For loopNum = 1 To TotalRows
    vlaueInCell = wsh.Cells(loopNum, 1).Value
    posstart = InStr(LCase(vlaueInCell), LCase(findString))
    If posstart > 0 Then
            With wsh.Cells(loopNum, 1).Characters(Start:=posstart, Length:=LengthString).Font
            .Color = -16777024
            '.Color = 0
            End With
        End If
    Next
Next

End Sub
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:85次
    • 积分:12
    • 等级:
    • 排名:千里之外
    • 原创:1篇
    • 转载:1篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档