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

vbs脚本大全,配有实例

1 VBS取得本机IP strComputer = "."  Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/ci...
  • t0nsha
  • t0nsha
  • 2008年03月27日 16:33
  • 2549

VBS脚本常用经典代码

VBS脚本常用经典代码 1、VBS获取系统安装路径 /*先定义这个变量是获取系统安装路径的,然后我们用“&strWinDir&”调用这个变量。*/ setWshShell = WScript.C...
  • cosmoslife
  • cosmoslife
  • 2016年11月21日 18:38
  • 7931

VBS脚本大全 各种实例程序,恶搞代码

  • 2009年12月20日 15:01
  • 617KB
  • 下载

VBScript教程(含实例)

  • 2009年08月28日 13:55
  • 395KB
  • 下载

推荐一个比较好的VBS编辑器

QTP 本身的IDE环境, 有诸多缺陷。所以,一般中级以上的自动化测试工程师都会采用外部其他编辑器来编辑VBS脚本。通常情况下,一般都 notepad++。 但是,notepad++也是有很多不足之处...
  • blizzardlyk
  • blizzardlyk
  • 2013年02月06日 15:31
  • 12407

VBScript的读写文件操作

第一步:OpenTextFile() 或者OpenAsTextStream() 第二步:Read 方法 或者ReadAll 方法 或者ReadLine 方法 Write 方法 W...
  • u013569416
  • u013569416
  • 2014年11月23日 17:18
  • 1618

利用SecureCRT的VBScript进行自动化控制

在SecureCRT中使用VBSCRIPT脚本,确实能够提高我们的工作效率,并且可以实现完全的自动化。 SecureCRT给我们提供了很好的平台——脚本工具制作和运行。下面就SecureCRT工...
  • pfm685757
  • pfm685757
  • 2017年03月21日 20:57
  • 1261

vbscript 字符串连接和数字转化为字符串

1、字符串连接用& 2、数字转化为字符串使用cstr       如:cstr(456)将输出字符串"456" VBscript中的字符串函数 在VBscript中,系统提供了大量的字符串函数来...
  • huyoufu200920201078
  • huyoufu200920201078
  • 2015年05月18日 21:57
  • 1695

VBscript和javascript区别以及在哪里该用谁?

在很多论坛中看到关于VBscript和javascript到底应该使用哪个,哪个比较好的问题?  今天我来谈谈我的看法:  服务器端:  大家知道ASP支持这两中脚本语言,也就是在服...
  • Chair_
  • Chair_
  • 2014年10月31日 15:30
  • 1408

VBScript中SendKeys与项目结合的妙用

VBScript中的SendKeys命令模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:object.SendKeys string。其中,“objec...
  • WZ18810463869
  • WZ18810463869
  • 2016年02月29日 21:09
  • 484
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBScript例子程序
举报原因:
原因补充:

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