如何统一设定excel批注的字体格式 EXCEL中，批注的字体怎么批量修改
\u5982\u4f55\u7edf\u4e00\u4fee\u6539EXCEL\u4e2d\u7684\u6279\u6ce8\u683c\u5f0f\uff1f\u3000\u30001\u3001\u6253\u5f00Excel\u5de5\u4f5c\u7c3f\u6587\u6863\uff0c\u6309\u4e0bALT+F11\u7ec4\u5408\u952e\u8c03\u7528\u51faVBA\u7f16\u8f91\u5668\u3002
\u3000\u30002\u3001\u5355\u51fb\u83dc\u5355\u680f\u4e0a\u7684\u201c\u63d2\u5165\u201d\uff0c\u6253\u5f00\u7684\u83dc\u5355\u5355\u51fb\u201c\u6a21\u5757\u201d\u547d\u4ee4\u3002
\u3000\u30003\u3001\u5c06\u4e0b\u9762\u7684\u4ee3\u7801\u590d\u5236\u5230\u6a21\u5757\u6846\u4e2d
\u3000\u3000Sub \u6279\u91cf\u4fee\u6539\u6279\u6ce8()Dim cm As CommentFor Each cm In Sheet1.Comments 'sheet1\u662f\u6211\u4eec\u8981\u6279\u91cf\u4fee\u6539\u6279\u6ce8\u7684\u5de5\u4f5c\u8868\uff0c\u53ef\u4ee5\u6309\u9700\u6539\u53d8\u3002With cm.Shape.TextFrame.Characters.Font.Name = "\u6977\u4f53".Size = 14.ColorIndex = 3End WithNextEnd Sub
\u3000\u30004\u3001\u5355\u51fb\u5de5\u5177\u680f\u7eff\u8272\u7684\u201c\u8fd0\u884c\u201d\u6309\u94ae\u6216\u76f4\u63a5\u6309F5\u952e\u3002
\u3000\u30005\u3001\u9000\u51faVBA\u7f16\u8f91\u5668\u7a97\u53e3\uff0c\u73b0\u5728\u6765\u770b\u4e00\u4e0b\u6548\u679c\u56fe\u3002
1.\u8fdb\u884c\u64cd\u4f5c\u65f6\u5148\u5f00\u542f\u663e\u793a\u6269\u5c55\u540d\u7684\u8bbe\u7f6e\uff1a\u53cc\u51fb\u201c\u8ba1\u7b97\u673a\u201d\uff0c\u5355\u51fb\u201c\u7ec4\u7ec7\u201d\u83dc\u5355\u4e2d\u7684\u201c\u6587\u4ef6\u5939\u548c\u641c\u7d22\u9009\u9879\u201d\u3002
2.\u5728\u6253\u5f00\u7684\u201c\u6587\u4ef6\u5939\u9009\u9879\u201d\u5bf9\u8bdd\u6846\u5207\u6362\u5230\u201c\u67e5\u770b\u201d\u9009\u9879\u5361\uff0c\u628a\u9ad8\u7ea7\u8bbe\u7f6e\u5217\u8868\u4e2d\u7684\u201c\u9690\u85cf\u5df2\u77e5\u6587\u4ef6\u7c7b\u578b\u7684\u6269\u5c55\u540d\u201d\u590d\u9009\u6846\u53bb\u6389\uff0c\u5355\u51fb\u201c\u786e\u5b9a\u201d\u6309\u94ae\u3002
3.\u53f3\u51fb\u8981\u6279\u91cf\u4fee\u6539\u6279\u6ce8\u90e8\u5206\u6587\u5b57\u7684Excel\u5de5\u4f5c\u8868\uff0c\u6253\u5f00\u7684\u53f3\u952e\u83dc\u5355\u5355\u51fb\u201c\u91cd\u547d\u540d\u201d\u547d\u4ee4\uff0c\u5c06\u6269\u5c55\u540d\u201cxlsx\u201d\u4fee\u6539\u4e3a\u201czip\u201d\uff0c\u6309\u56de\u8f66\u952e\u3002
4.\u5f39\u51fa\u4ee5\u4e0b\u63d0\u793a\u5bf9\u8bdd\u6846\uff0c\u5355\u51fb\u201c\u662f\u201d\u3002
5.\u53cc\u51fbzip\u538b\u7f29\u5305\uff0c\u8fdb\u5165\u201cxl\u201d\u6587\u4ef6\u5939\uff0c\u53cc\u51fb\u6253\u5f00\u201ccomments1.xml\u201d\u6587\u4ef6\u3002
6.\u9f20\u6807\u53f3\u51fb\u6253\u5f00\u7684\u9875\u9762\uff0c\u5f39\u51fa\u7684\u83dc\u5355\u9009\u62e9\u201c\u67e5\u770b\u6e90\u6587\u4ef6\u201d\u547d\u4ee4\u3002
7.\u5f39\u51fa\u6e90\u4ee3\u7801\u7684\u8bb0\u4e8b\u672c\u7a97\u53e3\uff0c\u5355\u51fb\u201c\u7f16\u8f91\u201d\u83dc\u5355\u4e2d\u7684\u201c\u66ff\u6362\u201d\u547d\u4ee4\u3002
8.\u5728\u201c\u67e5\u627e\u5185\u5bb9\u201d\u6587\u672c\u6846\u8f93\u5165\u201cblwbbs\u201d\uff08\u5373\u9700\u8981\u4fee\u6539\u7684\u5185\u5bb9\uff09\uff0c\u5728\u201c\u66ff\u6362\u4e3a\u201d\u6587\u672c\u6846\u8f93\u5165\u201c\u65b0\u5185\u5bb9\u201d\uff0c\u7136\u540e\u5355\u51fb\u201c\u5168\u90e8\u66ff\u6362\u201d\u6309\u94ae\u3002
9.\u5173\u95ed\u5e76\u4fdd\u5b58\u8bb0\u4e8b\u672c\uff1a\u5355\u51fb\u53f3\u4e0a\u89d2\u7684\u201c\u5173\u95ed\u201d\u6309\u94ae\uff0c\u5f39\u51fa\u7684\u5bf9\u8bdd\u6846\u5355\u51fb\u201c\u4fdd\u5b58\u201d\u6309\u94ae\u5373\u53ef\u3002
10.\u538b\u7f29\u5305\u90a3\u91cc\u4f1a\u63d0\u793a\u201c\u6587\u4ef6"comments1.xml"\u5df2\u7ecf\u88ab\u4fee\u6539\u3002\u5e0c\u671b\u5728\u538b\u7f29\u6587\u4ef6\u4e2d\u66f4\u65b0\u5b83\u5417\uff1f\u201d\uff0c\u5355\u51fb\u201c\u662f\u201d\u3002
11.\u6700\u540e\u5c06\u6269\u5c55\u540dzip\u6539\u56de\u539f\u6765\u7684xlsx\u5373\u53ef\u3002
1、现在看到单元格中的字体格式不一样，现在要做的事需要把文字都设置成和姓名一样的格式，并可以在单元格里面的自更改后格式都不更改。
2、先选中你想要喜欢的字体大小的单元格，再找到“开始”，找到图中的“格式刷”
3、点击格式刷后，在选中你需要去改变格式的单元格
4、就可以统一格式。
1、打开Excel工作簿文档，按下ALT+F11组合键调用出VBA编辑器。
2、单击菜单栏上的“插入”，打开的菜单单击“模块”命令。
3、将下面的代码复制到模块框中
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
4、单击工具栏绿色的“运行”按钮或直接按F5键。
5、退出VBA编辑器窗口，现在来看一下效果图。
alt + fll进入VBA编辑器。输入以下代码，执行
------------------------------------------------------------------------------------------
Sub CommentFont()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
With Cmt.Shape.TextFrame.Characters.Font
.Bold = msoFalse
.ColorIndex = 0
.Name = "华文细黑"
.Underline = 1
.Size = 9
End With
Next
End Sub
---------------------------------------------------------------------------------------------
可以试试07版EXCEL按钮-EXCEL选项-常用-将字体改成需要的-确定
点编辑批注，在设置批注格式中可以选择字体。
绛旓細1銆佺幇鍦ㄧ湅鍒板崟鍏冩牸涓鐨勫瓧浣鏍煎紡涓嶄竴鏍凤紝鐜板湪瑕佸仛鐨勪簨闇瑕佹妸鏂囧瓧閮璁剧疆鎴愬拰濮撳悕涓鏍风殑鏍煎紡锛屽苟鍙互鍦ㄥ崟鍏冩牸閲岄潰鐨勮嚜鏇存敼鍚庢牸寮忛兘涓嶆洿鏀广2銆佸厛閫変腑浣犳兂瑕佸枩娆㈢殑瀛椾綋澶у皬鐨勫崟鍏冩牸锛屽啀鎵惧埌鈥滃紑濮嬧濓紝鎵惧埌鍥句腑鐨勨滄牸寮忓埛鈥3銆佺偣鍑绘牸寮忓埛鍚庯紝鍦ㄩ変腑浣犻渶瑕佸幓鏀瑰彉鏍煎紡鐨勫崟鍏冩牸 4銆佸氨鍙互缁熶竴鏍煎紡銆
绛旓細Excel鎴戜滑甯稿父鐢ㄦ潵鍒朵綔鎴戜滑闇瑕佺殑琛ㄦ牸锛岄偅涔堟垜浠濡備綍涓閿澶氫釜鍗曞厓鏍艰繘琛屾坊鍔犵浉鍚岀殑鎵规敞鍛紵浠婂ぉ鐨勬暀绋嬪氨鏉ュ甫澶у鐪嬬湅鍏蜂綋鐨勬搷浣滄楠ゅ惂锛佸叿浣撳涓嬶細1. 棣栧厛锛屾垜浠渶瑕佺偣鍑昏繘鍏ラ渶瑕璁剧疆鐩稿悓鎵规敞鐨凟xcel琛ㄦ牸锛2. 绱ф帴鐫锛屽鍥炬墍绀洪変腑鎴戜滑闇瑕佽缃殑鍐呭鏁版嵁锛3.鐒跺悗锛屾垜浠渶瑕佺偣鍑婚《绔殑鈥淒IY宸ュ叿绠扁濓紝4. ...
绛旓細4. 鍗曞嚮鎵规敞妗嗙殑杈规锛屼互閫変腑鏁翠釜鎵规敞鍐呭銆5. 鎸変笅Delete鎴朆ackspace閿垹闄ゅ師鏈鐨勬枃瀛銆6. 杈撳叆鏂扮殑鏂囧瓧鏉ヤ慨鏀规壒娉ㄥ唴瀹广傝纭繚瀛楁暟涓嶈秴杩50瀛椼7. 褰撴偍瀹屾垚缂栬緫鍚庯紝鐐瑰嚮浠讳綍鍏朵粬鍖哄煙鎴栨寜涓婨nter閿潵淇濆瓨淇敼銆傝娉ㄦ剰锛屼互涓婃楠ら傜敤浜嶦xcel 2010鍙婃洿楂樼増鏈傚湪涓嶅悓鐗堟湰鐨Excel涓锛屾搷浣滅粏鑺傚彲鑳戒細鏈夋墍...
绛旓細2銆侀殣钘忓悗鐪嬩笉鍒版壒娉ㄣ傞殣钘忔柟娉曪細excel2003宸ュ叿鑿滃崟鈥撻夐」鈥撳湪閫夐」绐楀彛鐨勨滆鍥锯濋夐」鍗′腑鍏堜腑鈥滄壒娉ㄢ濅负鈥滄棤鈥濄俥xcel2007鍜10锛屽彲浠ョ偣OFFICE鎸夐挳鈥撴渶涓嬮潰鐐光EXCEL閫夐」鈥濃撻珮绾р撳浜庡惈鎵规敞鐨鍗曞厓鏍间笅鐨勯夐」涓紝閫夌涓涓滄棤鎵规敞鈥溿備笁銆佹壒娉ㄧ殑鎵撳嵃 鎵撳嵃鎵规敞鐨勬柟娉曪細excel2003涓枃浠惰彍鍗曗撻〉闈璁剧疆鈥...
绛旓細1銆侀鍏堬紝鎴戜滑浠绘剰鎵撳紑涓涓excel鏂囨。锛岀劧鍚庢垜浠彸鍑讳竴涓崟鍏冩牸锛屽脊鍑虹殑鐣岄潰锛屾垜浠偣鍑绘彃鍏鎵规敞 2銆佺劧鍚庢垜浠氨鍙互缂栬緫鎵规敞浜嗭紝缂栬緫瀹屾垚鍚庯紝鎴戜滑鐐瑰嚮绌虹櫧澶勶紱3銆佺粨鏋滃鍥炬墍绀猴紝杩欐牱鎴戜滑灏辨坊鍔犲ソ鎵规敞浜嗭紱4銆佹垜浠兂瑕佽繘琛屾壒娉ㄤ慨鏀圭殑璇濓紝鎴戜滑鍙冲嚮璇ュ崟鍏冩牸锛屽脊鍑虹殑鐣岄潰锛屾垜浠偣鍑荤紪杈戞壒娉紱5銆佷箣鍚庢垜浠氨鍙互淇敼...
绛旓細鐢╒BA,濡傛灉鎯宠瀹炵幇灏哠heet1宸ヤ綔琛ㄤ腑鎵鏈夌殑鎵规敞鏂囧瓧鎵归噺鏇存敼涓:妤蜂綋銆14鍙枫侀鑹蹭负绾㈣壊鐨勬晥鏋滐紝璇鎬庝箞鍋氬憿锛屽叿浣撴楠ゅ涓嬫墍杩:1.鎵撳紑Excel宸ヤ綔绨挎枃妗ｏ紝鎸変笅ALT+F11缁勫悎閿皟鐢ㄥ嚭VBA缂栬緫鍣 2.鍗曞嚮鑿滃崟鏍忎笂鐨勨滄彃鍏モ濓紝鎵撳紑鐨勮彍鍗曞崟鍑烩滄ā鍧椻濆懡浠 3.灏嗕笅闈㈢殑浠ｇ爜澶嶅埗鍒版ā鍧楁涓璖ub 鎵归噺淇敼鎵规敞()Dim ...
绛旓細鏁翠釜宸ヤ綔琛ㄤ慨鏀癸紞鐢╒BA淇敼锛堟悳浜庣綉涓婏級Sub test()Dim mCom As Comment For Each mCom In ActiveSheet.Comments With mCom.Shape.TextFrame.Characters With .Font .Bold = msoFalse .Size = 14 .ColorIndex = 3 End With End With Next End Sub ...
绛旓細Excel鎵归噺淇敼鎵规敞妗嗗ぇ灏忥紝缁熶竴灏哄 瀹炵幇杩欎釜鏁堟灉鐨勬柟娉曡窡涓婇潰鐨勬楠ゆ槸涓鏍风殑锛屽彧闇鎶婁笂闈㈢殑浠ｇ爜鏇存敼鎴愪笅闈㈢殑浠ｇ爜鍗冲彲锛屽綋涓殑鈥淲idth = 200鈥濓紝杩欎釜鏁板煎彲鑷鏇存敼鎴愭兂瑕佺殑鎵规敞妗嗗搴 Sub 鎵归噺淇敼鎵规敞妗嗗ぇ灏()Dim Cmt As Comment For Each Cmt In ActiveSheet.Comments Cmt.Parent.Comment.Shape.Width ...
绛旓細1銆佸厛缁欎竴涓崟鍏冩牸璁剧疆鎵规敞锛岀劧鍚庡鍒惰鍗曞厓鏍 2銆侀夋嫨瑕璁剧疆鎵规敞鐨鍖哄煙锛屽彸閿-閫夋嫨鎬х矘璐-鎵规敞-纭畾銆傚涓嬪姩鎬佸浘鎵绀猴細
绛旓細鍦ㄧ涓寮犺〃鎵归噺淇敼鎵规敞鏍煎紡锛氳鍦ㄨ〃鍚嶄笂鐐瑰嚮鍙抽敭锛岄変腑鈥樻煡鐪嬩唬鐮佲欙紝绂诲紑宸ヤ綔琛ㄥ苟杩涘叆vbe缂栫▼鐣岄潰锛岀矘璐翠笅闈㈢殑浠ｇ爜锛屾渶鍚庡洖鍒板伐浣滆〃锛岀偣鍑昏彍鍗曗滃伐鍏凤紞瀹忥紞瀹忥紞杩愯aaa杩欎釜瀹 sub aaa()x = sheets(1).comments.count for i = 1 to x sheets(1).comments(i).text text:="濡備綍鎴愭壒鐨勪慨鏀筫xecl...
