批量修改excel中的批注

1、2011良鳳精品整理編著1.刪除批注中的用戶名：PrivateSubCommandButton1_Click()ForEachiInActiveSheet.Comments批注中的每一個(gè)聲明整型聲明整型聲明整型作者的長(zhǎng)度整個(gè)批注的長(zhǎng)度再減1是因?yàn)橛幸粋€(gè)冒號(hào)占一位WithiDimMYSTR1AsIntegerDimMYSTR2AsIntegerDimRESULTAsIntegerMYSTR1=Len(.Author)MYSTR2=Len(.Text)RESULT=MYSTR2-MYSTR11.TextRight(.Text,RESULT)批注的文本為原批注從右邊取除了作者名的長(zhǎng)度.Visible

2、=True將批注視為可見EndWithNextEndSub2.將批注中的用戶名更名:在上述代碼后接以下代碼:PrivateSubCommandButton1_Click()ForEachiInActiveSheet.Comments批注中的每一個(gè)聲明整型聲明整型聲明整型作者的長(zhǎng)度整個(gè)批注的長(zhǎng)度再減1是因?yàn)橛幸粋€(gè)冒號(hào)占一位WithiDimMYSTR1AsIntegerDimMYSTR2AsIntegerDimRESULTAsIntegerMYSTR1=Len(.Author)MYSTR2=Len(.Text)RESULT=MYSTR2-MYSTR11.TextRight(.Text,RESULT

3、)批注的文本為原批注從右邊取除了作者名的長(zhǎng)度.Visible=True將批注視為可見EndWithForEachiInActiveSheet.Comments遍歷每一個(gè)批注i.TextPL:&ONE.Text批注的文本前加PL:NextEndSub3.將批注中的用戶名更名:在上述代碼后接以下代碼:PrivateSubCommandButton1_Click()DimmComAsCommentForEachmComInActiveSheet.CommentsWithmCom.Shape.TextFrame.CharactersWith.Font.Bold=msoTrue改變粗細(xì).Size=14改

4、變大小.ColorIndex=3改變顏色2011良鳳精品整理編著EndWithEndWithNextEndSub4.刪除所有批注PrivateSubCommandButton1_Click()Fmentsi.deletenextEndsub5.導(dǎo)出批注PrivateSubCommandButton1_Click()OnErrorGoTolineApplication.DisplayAlerts=FalseApplication.ScreenUpdating=FalseDimcur,tempAsWorksheetSetcur=ActiveSheetSettemp=Worksheets.Addtemp.Name=導(dǎo)出批注DimrowAsIntegerrow=1ForEachoneIncur.Commentstemp.Cells(row,1).Value=one.Texttemp.Cells(row,2).Value=one.Parent.rowtemp.Cells(row,3).Value=one.Parent.Columnone.Deleterow=row+1NextMsgBox批注導(dǎo)出到表中Application.DisplayAlerts=TrueApplication.ScreenUpdating=TrueExitSubline:MsgBox批注未導(dǎo)出,可能以前導(dǎo)過.