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

wptr33 2024-12-09 18:01 37 浏览

系统环境：Windows 10
Excel：2016版本

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用
功能模块中又包括很多子模块，本文涉及的是：VBA自带的常用函数

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

Part 1：应用场景

要求：统计某次比赛获奖人数
输入：有工作表获奖清单，其中A列为序号，B列为姓名，C列为获奖状况，如图1所示
逻辑过程：对工作表C列进行循环，如果单元格内容中含有“奖”字，则计数器+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

Part 3：部分代码解读

maxHang = shtAward.Cells(Rows.Count, "C").End(xlUp).Row，获得C列单元格含有内容的单元格所处的最大行
InStr(strAward, "奖") <> 0，判断变量strAward是否含有“奖”这个字符

Part 4：添加点击按钮

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

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

本文首发于微信公众号：Excel高效办公之VBA。排版和细节略作修改，发于头条

vba instr

上一篇：利用VBA构建Excel中的多条件查询用户界面
下一篇：Excel VBA【案例分享】数据结构转换(数组、字典应用)

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

Part 1：应用场景

Part 2：代码

Part 3：部分代码解读

Part 4：添加点击按钮

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码因果推断模型

git pull命令使用实例 git pull--rebase

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

面试官:git pull是哪两个指令的组合?

git 执行pull错误如何撤销 git pull fail

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 之后本地代码被覆盖解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

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

Part 1：应用场景

Part 2：代码

Part 3：部分代码解读

Part 4：添加点击按钮

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码 因果推断模型

git pull命令使用实例 git pull--rebase

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

面试官:git pull是哪两个指令的组合?

git 执行pull错误如何撤销 git pull fail

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 之后本地代码被覆盖 解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

因果推断Matching方式实现代码因果推断模型

git pull 之后本地代码被覆盖解决方案