基于VBA手藝實現單擊控件按鈕,一鍵提取狀況欄內容技巧。本教程以點擊按鈕后,彈窗顯示狀況欄內容為例。
本教程就以新建Excel文檔為例,雙擊打開,另存為啟用宏的工作簿,后綴名為xlsm。
此時Excel文檔的狀況欄,如圖所示。
插入一個ActiveX控件,本教程以號令按鈕控件為例。
PS:挪用ActiveX控件操作技巧可以參考一下鏈接
34插入控件技巧
繪制好控件之后,右鍵單擊該按鈕,選擇查看代碼。
此時會跳轉到VBA窗口,并彈出一個代碼窗口。
在代碼窗口中復制粘貼以下代碼:
Private Sub CommandButton1_Click()
Dim k$
k = Application.StatusBar
MsgBox k
End Sub
封閉VBA窗口,回到Excel窗口界面,單擊按鈕即可彈出顯示狀況欄內容。
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!