在Excel文件中，為了實現更加自動化或者稱為人機交互式的操作，很多人是不喜歡直接在visualbasic編輯器里點擊運行按鈕來執行程序，在編輯器里操作更像是專業開發技術人員開發測試使用的操作，對于用戶來講，他們根本不需要關系程序是怎么執行，更談不上去怎么調試程序，最好就是在xlsm文件某一sheet上直接點擊按鈕就可以完成我們想要的結果。

這里就將要說的就是，怎樣添加按鈕和編輯其屬性。操作如下所示：

1、在xlsm文件中點擊常用菜單欄“開發工具”按鈕，選擇“設計模式”，然后在其左邊點擊“插入”選項按鈕。

2、在跳出的子菜單顯示界面，點擊選擇ActiveX控件欄目下的第一個圖標，選擇命令按鈕。?

3、然后點擊鼠標左鍵，畫一個方框，按鈕即被添加。

?4、右鍵單擊“CommandButton1”按鈕，選擇屬性選項，跳出右邊屬性編輯界面。在“（名稱）”和“Caption”對應的右邊編輯框修改自己想替換的名稱。其中“（名稱）”對應的是VB編輯器中函數的名稱，“Caption”對應的是按鈕名稱。

5、如我們改“（名稱）”為VBAtest，“Caption”為“點擊me”。修改完成后，關閉屬性界面即可。雙擊按鈕可以跳到VB編輯器界面，然后可以進行vba程序開發編輯。

?6、最后需要將設計模式取消選擇，否則點擊按鈕只會選中它。當取消選擇后，點擊按鈕就會有點擊按鈕的反饋，如果在VB編輯器中編好了程序，VBA程序應該就可以運行起來了。

上面只是增加了點擊按鈕操作，但如果是用戶不小心點到了按鈕，本來是不想運行程序的，但此時程序已經開始運行不會停下來，這樣給人的感覺不是很人性化。所以我們在程序中給用戶一個提示和判斷，當點擊按鈕后不立即執行主程序，而是首先提示用戶是否要繼續下面的操作，用戶根據需要選擇確定或者取消。具體實現代碼如下：

Private Sub VBAtest_Click() 'MsgBox "歡迎開始載入……"If vbOK = MsgBox("歡迎開始載入…", vbOKCancel, "提示") ThenApplication.ScreenUpdating = False''''''''執行的代碼……'''''''Application.ScreenUpdating = TrueMsgBox "載入完成結束！"ElseMsgBox "您放棄了此次載入，下次再見！"End If End Sub

效果如下所示：

會提示用戶下面會進行什么操作，用戶可以選擇確定或者取消。點擊確定后便會運行主程序，選擇取消則會直接跳到程序結束，提示用戶“您取消了這次操作”，如下圖：

?

幾行代碼，增加了人機的互動性，防止人為誤操作，簡單又實用。

代碼很簡單，就一個MsgBox函數，關于它的使用自行搜索，再配合給的例子演示下就應該會基本使用了。

?

總結

以上是生活随笔為你收集整理的添加VBA控件按钮及操作提示框的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。