麻辣家族討論版版 » Excel程式區 » 如何關閉程式碼視窗

返回列表下一主題上一主題發帖

[發問] 如何關閉程式碼視窗

大學生 Rank: 4

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2023-1-5 20:40 | 只看該作者

[發問] 如何關閉程式碼視窗

按下Alt+F11會開啟程式碼視窗

執行程式碼時也會自動開啟程式碼視窗

請問該如何執行程式碼後，關閉程式碼視窗，謝謝！

樓主熱帖

收藏

尊貴會員 Rank: 5 Rank: 5

帖子: 7
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: Win10
軟體版本: Office 2021
閱讀權限: 50
性別: 女
註冊時間: 2010-8-22
最後登錄: 2024-3-31

2^#

發表於 2023-1-7 11:02 | 只看該作者

Sub CloseAllVBEWindows()
' Written by HansV , https://eileenslounge.com/viewtopic.php?t=19961
Dim i As Long
With Application.VBE.Windows
For i = .Count To 1 Step -1
With .Item(i)
If .Type <= 1 Then ' 0 = vbext_wt_CodeWindow, 1 = vbext_wt_Designer
.Close
End If
End With
Next i
End With
End Sub

複製代碼

大學生 Rank: 4

帖子: 700
主題: 275
精華: 0
積分: 1001
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-4-10

3^#

發表於 2023-1-9 02:11 | 只看該作者

回復 2# Emily

原來真的有這功能，謝謝前輩。

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

返回列表下一主題上一主題