Excel-窗體項目-學習成績查詢-11-只顯示窗體

微信公衆號原文

系統：Windows 7
軟件：Excel 2016

• 本系列講講Excel中使用窗體實現一個簡單的小項目：學習成績查詢
• 目前需要實現的功能已經全部實現，但是每次啓動的時候都需要手動點擊按鈕，並且仍然能看到Excel界面，不夠酷
• 如何實現類似一個獨立軟件的感覺

Part 1：實現功能

1. 點擊文件，只彈出界面窗口，不顯示Excel文件，有點獨立軟件的既視感

動圖

靜圖

Part 2： 實現方式

1. 實現邏輯：工作簿打開的時候，不顯示Excel，直接顯示用戶窗體
2. 代碼實現：在工作簿打開事件中，加入以下代碼即可

• 雙擊ThisWorkBook，在代碼區按以下順序選擇，會自動生成一個open事件過程，動圖如下
• Application.Visible = False表示不顯示Excel界面
• UserForm1.Show 0顯示用戶窗體，UserForm1是用戶窗體的名稱

open事件

Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show 0
End Sub

代碼截圖

用戶窗體名稱

Part 3： 如何取消該功能

1. 現在每次點擊Excel文件就只是彈出窗體，那麼此時想修改代碼，或者需要打開Excel界面怎麼辦？
2. 方法1：按住shift鍵，再打開Excel文件，以前好像管用，現在好像不太管用，不知道爲啥？還是我記錯了
3. 方法2：重新新建一個Excel文件，使用以下代碼打開窗體Excel文件
   • Application.EnableEvents = False禁用Excel事件

Sub 打開()
    excel_address = "Excel文件絕對地址"
    Application.EnableEvents = False
    Workbooks.Open Filename:=excel_address, ReadOnly:=False
    Application.EnableEvents = True
End Sub

---

• 更多學習交流，可加小編微信號learningBin

---

更多精彩，請關注微信公衆號
掃描二維碼，關注本公衆號