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
- 阅读 ( 1008 )
- 分类：其他类型
admin
0 篇文章
作家榜 »
-
xiaonan123
189 文章
-
汤依妹儿
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
华志健
23 文章