slaory的博客

note book

VBScript例子程序

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
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/slaory/article/details/46808449
个人分类: 脚本
想对作者说点什么? 我来说一句

VBScript教程(含实例)

2009年08月28日 395KB 下载

VBScript程序员参考手册(实例)

2010年09月06日 1.84MB 下载

vbs 编程实例vbs 编程实例

2011年06月12日 98KB 下载

没有更多推荐了,返回首页

不良信息举报

VBScript例子程序

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭