这个系列集锦一些常用的功能模块,在一些项目中会穿插应用
功能模块中又包括很多子模块,本文涉及的是: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
声明:本站所有资源系站长耗费大量精力时间物力长期搜集维护,故仅对会员免费开放,每日手选更新,非烂大街的采集站,开通会员: 点击此处自助开通或者联系站长微信muyang-0410开通



