嘿，作为VBA新手你这个思路其实挺靠谱的！你的代码框架方向是对的，只需要补充关键逻辑和调整写法就能实现需求，我一步步给你讲清楚：

一、核心调整思路 #

你需要把原来弹出MsgBox的逻辑，替换成调用计数方法→获取结果→写入Label控件的流程。这里要注意：你的testing目前是无返回值的Sub，得改成Function才能把计数结果返回给按钮点击事件，再赋值给Label。

二、完整代码实现 #

1. 修改按钮点击事件（CommandButton1_Click） #

把原来的MsgBox代码替换成调用计数方法并更新Label的逻辑：

Private Sub CommandButton1_Click()
    ' 调用计数方法，把结果显示在Label上（注意：如果你的Label不是Label1，要改成对应名称）
    Label1.Caption = "单元格计数结果：" & testing()
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ' 双击窗体依然触发按钮点击逻辑，这个可以保留
    CommandButton1_Click
End Sub

2. 完善计数方法（testing） #

把原来的空Sub改成带返回值的Function，添加你需要的单元格计数逻辑，这里给你几种常用的计数方案，选适合你的即可：

Function testing() As Double
    Dim count As Double
    
    ' --- 以下是可选的计数方案，选一个你需要的 ---
    ' 方案1：计数Sheet1中A列的所有非空单元格
    count = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
    
    ' 方案2：计数Sheet1已使用区域（UsedRange）的所有非空单元格
    ' count = Application.WorksheetFunction.CountA(Sheet1.UsedRange)
    
    ' 方案3：计数特定范围（比如A1到C10）的非空单元格
    ' count = Application.WorksheetFunction.CountA(Sheet1.Range("A1:C10"))
    
    ' 返回计数结果给调用方
    testing = count
End Function

三、关键注意事项 #

• Label控件名称：如果你的Label不是默认的Label1，一定要把代码里的Label1改成你实际的控件名称（比如Label_Result之类的）。
• 计数逻辑灵活调整：如果需要计数数值型单元格（排除文本），可以把CountA换成Count；如果要计数空单元格，用CountBlank，根据你的需求替换即可。
• 关于你写的Button1_Click：这个是独立的模块级Sub，而你的按钮是在UserForm里的CommandButton1，所以这个独立的Sub是多余的，不用保留，专注修改UserForm里的Private Sub CommandButton1_Click就好。

内容的提问来源于stack exchange，提问作者Programmer1988