资源描述：
《办公室实用vba小程序之代码部分(四)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、办公室实用VBA小程序之代码(3)摘要：本部分是办公室实用VBA小程序(一)的各项功能的貝体代码，现分享给大家。我的目走义工具基本信息及结果输出当前用户:北国骑士文件名：VBA5则试.xlsm路径：C:UsersuserDesktopVBA^料当前工作蒲共有工作表：1张当前时间：2016/3/2211:07:53表格体榆区常用功能区厂慎用功能区工作簿数字化工作表数字化删除非活动表删除表中批注(待定〉查询操作区单证归属查询厂空格检查厂合并单元格检查厂公式检查厂隐痕表检查厂错误值检查厂隐藏行检查厂隐藏列检查厂全迭开始执行检查I3、慎用功能区代码:Sub工作簿数字化()Progres
2、sBarl.Visible=TrueApplication.Screenllpdating=FalseProgressBarl.Min=0ProgressBarl.Max=Sheets.CountIfMsgBox（"数字化后将不可恢复公式'确定全部数字化？",vbYesNo,"警告“）二vbYesThenForEachMyshtInWorksheetsMysht.ActivateMysht.UsedRange.Select'Selection.Copy'Selection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBl
3、anks_':=False,Transpose:=FalseSelection.Value二Selection.Valuecot=cot+1ProgressBarl.Value=cotNextElseExitSubEndIfApplication.Screenllpdating=TrueSheets(l).ActivateLabel2.Caption="数字化完毕，共"&cot&11张。cot=0EndSub*工作表数字化Sub工作表数字化（）Application.ScreenUpdating=FalseIfMsgBoxC数字化后将不可恢复公式，确定将该Sheet数字化？**,vbY
4、esNo,“警告「二vbYesThenActiveSheet.UsedRange.Select'Selection.Copy'Selection.PasteSpecialPaste:二xIPasteValues,Operation:=xlNone,SkipBlanks_':=False,Transpose:=FalseSelection.Value=Selection.ValueElseExitSubEndIfApplication.ScreenUpdating=TrueLabel2.Caption=”该Sheet已数字化完毕。HEndSubSub选定区域数字化()Selection.
5、Value=Selection.ValueUnloadUserForm2EndSubSub删除非活表()DimshtAsWorksheetApplication.DisplayAlerts=FalseIfMsgBoxC*删除后将只保留半前工作表，确定删除所有非活动的工作表吗？",vbYesNo,11警告")=vbYesThenForEachshtInWorksheetsIfsht.Name<>ActiveSheet.NameThensht.Deletecot=cot+1EndIfNextApplication.DisplayAlerts二TrueLabel2.Caption=”共删除,
6、,&cot&”张非活动工作表。11ElseExitSubEndIfEndSubOptionExplicitSub删除表中批注()DimcomentAsDoubleDimrnggAsRangecoment=ActiveSheet.Comments.CountIfcoment>0ThenIfMsgBoxC*是否只清除批注内容，保昭批注以便重新编辑？",vbYesNo,”请选择”）二vbYesThenForEachrnggInActiveSheet.UsedRange.CellsIfNotrngg.CommentIsNothingThenrngg.ClearCommentsrngg.AddC
7、ommentEndIfcot=cot+1UserForm2.Label2.Caption=”已清除所有批注内容，您可重新编辑批注,共”&comcnt&”处！”NextElseIfMsgBox（n确定删除所有批注？n,vbYesNo,%青选择“）二vbYesThenForEachrngInActiveSheet.UsedRange.Cellsrng.ClearCommentscot=cot+1±=PULU=i^=oaUOE0。=
