基于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 篇文章
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!