Excel如何批量修改批注部分文字 Excel如何批量修改批注部分文字
excel\u91cc\u600e\u6837\u5b9e\u73b0\u5bf9\u5f88\u591a\u6279\u6ce8\u5185\u7684\u5b57\u4f53\u505a\u6279\u91cf\u7684\u66f4\u6539\uff0c\u6bd4\u5982\u6539\u53d8\u5b57\u4f53\uff1f1\u3001\u6253\u5f00Excel\u5de5\u4f5c\u7c3f\u6587\u6863\uff0c\u6309\u4e0bALT+F11\u7ec4\u5408\u952e\u8c03\u7528\u51faVBA\u7f16\u8f91\u5668\u3002
2\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
3\u3001\u5c06\u4e0b\u9762\u7684\u4ee3\u7801\u590d\u5236\u5230\u6a21\u5757\u6846\u4e2d\u3002
Sub \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
4\u3001\u5355\u51fb\u5de5\u5177\u680f\u7eff\u8272\u7684\u201c\u8fd0\u884c\u201d\u6309\u94ae\u6216\u76f4\u63a5\u6309F5\u952e\u3002
5\u3001\u9000\u51faVBA\u7f16\u8f91\u5668\u7a97\u53e3\uff0c\u73b0\u5728\u770b\u4e00\u4e0b\u6548\u679c\u56fe\u5373\u53ef\u3002
\u5728\u7b2c\u4e00\u5f20\u8868\u6279\u91cf\u4fee\u6539\u6279\u6ce8\u683c\u5f0f\uff1a
\u8bf7\u5728\u8868\u540d\u4e0a\u70b9\u51fb\u53f3\u952e\uff0c\u9009\u4e2d\u2018\u67e5\u770b\u4ee3\u7801\u2019\uff0c\u79bb\u5f00\u5de5\u4f5c\u8868\u5e76\u8fdb\u5165vbe\u7f16\u7a0b\u754c\u9762\uff0c\u7c98\u8d34\u4e0b\u9762\u7684\u4ee3\u7801\uff0c\u6700\u540e\u56de\u5230\u5de5\u4f5c\u8868\uff0c\u70b9\u51fb\u83dc\u5355\u201c\u5de5\u5177\uff0d\u5b8f\uff0d\u5b8f\uff0d\u8fd0\u884caaa\u8fd9\u4e2a\u5b8f
sub
aaa()
x
=
sheets(1).comments.count
for
i
=
1
to
x
sheets(1).comments(i).text
text:="\u5982\u4f55\u6210\u6279\u7684\u4fee\u6539execl\u5355\u5143\u683c\u7684\u6279\u6ce8\u7684\u683c\u5f0f\uff1f"
sheets(1).comments(i).visible
=
true
sheets(1).comments(i).shape.select
with
selection.font
.name
=
"\u5b8b\u4f53"
.fontstyle
=
"\u52a0\u7c97"
.size
=
11
.colorindex
=
3
end
with
next
[a1].select
end
sub
绛旓細1銆侀変腑浠讳綍涓涓寘鍚壒娉ㄧ殑鍗曞厓鏍硷紝鎸夌粍鍚堥敭锛岃繘鍏ユ壒娉ㄧ紪杈戠姸鎬侊紝淇敼鎵规敞鍐呭銆2銆侀変腑鍒氫慨鏀硅繃鎵规敞鐨勫崟鍏冩牸锛屾寜澶嶅埗銆3銆佹寜閫変腑鎵鏈夊寘鍚壒娉ㄧ殑鍗曞厓鏍笺4銆佹寜鎵撳紑閫夋嫨鎬х矘璐村璇濇锛屽嬀閫夈愭壒娉ㄣ戝崟閫夋鎸夐挳锛屽崟鍑汇愮‘瀹氥戞寜閽傝繖鏃跺彂鐜帮紝鎵鏈夊寘鍚壒娉ㄧ殑鍗曞厓鏍肩殑鎵规敞閮芥敼涓鸿窡绗竴姝ヤ腑缂栬緫鐨勬壒娉ㄥ唴瀹逛竴鑷...
绛旓細鏂规硶濡備笅锛氶変腑E1锛屽彸閿崟鍑,銆愭彃鍏ユ壒娉ㄣ戯紝鍦ㄥ脊鍑烘壒娉ㄧ┖鐧芥鍐呭綍鍏ヨ淇敼鍚庣殑鎵规敞銆愰攢鍞簩閮ㄣ銆傞変腑瑕佷慨鏀规壒娉ㄧ殑鍗曞厓鏍硷紝A2鍒癆7鍗曞厓鏍硷紝鎸変笅瀹氫綅鏉′欢鎸夐挳F5,.浼氬脊鍑轰竴涓愬畾浣嶃戠殑妗嗭紝鐐瑰嚮妗嗕笅鏂圭殑銆愬畾浣嶆潯浠躲戞寜閽傜偣鍑诲畾浣嶆潯浠跺悗锛屽氨浼氬嚭鐜般愬畾浣嶆潯浠躲戠殑鍕鹃夋锛屾垜浠皢绗竴椤广愭壒娉ㄣ戝嬀閫変笂锛...
绛旓細1銆侀鍏堝皢淇濆瓨濂界殑Excel鏂囨。鍚庣紑鍚淇敼涓.rar銆傦紙WinRAR娌℃湁闇瑕佷笅杞斤紝鍒殑瑙ｅ帇杞欢涔熷彲浠ワ級銆2銆佸弻鍑籸ar鏂囦欢锛屽湪瑙ｅ帇杞欢鐣岄潰涓弻鍑绘墦寮xl 鏂囦欢澶癸紝鎵惧埌鍚嶄负comments1.xml鐨勬枃浠讹紝鎷栧姩鍒版闈笂銆.xml鍚庣紑鍚嶄慨鏀逛负.txt 銆3銆佸弻鍑籺xt鏂囦欢鎵撳紑銆傛寜Ctrl+H缁勫悎閿紝灏嗏滃洖鎯斥濆叏閮ㄦ浛鎹负鈥滃洖浜濆悗淇濆瓨骞...
绛旓細鏂规硶鏄寜涓婣LT+F11锛屾墦寮VBE缂栬緫鍣紝鎻掑叆鈥斺旀ā鍧楋紝杈撳叆涓嬮潰鐨勪唬鐮侊紝鎸塅5閿繍琛锛屽嵆鍙疄鐜板皢SHEET1宸ヤ綔琛ㄧ殑鎵规敞杩涜鎵归噺淇敼銆備笅闈㈡槸浠ｇ爜锛歋ub 鎵归噺淇敼鎵规敞()Dim cm As Comment For Each cm In Sheet1.Comments 鈥榮heet1鏄垜浠鎵归噺淇敼鎵规敞鐨勫伐浣滆〃锛屽彲浠ユ寜闇鏀瑰彉銆俉ith cm.Shape.TextFrame.Characte...
绛旓細鍗曞嚮鈥滅‘瀹氣濇寜閽浘鐗1绗4姝ラ锛 3 鍙冲嚮瑕鎵归噺淇敼鎵规敞閮ㄥ垎鏂囧瓧鐨Excel宸ヤ綔琛紝鎵撳紑鐨勫彸閿彍鍗曞崟鍑烩滈噸鍛藉悕鈥濆懡浠わ紝灏嗘墿灞曞悕鈥渪lsx鈥濅慨鏀逛负鈥渮ip鈥濓紝鎸夊洖杞﹂敭寮瑰嚭浠ヤ笅鎻愮ず瀵硅瘽妗嗭紝鍗曞嚮鈥滄槸鈥濆浘鐗1鍥剧墖2绗5姝ラ锛 4 鍙屽嚮zip鍘嬬缉鍖咃紝杩涘叆鈥渪l鈥濇枃浠跺す锛屽弻鍑绘墦寮鈥渃omments1.xml鈥濇枃浠跺浘鐗1绗6姝ラ...
绛旓細1/6 濡傛灉鎴戜滑閬囧埌闇瑕佹潵鎵归噺淇敼鎵规敞鐨勬搷浣滐紝棣栧厛鎴戜滑搴旇鍏堟墦寮excel杞欢锛岀偣鍑昏蒋浠跺唴鐨勨淒IY宸ュ叿绠扁2/6 鐐瑰嚮DIY宸ュ叿绠遍夐」鍗″悗锛屾垜浠閫夋嫨瑕佽繘琛屽鐞嗙殑鏁版嵁鍖哄煙銆3/6 閫変腑瑕佽繘琛屽鐞嗙殑鏁版嵁鍖哄煙鍚庯紝鎴戜滑瑕佺偣鍑绘壒娉ㄩ夐」鍗★紝鍐嶇偣鍑讳笅鎷夎彍鍗曚腑鐨勨滀慨鏀规壒娉ㄥ唴瀹光濋夐」鍗°4/6 鐐瑰嚮淇敼鎵规敞鍐呭閫夐」鍗″悗锛...
绛旓細1銆佹墦寮Excel宸ヤ綔绨挎枃妗ｏ紝鎸変笅ALT+F11缁勫悎閿皟鐢ㄥ嚭VBA缂栬緫鍣ㄣ2銆佸崟鍑昏彍鍗曟爮涓婄殑鈥滄彃鍏モ濓紝鎵撳紑鐨勮彍鍗曞崟鍑烩滄ā鍧椻濆懡浠ゃ3銆佸皢涓嬮潰鐨勪唬鐮佸鍒跺埌妯″潡妗嗕腑 Sub 鎵归噺淇敼鎵规敞()Dim cm As CommentFor Each cm In Sheet1.Comments 'sheet1鏄垜浠鎵归噺淇敼鎵规敞鐨勫伐浣滆〃锛屽彲浠ユ寜闇鏀瑰彉銆俉ith cm.Shape....
绛旓細缁熶竴淇敼Excel涓壒娉鐨勫ぇ灏忓彲浠ラ氳繃璁剧疆鎵规敞鏍煎紡鏉ュ疄鐜般備互涓嬫槸姝ラ锛1. 鍦ㄧ郴缁熶腑鎵惧埌寮瑰嚭Excel涓缃壒娉ㄥぇ灏忕殑銆愯缃壒娉ㄦ牸寮忋戝璇濇銆2. 鍦ㄨ瀵硅瘽妗嗕腑锛岀偣鍑婚夋嫨[瀵归綈]鍔熻兘閫夐」鍗°3. 鍕鹃塠鑷姩璋冩暣澶у皬]閫夐」銆4. 瀹屾垚鍚庣偣鍑汇愮‘瀹氥戞寜閽傝繖鏍凤紝Excel涓殑鎵鏈夋壒娉ㄥぇ灏忛兘浼氳缁熶竴淇敼銆
绛旓細1銆侀鍏堬紝鎴戜滑浠绘剰鎵撳紑涓涓excel鏂囨。锛岀劧鍚庢垜浠彸鍑讳竴涓崟鍏冩牸锛屽脊鍑虹殑鐣岄潰锛屾垜浠偣鍑绘彃鍏ユ壒娉紱2銆佺劧鍚庢垜浠氨鍙互缂栬緫鎵规敞浜嗭紝缂栬緫瀹屾垚鍚庯紝鎴戜滑鐐瑰嚮绌虹櫧澶勶紱3銆佺粨鏋滃鍥炬墍绀猴紝杩欐牱鎴戜滑灏辨坊鍔犲ソ鎵规敞浜嗭紱4銆佹垜浠兂瑕佽繘琛鎵规敞淇敼鐨勮瘽锛屾垜浠彸鍑昏鍗曞厓鏍硷紝寮瑰嚭鐨勭晫闈紝鎴戜滑鐐瑰嚮缂栬緫鎵规敞锛5銆佷箣鍚庢垜浠氨鍙互淇敼...
