From 603853a1290e7d71297c9ce5b64181a090adab87 Mon Sep 17 00:00:00 2001 From: zhizhijie <zhizhijie@users.noreply.gitee.com> Date: 星期二, 08 九月 2026 17:44:50 +0800 Subject: [PATCH] docs: 09-08 工作日结补记下班前状态（最新代码已重启就绪，明日待办8月填值/9月整链/临时文件清理） --- docs/工具/VBA_生成物全表自动列宽_2026-09-08.txt | 39 +++++++++++++++++++++++++++++++++++++++ 1 files changed, 39 insertions(+), 0 deletions(-) diff --git "a/docs/\345\267\245\345\205\267/VBA_\347\224\237\346\210\220\347\211\251\345\205\250\350\241\250\350\207\252\345\212\250\345\210\227\345\256\275_2026-09-08.txt" "b/docs/\345\267\245\345\205\267/VBA_\347\224\237\346\210\220\347\211\251\345\205\250\350\241\250\350\207\252\345\212\250\345\210\227\345\256\275_2026-09-08.txt" new file mode 100644 index 0000000..88e1673 --- /dev/null +++ "b/docs/\345\267\245\345\205\267/VBA_\347\224\237\346\210\220\347\211\251\345\205\250\350\241\250\350\207\252\345\212\250\345\210\227\345\256\275_2026-09-08.txt" @@ -0,0 +1,39 @@ +VBA 瀹忥細鐢熸垚姹囨�诲ぇ琛紙鎴栦换鎰忓伐浣滅翱锛夊叏宸ヤ綔琛ㄥ垪瀹借嚜閫傚簲 +鏃ユ湡锛�2026-09-08 +璇存槑锛氭墦寮�瑕佸鐞嗙殑 xlsx 鈫� Alt+F11 鈫� 鑿滃崟鈥滄彃鍏モ啋妯″潡鈥� 鈫� 绮樿创浠ヤ笅浠ｇ爜 鈫� 鍏抽棴缂栬緫鍣� 鈫� Alt+F8 杩愯 AutoFitAllSheets銆� + 涔熷彲灏嗘湰鏂囦欢鍙﹀瓨涓� .bas锛屽湪 VBA 缂栬緫鍣ㄩ噷鈥滄枃浠垛啋瀵煎叆鏂囦欢鈥濄�� + +-------------------------------------------------------------------------------- +Option Explicit + +' 涓诲畯锛氬鍏ㄩ儴宸ヤ綔琛ㄥ仛鏁村垪鍒楀鑷�傚簲锛堝叕寮忓厛鏁翠綋閲嶇畻锛屼互鏄剧ず鍊煎搴︿负鍑嗭級 +Public Sub AutoFitAllSheets() + Application.ScreenUpdating = False + Application.Calculation = xlCalculationAutomatic + Application.CalculateFullRebuild + Dim ws As Worksheet + For Each ws In ThisWorkbook.Worksheets + ws.Activate + On Error Resume Next + ' 鑷姩閫傚簲鏁村垪瀹藉害锛堥殣钘忚/鍒椾笉褰卞搷锛涘悎骞跺崟鍏冩牸鍐呯殑鏂囧瓧涓嶄細琚� Excel 鑷姩璁″叆锛� + ws.Cells.EntireColumn.AutoFit + On Error GoTo 0 + Next ws + Application.ScreenUpdating = True + MsgBox "鍏ㄩ儴宸ヤ綔琛ㄥ垪瀹借嚜閫傚簲瀹屾垚銆�", vbInformation, "瀹屾垚" +End Sub + +' 澶囩敤瀹忥細鍙鈥滃綋鍓嶉�変腑鐨勫伐浣滆〃鈥濇墽琛岃嚜閫傚簲 +Public Sub AutoFitActiveSheet() + Application.ScreenUpdating = False + Application.CalculateFullRebuild + ActiveSheet.Cells.EntireColumn.AutoFit + Application.ScreenUpdating = True + MsgBox "褰撳墠琛ㄥ垪瀹借嚜閫傚簲瀹屾垚銆�", vbInformation, "瀹屾垚" +End Sub +-------------------------------------------------------------------------------- + +娉ㄦ剰锛� +1) 杩愯鍓嶅厛鍏ㄩ�夌湅涓�閬嶆槸鍚︽湁鈥�###鈥濇孩鍑哄垪锛涜嫢涓埆鍒楀洜鍚堝苟鏍囬浠嶅亸绐勶紝鍙墜鍔ㄦ嫋涓�涓嬭鍒椼�� +2) 鏈畯鍙敼鍒楀锛屼笉鏀逛换浣曟暟鎹�佸叕寮忋�佸簳鑹蹭笌杈规銆� +3) 寤鸿鐢熸垚鍚庣珛鍒昏繍琛屼竴娆★紝鍐嶅彟瀛樹负姝ｅ紡浜や粯鏂囦欢銆� \ No newline at end of file -- Gitblit v1.9.1