wpsvba模块-「Excel-VBA」功能模块-常用函数-01-字符串是否含有特定字符

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用

功能模块中又包括很多子模块，本文涉及的是：VBA自带的常用函数

今天讲讲如何判断某个字符串是否含有特定字符，函数InStr

Part 1：应用场景

图1 示例表

Part 2：代码

Sub test()
    Rem>>判断是否含有特定字符
    Rem>>
    Set shtAward = ThisWorkbook.Worksheets("获奖清单")
    maxHang = shtAward.Cells(Rows.Count, "C").End(xlUp).Row
    AwardCount = 0
    For i = 2 To maxHang Step 1
        strAward = shtAward.Cells(i, "C")
        If InStr(strAward, "奖")  0 Then
            AwardCount = AwardCount + 1
        End If
    Next i
    MsgBox "获奖总人数为：" & AwardCount
End Sub

图2 代码截图

Part 3：部分代码解读

Part 4：添加点击按钮VBA代码要运行，往往需要在后台VBE点击运行按钮（事件是通过发生特定事件来自行触发的）一般用户是不懂这些代码类操作wpsvba模块，所以希望能够在Excel表格中直接添加一个按钮wpsvba模块，对所有用户友好具体操作：菜单栏开发工具-插入-按钮（窗体控件），对该按钮指定宏即可与VBA具体Sub关联，详见图3所示

图3 操作过程动图

以上，为本次的介绍内容，下回见。

限 时 特 惠： 本站每日持续更新海量各大内部创业教程，一年会员只需98元，全站资源免费下载 点击查看详情
站 长 微 信： muyang-0410

admin普通

收藏 海报 链接