时间戳

首页 > 解决方案 > VBA COUNTA 用户表单

excel - VBA COUNTA 用户表单

问题描述

我有一个带有几个文本框和一个命令按钮的用户窗体。输入并提交信息后，信息将传输到第一个空行。

我需要一个代码，该代码将counta()在该行的 4 列中显示文本。=IF(IsBlank($A2),"",COUNTA(E2:H2)所以在用户提交信息后翻译成VBA代码进行计算。

标签： excelvbaif-statementcountif

解决方案

假设我们正在使用 Sheet1 并假设您的 Row # 已经存储在 ThisRowNum 变量中

以下应该接近您要求的内容

    If Trim(CStr(Sheets("Sheet1").Range("A" & ThisRowNum).Value)) = "" then
       xCtr = 0  ' Your formula used a null string - you can fix this
    else
       xCtr = WorksheetFunction.CountA(Sheets("Sheet1").Range("E" & ThisRowNum &":H" & ThisRowNum))
    endif

xCtr 变量是结果

推荐阅读