VBScript例子程序

原创 2015年07月08日 20:54:30

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
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

JAVA调用vbScript脚本取得计算机信息小例子

一下的vbs文件,可以

【ASP】ASP vbscript一个综合的例子,操作html文件添加、删除代码、删除文件。

后台管理 添加文章 文章标题: 文章内容: 删除文章 文章编号: 文章标题: 创建日期: ...

vbscript 运行程序

6:17 PM 9/1/2011@is2120 1. 不出现cmd窗口,运行程序 Set objShell = CreateObject("Wscript.Shell") strCommand =...
  • is2120
  • is2120
  • 2011年09月01日 18:20
  • 614

【ASP】ASP vbscript几个很简单的程序,获取时间、访问次数等

如何添加对 ATL 的应用程序承载 VBScript 的支持

您可以添加类似于 VBA 的脚本编写功能到 ATL 应用程序开销很小使用 Microsoft ActiveX 脚本技术。本文演示了如何创建一个新的 ATL 应用程序或合并 VBScript 支持的一个...

JavaScript/VBScript脚本程序调试(Wscript篇)

在实际工作中,我发现程序员对脚本抱怨最多的就是脚本程序很难调试这个缺点,特别是调试.vbs等WSH程序的时候,总是:   1. 在资源管理器里面双击一个.vbs文件。   2. 程序里面发生了...
  • Qsir
  • Qsir
  • 2017年07月21日 10:29
  • 111

opencv 双目相机标定 自带例子程序的使用

有了上篇单目标定示例程序的经验,双目标定就是小菜一碟哈。 本人目前菜鸟,但还是愿意厚着脸皮分享我一下午的成果。不要拍我... 1.找到目录   ...\opencv\sources\sam...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBScript例子程序
举报原因:
原因补充:

(最多只允许输入30个字)