打開(kāi)工作薄時(shí)只顯示窗體及窗體快捷鍵的設(shè)置

鉞YUE 2021-11-15

展開(kāi)全文

《VBA之Excel應(yīng)用》是非常經(jīng)典的，是我推出的第七套教程，定位于初級(jí)。這套教程從簡(jiǎn)單的錄制宏開(kāi)始講解，一直到窗體的搭建，內(nèi)容豐富，實(shí)例眾多。大家可以非常容易的掌握相關(guān)的知識(shí)，這套教程共三冊(cè)，十七章，都是我們?cè)诶肊XCEL工作過(guò)程中需要掌握的知識(shí)點(diǎn)，希望大家能掌握利用。今日講解的內(nèi)容是“VBA之EXCEL應(yīng)用”的第十六章“用戶窗體（Userform）對(duì)象”的第4節(jié)：打開(kāi)工作薄時(shí)只顯示窗體及窗體快捷鍵的設(shè)置

第四節(jié) 打開(kāi)工作薄時(shí)只顯示窗體及窗體快捷鍵的設(shè)置

大家好，我們這節(jié)講解一個(gè)窗體應(yīng)用的實(shí)例，在這個(gè)實(shí)例中會(huì)利用VBA代碼實(shí)現(xiàn)在打開(kāi)一個(gè)工作薄時(shí)，工作薄會(huì)隱藏，而只顯示這個(gè)工作簿中的一個(gè)窗體。如果大家進(jìn)一步開(kāi)發(fā)可以讓用戶在這個(gè)窗體上錄入密碼，如果密碼正確，才可以讓工作簿顯示。

1 實(shí)現(xiàn)打開(kāi)工作薄時(shí)只顯示窗體的代碼及代碼解讀

由于實(shí)現(xiàn)這個(gè)目的的思路比較簡(jiǎn)單，就不再進(jìn)行思路的講解，我們看代碼的搭建部分，由于進(jìn)入工作簿后只顯示窗體，我們無(wú)法進(jìn)行后續(xù)的測(cè)試及進(jìn)入VBE窗口，我們先在窗體上增加一個(gè)按鈕：

并設(shè)置按鈕的caption屬性為“顯示工作簿”：

雙擊這個(gè)控件，進(jìn)入代碼界面，在Click事件中加入下面代碼：

Private Sub CommandButton1_Click()

Application.Visible = True

End Sub

代碼截圖：

代碼解讀：此處的代碼讓我們?cè)谥伙@示窗體的界面條件下可以進(jìn)入工作簿，同時(shí)大家要注意屏蔽原有代碼中關(guān)閉工作簿時(shí)不保存退出代碼，如下：

我們雙擊thisworkbook,在工作簿的open事件中寫入下面的代碼：

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

代碼截圖：

代碼解讀：

上述代碼在工作簿打開(kāi)時(shí)會(huì)讓工作簿的Visible屬性設(shè)置為FALSE，即不可見(jiàn)。同時(shí)顯示窗體UserForm1.

2 實(shí)現(xiàn)打開(kāi)工作薄時(shí)只顯示窗體的代碼運(yùn)行

先關(guān)閉上述工作簿，再次打開(kāi)，就只顯示下面的界面了：

點(diǎn)擊顯示工作簿：

這個(gè)時(shí)候就顯示了工作簿了。這個(gè)小程序是非常有用的，大家在實(shí)踐過(guò)程中慢慢體會(huì)。

3 OnKey方法介紹

這個(gè)方法是指當(dāng)按特定鍵或特定的組合鍵時(shí)運(yùn)行指定的過(guò)程。

語(yǔ)法：expression.OnKey(Key、Procedure)

expression：表示 Application 對(duì)象的變量。

參數(shù)講解：

Key 必需字符串表示要按的鍵的字符串。

Procedure 可選 Variant 表示要運(yùn)行的過(guò)程名稱的字符串。如果 Procedure 為空文本 ('')，則按Key時(shí)不發(fā)生任何操作。該格式的 OnKey 將更改鍵擊在 Microsoft Excel 中產(chǎn)生的正常結(jié)果。

l如果省略 Procedure 參數(shù)，則 Key 恢復(fù)為 Microsoft Excel 中的正常結(jié)果，同時(shí)清除先前使用 OnKey 方法所做的特殊鍵擊設(shè)置。

lKey參數(shù)可以指定與 Alt、Ctrl 或 Shift 或這些鍵的任意組合組合在一起的任意單個(gè)鍵。每個(gè)鍵均可用一個(gè)或多個(gè)字符表示，例如，a 表示字符 a，{ENTER} 表示 Enter 鍵。

l若要指定在按下相應(yīng)的鍵 (例如: Enter 或 Tab) 時(shí)不顯示的字符, 請(qǐng)使用下表中列出的代碼。表中的每個(gè)代碼表示鍵盤上的一個(gè)鍵。

4 為窗體設(shè)置快捷鍵

代碼截圖：

代碼講解：

以上代碼表示在按下f2鍵時(shí)將執(zhí)行mynz這個(gè)過(guò)程。

接下來(lái)即可F2快捷鍵就可以調(diào)出窗體UserForm1。

l快捷鍵如與系統(tǒng)原快捷鍵功能沖突，快捷鍵執(zhí)行代碼指定功能。

代碼的運(yùn)行：（略）

今日內(nèi)容回向：

1）在打開(kāi)工作薄時(shí)如何只顯示窗體？

2）如何給窗體設(shè)置快捷鍵？

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：鉞YUE > 《Excel和VBa》

舉報(bào)/認(rèn)領(lǐng)