养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

怎样使用VBA统计选区中文本与字母、数字个数

时间:2024-10-24 09:26:48

随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA分别统计选区中文本与字母、数字个数?

怎样使用VBA统计选区中文本与字母、数字个数

工具/原料

手机

方法/步骤

1、首先在开发工具中打开VBA编辑器

怎样使用VBA统计选区中文本与字母、数字个数

2、在单元格区域当中输入一些内容作为例子

怎样使用VBA统计选区中文本与字母、数字个数

3、在VBA编辑器中插入模块

怎样使用VBA统计选区中文本与字母、数字个数

4、在模块当中输入如下代码,然后运行Sub选区字符统计()DimstrAsS隋茚粟胫tring,ChineseCharAsLong,帆歌达缒AlphabeticAsLong,NumberAsLongDimiAsLong,rngAsRange,jAsLongIfTypeName(Selection)<>"Range"ThenMsgBox"请选择单元格!",64,"友情提示":ExitSubForEachcellInSelectionj=j+Len(cell.Value)'计算字符总长度Fori=1ToLen(cell)str=Mid(cell.Value,i,1)IfstrLike"[一-龥]"=TrueThen'汉字hanzi=hanzi+1'汉字累加ElseIfstrLike"[a-zA-Z]"=TrueThen'字母ZiMu=ZiMu+1'字母累加ElseIfstrLike"[0-9]"=TrueThen'数字ShuZi=ShuZi+1'数字累加EndIfNextNextMsgBox"所选单元格区域中共有字数"&j&"个。"&Chr(10)&"汉字:"&hanzi&"个"&Chr(10)&"字母:"&ZiMu&"个"&Chr(10)&"数字:"&ShuZi&"个"&Chr(10)&"特殊字符及空格:"&j-ZiMu-ShuZi-hanzi&"个。",vbInformation,"字符统计"EndSub

怎样使用VBA统计选区中文本与字母、数字个数

5、选中待统计区域,使用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,程序将弹出一个消息框提示选区中的各种字符数目

怎样使用VBA统计选区中文本与字母、数字个数

© 一点知识