随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA禁用与隐藏自定义菜单项？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行DimmsgAsString,cellA衡痕贤伎sRange,iAsInteger,temp惺绅寨瞀'声明公用变量DimstrAsString,hanziAsLong,ZiMuAsLong,ShuZiAsLong,jAsLongSub计算数值()IfTypeName(Selection)<>"Range"ThenMsgBox"请选择单元格！",64,"友情提示":ExitSub'如果未选择单元格则退出ForEachcellInSelection'遍历选区的单元格'*****以下七句计算选区的数字个数，因为选区无数字时计算平均值会出错，故用IF跳过此错误，对平均值赋值为0IfVBA.IsNumeric(cell.Value)Andcell<>""Theni=i+1NextIfi=0Thenmsg="平均值：0"Elsemsg="平均值："&WorksheetFunction.Average(Selection)EndIfmsg=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,"友情提示"EndSubSub计算字符()ForEachcellInSelectionj=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&"个。",64,"字符统计"EndSubSub控制显示()Application.CommandBars(1).Controls("统计").Controls(1).Enabled=(TypeName(Selection)="Range")Application.CommandBars(1).Controls("统计").Controls(2).Enabled=(TypeName(Selection)="Range")EndSub
5、双击左边工程资源管理器中的“ThisWorkbook”，在右边的工作簿代码窗口输入以下代码水貔藻疽，用于调用两个程序以及控制按钮的显示状态
