办公室实用VBA小程序之代码部分(四)

办公室实用VBA小程序之代码（3）摘要：本部分是办公室实用VBA小程序（一）的各项功能的具体代码，现分享给大家。我的白土受匚目基本后思演结果输出

当前用户:北国骑士文件名：VB醐!!试.Klm路役：C：∖U≡er≡∖usəɪ∖Dθ≡ktqp∖VB当前工作簿共有工作表：1张当前时间：2015∕□∕Ξ211:07:53表格年检区Γ空格检查厂隐藏行检查I合7单元格检查Γ公武检空全选Γ窟藏在榜意开始执行检查Γ情诺值信有一麒藤到J⅛查3、慎用功能区代码:Sub工作簿数字化（）ProgressBar1.Visible=TrueApplication.ScreenUpdating=FalseProgressBar1.Min=0ProgressBar1.Max=Sheets.CountIfMSgBox（"数字化后将不可恢复公式,确定全部数字化？",VbYeSNo,"警告"）=vbYesThenForEachMyShtInWorkSheetSMysht.ActivateMysht.UsedRange.Select'Selection.Copy'Selection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_' :=False,Transpose:=FalseSelection.Value=Selection.Valuecot=cot+1ProgressBar1.Value=cotNextElseExitSubEndIfApplication.ScreenUpdating=TrueSheets(1).ActivateLabel2.Caption="数字化完毕,共"&cot&"张。"cot=0EndSub'工作表数字化Sub工作表数字化（）Application.ScreenUpdating=FalseIfMSgBox("数字化后将不可恢复公式,确定将该Sheet数字化？"，vbYesNo,"警告")=vbYesThenActiveSheet.USedRange.Select'Selection.Copy'Selection.PaSteSpecialPaSte:=xlPaSteValueS,Operation:=xlNone,SkipBlankS_' :=FalSe,TranSpoSe:=FalSeSelection.Value=Selection.ValueElSeExitSubEndIfApplication.ScreenUpdating=TrueLabel2.Caption="该Sheet已数字化完毕。”EndSubSub选定区域数字化()Selection.Value=Selection.ValueUnloadUSerForm2EndSubSub删除非活表()DimshtAsWorksheetApplication.DisplayAlerts=FalseIfMSgBox("删除后将只保留当前工作表，确定删除所有非活动的工作表吗？",vbYesNo,"警告")=vbYesThenForEachShtInWorkSheetSIfSht.Name<>ActiveSheet.NameThenSht.Deletecot=cot+1EndIfNextApplication.DiSplayAlertS=TrueLabel2.Caption="共删除"&cot&"张非活动工作表。"ElSeExitSubEndIfEndSubOptionExplicitSub删除表中批注()DimcomcntASDoubleDimrnggAsRangecomcnt=ActiveSheet.Comments.CountIfcomcnt>0ThenIfMSgBox（"是否只清除批注内容，保留批注以便重新编辑？"，vbYesNo,"请选择"）=vbYesThenForEachrnggInActiveSheet.USedRange.CellSIfNotrngg.CommentISNothingThenrngg.ClearCommentSrngg.AddCommentEndIfcot=cot+1USerForm2.Label2.Caption="已清除所有批注内容，您可重新编辑批注，共"&comcnt&"处！"NextElSeIfMSgBox（"确定删除所有批注？",VbYeSNo,"请选择"）=VbYeSThenForEachrngInActiVeSheet.USedRange.CellSrng.ClearCommentScot=cot+1UserForm2.La