Excel一键计算指定行非空单元格个数

       基于VBA手艺实现一键计较某行非空单位格个数 。 本教程经由过程一个实例 , 实现一键计较鼠标地点单位格地点行中非空单位格的个数 。

Excel一键计算指定行非空单元格个数

文章插图

需要这些哦
Excel
教程以Excel2013为例
方式/
1本教程以下列数据为例 , 实现功能:经由过程点击按钮 , 计较出鼠标光标地点行中非空单位格的个数 。

Excel一键计算指定行非空单元格个数

文章插图

2插入一个ActiveX控件 , 该号令位置可以参考以下链接:
34Excel插入ActiveX控件技巧

Excel一键计算指定行非空单元格个数

文章插图

3鼠标右键选中绘制好的控件 , 选择查看代码 。

Excel一键计算指定行非空单元格个数

文章插图

4此时会主动跳转到VBA界面 , 同时会弹出一个代码窗口 。

Excel一键计算指定行非空单元格个数

文章插图

5在代码窗口中粘贴以下代码:
Private Sub CommandButton1_Click()
Dim i%, j%, k%
Dim rng As Range
【Excel一键计算指定行非空单元格个数】    i = ActiveCell.Row
    j = ActiveCell.Column
    Cells(i, j).EntireRow.Select
    Set rng = Selection
    k = Application.CountA(rng)
    MsgBox ("该行非空单位格个数为" & k)
Sub

Excel一键计算指定行非空单元格个数

文章插图

6点击右上角的封闭按钮 , 封闭VBA窗口 , 回到Excel窗口 。

Excel一键计算指定行非空单元格个数

文章插图

7单击控件 , 即可计较出鼠标光标地点行中非空单位格的个数 , 并会弹出显示该成果 。

Excel一键计算指定行非空单元格个数

文章插图

Excel一键计算指定行非空单元格个数

文章插图

注重事项若是对您有点帮忙 , 请帮手点个赞再走 , 感谢!

以上内容就是Excel一键计算指定行非空单元格个数的内容啦 , 希望对你有所帮助哦!

    推荐阅读