1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Dim msg As String, cell A衡痕贤伎s Range, i As Integer, temp '声明公用变量Dim str As String, hanzi As Long, ZiMu As Long, ShuZi As Long, j As LongSub计算数值()If TypeName(Selection) <> "Range" Then MsgBox "请选择单元格！", 64, " 友情提示": Exit Sub '如果未选择单元格则退出For Each cell In Selection '遍历选区的单元格'*****以下七句计算选区的数字个数，因为选区无数字时计算平均值会出错，故用IF跳过此错误，对平均值赋值为0If VBA.IsNumeric(cell.Value) And cell <> "" Then i=i+1NextIf i=0 Thenmsg="平均值：0"Elsemsg="平均值：" & WorksheetFunction.Average(Selection)End Ifmsg=msg & Chr(10) & "计 数：" & WorksheetFunction.Count(Selection)msg=msg & Chr(10) & "计数值：" & WorksheetFunction.CountA(Selection)msg=msg & Chr(10) & "最大值：" & WorksheetFunction.Max(Selection)msg=msg & Chr(10) & "最小值：" & WorksheetFunction.Min(Selection)msg=msg & Chr(10) & "求 和：" & WorksheetFunction.Sum(Selection)msg=msg & Chr(10) & "单元格：" & Selection.CountMsgBox "您的选区：" & Chr(10) & msg, 64, "友情提示"End SubSub计算字符()For Each cell In Selection j=j+Len(cell.Value) '计算字符总长度 For i=1 To Len(cell) str=Mid(cell.Value, i, 1) '逐一取出字符 If str Like "[一-龥]"=True Then '汉字 hanzi=hanzi+1 '汉字累加 ElseIf str Like "[a-zA-Z]"=True Then '字母 ZiMu=ZiMu+1 '字母累加 ElseIf str Like "[0-9]"=True Then '数字 ShuZi=ShuZi+1 '数字累加 End IfNext Next MsgBox "所选单元格区域中共有字数" & j & "个。" & Chr(10) & "汉字：" & hanzi & "个" & _ Chr(10) & "字母：" & ZiMu & "个" & Chr(10) & "数字：" & ShuZi & "个" & Chr(10) _ & "特殊字符及空格:" & j-ZiMu-ShuZi-hanzi & "个。", 64, "字符统计"End SubSub控制显示()Application.CommandBars(1).Controls("统计").Controls(1).Enabled= (TypeName(Selection)="Range")Application.CommandBars(1).Controls("统计").Controls(2).Enabled= (TypeName(Selection)="Range")End Sub
5、双击左边工程资源管理器中的“ThisWorkbook”，在右边的工作簿代码窗口输入以下代码，用于调用两个程序以及控制按钮的显示状态
