随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA分别统计选区中文本与字母、数字个数?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在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
5、选中待统计区域,使用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,程序将弹出一个消息框提示选区中的各种字符数目