excel中VBA怎么添加注释和解除注释快捷键 Excel vba中如何注释掉一整段编码
excel\u91cc\u7f16\u5199VBA\u7a0b\u5e8f\u65f6\u600e\u4e48\u628a\u4e00\u6bb5\u8bed\u53e5\u76f4\u63a5\u6ce8\u91ca\u548c\u89e3\u9664\u6ce8\u91ca\uff1f\u6700\u597d\u662f\u82f1\u6587\u7248\u7684\uff01\u8c22\u8c22 \u5728\u7ebf\u7b49\u5728\u8bed\u53e5\u7684\u5f00\u5934\u52a0\u4e00\u4e2a\u5355\u5f15\u53f7\uff08'\uff09\u5c31\u662f\u6ce8\u91ca\uff0c\u4f8b\u5982\u4ee5\u4e0b\u7a0b\u5e8f\u4e2d\u7b2c\u4e09\u53e5\u4ee3\u7801\u5c31\u662f\u6ce8\u91ca\u6389\u4e86\u3002
\u5220\u6389'\uff0c\u5c31\u662f\u53d6\u6d88\u6ce8\u91ca
Private Sub CommandButton1_Click()On Error Resume Next'Call ConnectUserForm1.Show 0End Sub
\u4f60\u7684\u610f\u601d\u662f\u628a\u4e00\u6bb5\u4ee3\u7801\u90fd\u53d8\u6210\u6ce8\u91ca\uff0c\u4f46\u4e0d\u5220\u9664\u5185\u5bb9\uff1f
\u662f\u7684\u8bdd\u53ef\u53c2\u8003\uff1a\u5148\u9009\u4e2d\u9700\u8981\u6279\u91cf\u6ce8\u91ca\u7684\u5185\u5bb9\uff0c\u518d\u70b9\u51fb\u201c\u8bbe\u7f6e\u6ce8\u91ca\u5757\u201d\u5373\u53ef\u3002
\u540e\u8fb9\u7d27\u6328\u7740\u7684\u6309\u94ae\u662f\u64a4\u9500\u6ce8\u91ca\u6309\u94ae\uff0c\u65b9\u6cd5\u4e00\u6837\u3002
\uff08\u5148\u53f3\u952e\u5de5\u5177\u680f\u7a7a\u767d\u5904\uff0c\u6dfb\u52a0\u201c\u7f16\u8f91\u201d\u5de5\u5177\u680f\uff09
宏也没办法录制，选中，按一下，还要更简单？
绛旓細vba娣诲姞鎵规敞妗堜緥涓锛涓洪変腑鐨勪竴涓崟鍏冩牸鑷姩娣诲姞鎵规敞锛屾壒娉ㄥ唴瀹逛负绯荤粺褰撳ぉ鏃ユ湡锛岀劧鍚庢爣娉ㄥ妗嗗ぇ灏忚嚜鍔ㄨ皟鏁翠负鍒氬ソ瀹圭撼鍐呭鍗冲彲锛屽洜涓洪粯璁ょ殑鎵规敞姣旇緝澶с傛晥鏋滃涓嬪浘锛屾瘮濡傚崟鍑籄1锛岀劧鍚庤嚜鍔ㄥ姞鎵规敞锛岄変腑A4锛屽張鑷姩娣诲姞鎵规敞锛屼互姝ょ被鎺ㄣ傚疄鐜颁笂闈㈢殑鏁堟灉vba娣诲姞鎵规敞鐨勪唬鐮佸涓嬶細Sub vba娣诲姞鎵规敞()On Error Resume Ne...
绛旓細1锛娉ㄩ噴璇彞鏄敤鏉ヨ鏄庣▼搴忎腑鏌愪簺璇彞鐨鍔熻兘鍜屼綔鐢紱VBA涓湁涓ょ鏂规硶鏍囪瘑涓烘敞閲婅鍙ャ傚崟寮曞彿 鈥 ;濡傦細鈥欏畾涔夊叏灞鍙橀噺锛涘彲浠ヤ綅浜庡埆鐨勮鍙ヤ箣灏撅紝涔熷彲鍗曠嫭涓琛 Rem ;濡傦細Rem瀹氫箟鍏ㄥ眬鍙橀噺锛涘彧鑳藉崟鐙竴琛 2锛夎祴鍊艰鍙ユ槸杩涜瀵瑰彉閲忔垨瀵硅薄灞炴ц祴鍊肩殑璇彞锛岄噰鐢ㄨ祴鍊煎彿 =锛屽X=123锛欶orm1.caption=鈥濇垜鐨勭獥鍙ｂ...
绛旓細鏍囩杈撳叆澶囨敞銆傚彸鍑婚夋嫨鎻掑叆鎵规敞銆傜劧鍚庢垜浠湪鎵规敞涓緭鍏ュ唴瀹癸紝涔嬪悗鐐瑰嚮琛ㄦ牸涓殑浠绘剰绌虹櫧浣嶇疆锛岃繖鏍锋壒娉ㄥ氨鎻掑ソ浜嗐
绛旓細鍦ㄨ鍙ョ殑寮澶村姞涓涓崟寮曞彿(')灏辨槸娉ㄩ噴锛屼緥濡備互涓嬬▼搴忎腑绗笁鍙ヤ唬鐮佸氨鏄敞閲婃帀浜嗐傚垹鎺'锛屽氨鏄彇娑堟敞閲 Private Sub CommandButton1_Click()On Error Resume Next 'Call Connect UserForm1.Show 0 End Sub
绛旓細1銆侀鍏堟墦寮excel杞欢銆2銆佹墦寮vba缂栫▼鐣岄潰銆3銆佸畾涔変竴涓嚱鏁般4銆佽浣跨敤銆恟em+绌烘牸+娉ㄩ噴鍐呭銆戙5銆佷娇鐢ㄨ嫳鏂囩殑涓婂崟寮曞彿銆愭敞閲婂唴瀹广戙6銆佷娇鐢ㄣ恟em+绌烘牸+娉ㄩ噴鍐呭銆戙7銆佸浜庣畝鍗曠殑鍙橀噺鐨勮祴鍊硷紝灏辨槸浣跨敤銆=銆戙8銆佹渶鍚庡氨鏄浜庡箙鍊煎璞¤繘琛岀殑璧嬪笺
绛旓細濡備綍灏嗏滆缃娉ㄩ噴鍧椻鍔鍒板揩鎹峰伐鍏锋爮 鍦╒B绐楀彛涓鐨蹇熷伐鍏锋爮绌虹櫧澶勯紶鏍囧彸鍑,鎵惧埌鈥滆嚜瀹氫箟 >> (涓婇潰)鍛戒护 >> (宸︿笅)缂栬緫 >> (鍙充笅)璁剧疆娉ㄩ噴鍧椻,鎷栧姩鍒板揩鎹峰伐鍏 鐑...
绛旓細绗竴姝ャ佹墦寮浣犵殑EXCEL宸ヤ綔钖勶紝鏈濂藉叧闂叾瀹冩棤鍏崇殑EXCEL鏂囦欢锛屾寜ALT+F11 杩欎竴姝ュ氨鍙寜涓涓敭锛屽氨鏄寜浣廇LT涓嶆斁锛屾寜浠ヤ笅F11锛岀劧鍚庣珛鍗虫斁寮锛屼笁绉掍箣鍐呭畬鎴 杩欎釜姝ラ鎴愬姛鐨勬爣蹇楋細鏂版墦寮涓涓獥鍙ｏ紝鏍囬鏄細Microsoft Visual Basic for Application 绗簩姝ャ佸湪涓婇潰鎵撳紑鐨刅BA绐楀彛閲岄潰锛屾寜CTRL+R 鏄殑锛屽氨...
绛旓細濡備綍灏嗏滆缃娉ㄩ噴鍧椻鍔鍒板揩鎹峰伐鍏锋爮 鍦╒B绐楀彛涓鐨蹇熷伐鍏锋爮绌虹櫧澶勯紶鏍囧彸鍑,鎵惧埌鈥滆嚜瀹氫箟 >> (涓婇潰)鍛戒护 >> (宸︿笅)缂栬緫 >> (鍙充笅)璁剧疆娉ㄩ噴鍧椻,鎷栧姩鍒板揩鎹峰伐鍏 鐑...
绛旓細鍦ㄥ伐浣滆〃鏍囩鍗曞嚮鍙抽敭 鐐归"鏌ョ湅浠ｇ爜"绮樿创涓嬮潰鐨勪唬鐮 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Comment Is Nothing Then If Target.Value = 1 Then Target.AddComment "A"Else Target.AddComment "B"End If Else If Target.Value = 1 Then Target.Comment.Text "A"Else Ta...
绛旓細瑙嗗浘-宸ュ叿鏍-缂栬緫
