案例一：excel批量修改批注文字格式
介紹一個excel批量修改批注的案例：比如將SHEET1工作表中所有的批注文字批量更改為為：楷體、14號、顏色為紅色。如何實現(xiàn)批量修改批注呢？
方法是按下ALT+F11，打開VBE編輯器，插入——模塊，輸入下面的代碼，按F5鍵運行，即可實現(xiàn)將SHEET1工作表的批注進行批量修改。下面是代碼：
Sub 批量修改批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我們要批量修改批注的工作表，可以按需改變。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷體"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub
案例二：excel批量修改批注部分文字
如下圖所示的，要實現(xiàn)將excel工作表批注文字中的“blwbbs”，全部更改為“IT部落窩”。
在Excel2010中批量修改批注部分文字內(nèi)容的方法是：
1、將Excel文件的擴展名修改為.zip
2、雙擊打開zip壓縮包，找到xl文件夾下的comments1.xml文件，并雙擊打開（一般用IE打開），在頁面上點擊右鍵->選擇“查看源文件”，會彈出源代碼窗口（通常是以記事本打開），然后查找需要修改的內(nèi)容(如：Excel2010），替換為新的內(nèi)容（如：Office），保存關閉記事本，解壓包這里還會提示“文件***已經(jīng)被修改。你希望在壓縮文件中更新它嗎？”，選擇“是”；
3、最后把zip文件擴展名再改回原來的擴展名，即.xlsx。
通過上面三步就可以實現(xiàn)批量修改批注部分文字。
案例三：excel批量修改批注框大小，統(tǒng)一尺寸
按照案例一的方法，使用下面的代碼實現(xiàn)，其中的Width = 200，根據(jù)需要自己更改批注框?qū)挾取?/FONT>
Sub 批量修改批注框大小()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
Cmt.Parent.Comment.Shape.Width = 200
Next Cmt
End Sub
核心關注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務領域、行業(yè)應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業(yè)務領域的管理，全面涵蓋了企業(yè)關注ERP管理系統(tǒng)的核心領域，是眾多中小企業(yè)信息化建設首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文網(wǎng)址：http://www.ezxoed.cn/html/support/1113925749.html
相關文章
