Excel一鍵計算指定行非空單元格個數
基于VBA手藝實現一鍵計較某行非空單位格個數。本教程經由過程一個實例，實現一鍵計較鼠標地點單位格地點行中非空單位格的個數。
東西/原料
- Excel
- 教程以Excel2013為例
方式/步調
- 1
本教程以下列數據為例，實現功能：經由過程點擊按鈕，計較出鼠標光標地點行中非空單位格的個數。
- 2
插入一個ActiveX控件，該號令位置可以參考以下鏈接：
34插入控件技巧
- 3
鼠標右鍵選中繪制好的控件，選擇查看代碼。
- 4
此時會主動跳轉到VBA界面，同時會彈出一個代碼窗口。
- 5
在代碼窗口中粘貼以下代碼：
Private Sub CommandButton1_Click()
Dim i%, j%, k%
Dim rng As Range
i = ActiveCell.Row
j = ActiveCell.Column
Cells(i, j).EntireRow.Select
Set rng = Selection
k = Application.CountA(rng)
MsgBox ("該行非空單位格個數為" & k)
End Sub
- 6
點擊右上角的封閉按鈕，封閉VBA窗口，回到Excel窗口。
- 7
單擊控件，即可計較出鼠標光標地點行中非空單位格的個數，并會彈出顯示該成果。
注重事項
- 若是對您有點幫忙，請幫手點個贊再走，感謝！
- 發表于 2018-05-25 00:00
- 閱讀 ( 1017 )
- 分類：其他類型
admin
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章