1、本教程以下列数据为例，实现功能：通过点击按钮，计算出鼠标光标所在行中非空单元格的个数。
2、插入一个ActiveX控件，该命令位置可以参考以下链接：
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、单击控件，即可计算出鼠标光标所在行中非空单元格的个数，并会弹出显示该结果。
