辦公室實(shí)用VBA小程序之代碼部分(二)

辦公室實(shí)用VBA小程序之代碼（1）摘要：本部分是辦公室實(shí)用VBA小程序（一）的各項(xiàng)功能的具體代碼，現(xiàn)分享給大家。我的白土受匚目（1）復(fù)選框代碼OptionExplicitPublicrngAsRangePubliccotAsDoublePublicMyshtAsWorksheetPublicstr1,str2,str3,str4,str5,str6,str7,str8AsStringSub空格檢查（）OnErrorResumeNextForEachrngInActiveSheet.UsedRange.CellsIfInStr(1,rng,"")Thencot=cot+1rng.Interior.Color=vbYellowEndIfNextIfcot>0Thenstr1="該表中存在空格，共"&cot&"處，黃底顯示。Elsestr1=""EndIfcot=0EndSubSub合并單元格檢查()ForEachrngInActiveSheet.UsedRangeIfrng.MergeCells=TrueThencot=cot+1rng.Interior.Color=vbGreenNextIfcot>0Thenstr2="表中有合并單元格，共"&cot&"處，綠底顯示。Elsestr2=""EndIfcot=0EndSubSub公式檢查()ForEachrngInActiveSheet.UsedRangeIfrng.HasFormula=TrueThencot=cot+1rng.Interior.Color=vbRedEndIfNextIfcot>0Thenstr3="該表中存在公式，共"&cot&"處，紅底顯示。"Elsestr3=""EndIfcot=0Sub隱藏表檢查()ForEachMyshtInActiveWorkbook.WorksheetsIfMysht.Visible<>xlSheetVisibleThencot=cot+1EndIfNextIfcot>0Thenstr4="該工作簿中存在隱藏工作表，共"&cot&"張。"Elsestr4=""EndIfcot=0EndSubSub隱藏行檢查()Dimi,iiAsDoubleFori=1ToActiveSheet.UsedRange.Rows.CountIfActiveSheet.Rows(i).Hidden=TrueThenii=ii+1NextIfii>0Thenstr5="該表中存在隱藏的行,共隱藏"&ii&"行。"Elsestr5=""EndIfEndSubSub隱藏列檢查()str6=""Dimj,jjAsDoubleForj=1ToActiveSheet.UsedRange.Columns.CountIfActiveSheet.Columns(j).Hidden=TrueThenjj=jj+1EndIfNextIfjj>0Thenstr6="該表中存在隱藏的列,共隱藏"&jj&"列。"Elsestr6=""EndIfSub錯(cuò)誤值檢查()ForEachrngInActiveSheet.UsedRange.CellsIfVBA.IsError(rng.Value)=TrueThencot=cot+1rng.Interior.Color=vbMagentaEndIfNextIfcot>0Thenstr8="表中有錯(cuò)誤值，共"&cot&"處，紫紅色底顯示。"Elsestr8=""EndIfcot=0EndSub(2)命令按鈕“開始執(zhí)行檢查”代碼SubCommandButton11_Click()Dimstr0AsStringLabel1.Caption=""IfCheckBox1.Value=TrueThenCall空格檢查str0="檢查完畢:"IfCheckBox2.Value=TrueThenCall合并單元格檢查str0="檢查完畢:"EndIfIfCheckBox3.Value=TrueThenCall公式檢查str0="檢查完畢:"EndIfIfCheckBox4.Value=TrueThenCall隱藏表檢查str0="檢查完畢:"EndIfIfCheckBox6.Value=TrueThenCall隱藏行檢查str0="檢查完畢:"EndIfIfCheckBox7.Value=TrueThenCall隱藏列檢查str0="檢查完畢:"EndIfIfCheckBox9.Value=TrueThenCall錯(cuò)誤值檢查str0="檢查完畢:"EndIfIfLen(str0)=0ThenLabel1.Caption=Chr(10)&"您尚未選擇檢查項(xiàng)目!"ElseLabel1.Caption=Chr(10)&str0&Chr(10)&Chr(10)&str1&Chr(10)&str2&Chr(10)&str3&Chr(10)&_