基于VBA手藝和控件操作技巧實現一鍵計較指心猿意馬列種非空單位格的個數(即利用單位格的個數)。本教程經由過程一個簡單例子,實現一鍵計較鼠標光標地點列中非空單位格的個數。
本教程以下列Excel文檔為例。
插入一個ActiveX控件,作為啟動代碼的節制器,如圖所示。
PS:找到號令的話,可以參考以下鏈接:
34插入控件技巧
繪制好控件之后,鼠標右鍵單擊該控件,在彈出的菜單中選擇查看代碼。
此時會跳轉到VBA界面,并彈出一個代碼窗口。
在代碼窗口中復制粘貼以下代碼:
Private Sub CommandButton1_Click()
Dim i%, j%, k%
Dim rng As Range
i = ActiveCell.Row
j = ActiveCell.Column
Cells(i, j).EntireColumn.Select
Set rng = Selection
k = Application.CountA(rng)
MsgBox k
End Sub
點擊VBA窗口右上角的封閉按鈕,封閉VBA窗口,回到Excel窗口。
將鼠標光標放在需要計較單位格地點列的任一單位格,單擊控件按鈕即可計較該列非空單位格個數。
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!