如何统一修改EXCEL中的批注格式？ 如何批量设置excel中的批注格式？怎样将他们都设成统一的高...
\u5982\u4f55\u7edf\u4e00\u4fee\u6539EXCEL\u4e2d\u7684\u6279\u6ce8\u683c\u5f0f\uff1f1\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
Comment
For
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\u3002
With
cm.Shape.TextFrame.Characters.Font
.Name
=
"\u6977\u4f53"
.Size
=
14
.ColorIndex
=
3
End
With
Next
End
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
\u53f3\u952e\u70b9\u51fb\u63d2\u5165\u6279\u6ce8\uff0c\u7136\u540e\u518d\u6b21\u70b9\u51fb\u53f3\u952e\u5c06\u6279\u6ce8\u663e\u793a\uff0c\u5355\u51fb\u6279\u6ce8\u70b9\u53f3\u952e\u8bbe\u7f6e\u6279\u6ce8\u683c\u5f0f\uff0c\u91cc\u8fb9\u6709\u4e2a\u5927\u5c0f\uff0c\u4f60\u5c06\u5927\u5c0f\u8bbe\u7f6e\u4e00\u4e0b\u5c31\u53ef\u4ee5\u4e86\uff01\u4f60\u4e5f\u53ef\u4ee5\u590d\u5236\u6279\u6ce8\u7136\u540e\u66f4\u6539\u91cc\u8fb9\u7684\u5185\u5bb9\uff01
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编辑器窗口，现在来看一下效果图。
整个工作表修改－用VBA修改（搜于网上）
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
参考资料：http://www.officefans.net/cdb/archiver/?tid-75425.html
我也来看答案的.
绛旓細1銆侀変腑浠讳綍涓涓寘鍚壒娉ㄧ殑鍗曞厓鏍硷紝鎸夌粍鍚堥敭锛岃繘鍏ユ壒娉ㄧ紪杈戠姸鎬侊紝淇敼鎵规敞鍐呭銆2銆侀変腑鍒氫慨鏀硅繃鎵规敞鐨勫崟鍏冩牸锛屾寜澶嶅埗銆3銆佹寜閫変腑鎵鏈夊寘鍚壒娉ㄧ殑鍗曞厓鏍笺4銆佹寜鎵撳紑閫夋嫨鎬х矘璐村璇濇锛屽嬀閫夈愭壒娉ㄣ戝崟閫夋鎸夐挳锛屽崟鍑汇愮‘瀹氥戞寜閽傝繖鏃跺彂鐜帮紝鎵鏈夊寘鍚壒娉ㄧ殑鍗曞厓鏍肩殑鎵规敞閮芥敼涓鸿窡绗竴姝ヤ腑缂栬緫鐨勬壒娉ㄥ唴瀹逛竴鑷...
绛旓細鏂规硶濡備笅锛氶変腑E1锛屽彸閿崟鍑,銆愭彃鍏ユ壒娉ㄣ戯紝鍦ㄥ脊鍑烘壒娉ㄧ┖鐧芥鍐呭綍鍏ヨ淇敼鍚庣殑鎵规敞銆愰攢鍞簩閮ㄣ銆傞変腑瑕佷慨鏀规壒娉ㄧ殑鍗曞厓鏍硷紝A2鍒癆7鍗曞厓鏍硷紝鎸変笅瀹氫綅鏉′欢鎸夐挳F5,.浼氬脊鍑轰竴涓愬畾浣嶃戠殑妗嗭紝鐐瑰嚮妗嗕笅鏂圭殑銆愬畾浣嶆潯浠躲戞寜閽傜偣鍑诲畾浣嶆潯浠跺悗锛屽氨浼氬嚭鐜般愬畾浣嶆潯浠躲戠殑鍕鹃夋锛屾垜浠皢绗竴椤广愭壒娉ㄣ戝嬀閫変笂锛...
绛旓細1. 鍦ㄧ郴缁熶腑鎵惧埌寮瑰嚭Excel涓缃壒娉ㄥぇ灏忕殑銆愯缃壒娉ㄦ牸寮忋戝璇濇銆2. 鍦ㄨ瀵硅瘽妗嗕腑锛岀偣鍑婚夋嫨[瀵归綈]鍔熻兘閫夐」鍗°3. 鍕鹃塠鑷姩璋冩暣澶у皬]閫夐」銆4. 瀹屾垚鍚庣偣鍑汇愮‘瀹氥戞寜閽傝繖鏍凤紝Excel涓殑鎵鏈夋壒娉ㄥぇ灏忛兘浼氳缁熶竴淇敼銆
绛旓細鏂规硶鏄寜涓婣LT+F11锛屾墦寮VBE缂栬緫鍣紝鎻掑叆鈥斺旀ā鍧楋紝杈撳叆涓嬮潰鐨勪唬鐮侊紝鎸塅5閿繍琛锛屽嵆鍙疄鐜板皢SHEET1宸ヤ綔琛ㄧ殑鎵规敞杩涜鎵归噺淇敼銆備笅闈㈡槸浠ｇ爜锛歋ub 鎵归噺淇敼鎵规敞()Dim cm As Comment For Each cm In Sheet1.Comments 鈥榮heet1鏄垜浠鎵归噺淇敼鎵规敞鐨勫伐浣滆〃锛屽彲浠ユ寜闇鏀瑰彉銆俉ith cm.Shape.TextFrame.Characte...
绛旓細瑕佷慨鏀笶xcel涓殑鎵规敞鍐呭锛岃鎸夌収浠ヤ笅姝ラ杩涜鎿嶄綔锛1. 鍦ㄩ渶瑕佷慨鏀规壒娉ㄧ殑鍗曞厓鏍间笂锛屽彸閿崟鍑昏鍗曞厓鏍笺2. 鍦ㄥ脊鍑虹殑鑿滃崟涓紝閫夋嫨"鏄剧ず鎵规敞"閫夐」銆3. 鎵规敞妗嗕細鍑虹幇鍦ㄥ崟鍏冩牸鏃佽竟銆傚皢榧犳爣鏀剧疆鍦ㄦ壒娉ㄦ涓婃柟锛屽厜鏍囧彉涓哄洓涓澶村舰鐘躲4. 鍗曞嚮鎵规敞妗嗙殑杈规锛屼互閫変腑鏁翠釜鎵规敞鍐呭銆5. 鎸変笅Delete鎴朆ackspace閿...
绛旓細鍗曞嚮鈥滅‘瀹氣濇寜閽浘鐗1绗4姝ラ锛 3 鍙冲嚮瑕佹壒閲淇敼鎵规敞閮ㄥ垎鏂囧瓧鐨Excel宸ヤ綔琛紝鎵撳紑鐨勫彸閿彍鍗曞崟鍑烩滈噸鍛藉悕鈥濆懡浠わ紝灏嗘墿灞曞悕鈥渪lsx鈥濅慨鏀逛负鈥渮ip鈥濓紝鎸夊洖杞﹂敭寮瑰嚭浠ヤ笅鎻愮ず瀵硅瘽妗嗭紝鍗曞嚮鈥滄槸鈥濆浘鐗1鍥剧墖2绗5姝ラ锛 4 鍙屽嚮zip鍘嬬缉鍖咃紝杩涘叆鈥渪l鈥濇枃浠跺す锛屽弻鍑绘墦寮鈥渃omments1.xml鈥濇枃浠跺浘鐗1绗6姝ラ...
绛旓細1銆侀鍏堝皢淇濆瓨濂界殑Excel鏂囨。鍚庣紑鍚淇敼涓.rar銆傦紙WinRAR娌℃湁闇瑕佷笅杞斤紝鍒殑瑙ｅ帇杞欢涔熷彲浠ワ級銆2銆佸弻鍑籸ar鏂囦欢锛屽湪瑙ｅ帇杞欢鐣岄潰涓弻鍑绘墦寮xl 鏂囦欢澶癸紝鎵惧埌鍚嶄负comments1.xml鐨勬枃浠讹紝鎷栧姩鍒版闈笂銆.xml鍚庣紑鍚嶄慨鏀逛负.txt 銆3銆佸弻鍑籺xt鏂囦欢鎵撳紑銆傛寜Ctrl+H缁勫悎閿紝灏嗏滃洖鎯斥濆叏閮ㄦ浛鎹负鈥滃洖浜濆悗淇濆瓨骞...
绛旓細鏁翠釜宸ヤ綔琛淇敼锛嶇敤VBA淇敼锛堟悳浜庣綉涓婏級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琛ㄦ牸鎵规敞妗嗗ぇ灏忔寜涓嬮潰鏂规硶缁熶竴鏀锛1.杩涜鎿嶄綔鏃跺厛寮鍚樉绀烘墿灞曞悕鐨勮缃細鍙屽嚮鈥滆绠楁満鈥濓紝鍗曞嚮鈥滅粍缁団濊彍鍗涓殑鈥滄枃浠跺す鍜屾悳绱㈤夐」鈥濄2.鍦ㄦ墦寮鐨勨滄枃浠跺す閫夐」鈥濆璇濇鍒囨崲鍒扳滄煡鐪嬧濋夐」鍗★紝鎶婇珮绾ц缃垪琛ㄤ腑鐨勨滈殣钘忓凡鐭ユ枃浠剁被鍨嬬殑鎵╁睍鍚嶁濆閫夋鍘绘帀锛屽崟鍑烩滅‘瀹氣濇寜閽3.鍙冲嚮瑕佹壒閲淇敼鎵规敞閮ㄥ垎...
绛旓細1銆侀鍏堬紝鎴戜滑浠绘剰鎵撳紑涓涓excel鏂囨。锛岀劧鍚庢垜浠彸鍑讳竴涓崟鍏冩牸锛屽脊鍑虹殑鐣岄潰锛屾垜浠偣鍑绘彃鍏ユ壒娉紱2銆佺劧鍚庢垜浠氨鍙互缂栬緫鎵规敞浜嗭紝缂栬緫瀹屾垚鍚庯紝鎴戜滑鐐瑰嚮绌虹櫧澶勶紱3銆佺粨鏋滃鍥炬墍绀猴紝杩欐牱鎴戜滑灏辨坊鍔犲ソ鎵规敞浜嗭紱4銆佹垜浠兂瑕佽繘琛鎵规敞淇敼鐨勮瘽锛屾垜浠彸鍑昏鍗曞厓鏍硷紝寮瑰嚭鐨勭晫闈紝鎴戜滑鐐瑰嚮缂栬緫鎵规敞锛5銆佷箣鍚庢垜浠氨鍙互淇敼...
