vba 自定义function返回值_用vba解决excel如何求前面连续为0的个数

领导布置了任务，要求每天统计当月的发展量，并且统计有多少业务员最多连续多少天发展为0的情况，统计的表格是这样的。

用几行简单的VBA语言就能解决这个问题

首先打开vba编辑窗口，点击开发工具——visual basic(如果没有这个菜单，点击文件——选项——自定义功能区——右边窗口勾上开发工具)弹出编辑窗口，点击左边vbaproject下的模块进入编辑界面

我们可以自定义一个函数count0，参数为需要统计的区域，思路为从统计的第一列起，依次统计相邻为0的个数，一直统计到最后一列，取其中为0次数最多的为函数返回值，代码如下：

Function count0(r As Range)

r1 = r.Rows.Count

If r1 > 1 Then

MsgBox ("该函数只能在一行中统计")

End If

Num = r.Columns.Count

Max = 0

max1 = 0

For i = 1 To Num

For k = i To Num

If r.Columns(k) = 0 Then '发现当前值为0，继续看相邻下一个

max1 = max1 + 1

Else

k = Num '当前不为0，结束

End If

Next k

If max1 > Max Then

Max = max1

End If

max1 = 0

Next i

count0 = Max

End Function

编写好函数之后，保存文件，注意在保存文件中选择excel启用宏的工具簿，在O列输入刚刚写好的函数=count0(b2:l2),将公式复制到下面几行，得出结果如下图。

vba 自定义function返回值_用vba解决excel如何求前面连续为0的个数相关推荐

python自定义函数返回值_第八讲 python自定义函数返回值
注意自定义函数:统一文件内函数名称不能相同. 单返回值语法结构: def function_name([para1,para2...]): code... code... ... return va ...
vba 提取 json某个值_利用VBA字典，提取两列数据的重复值
大家好,今日我们继续讲解VBA数组与字典解决方案,今日讲解第52讲:利用字典,提取两列数据重复值.有人讲:字典是VBA中最为精华的部分,持这种观点的人肯定有自己的道理,确实,利用字典可以给我的代码带来 ...
按键精灵Q语言-怎么使用自定义函数返回值
按键精灵怎么使用自定义函数返回值? a i MessageBox i Function a(i) i=100 End Function 就是想弹出100 aiMessageBoxiFunctiona( ...
微信小程序自定义函数返回值
两种自定义函数返回值,你们更喜欢那个 test() {//使用例子1this.chec1('abc',function(res){console.log(res)})//使用例子2console.lo ...
scanf返回值被忽略如何解决？
问题图: 解决办法: 在第一行写入:#define _CRT_SECURE_NO_WARNINGS1即可具体产生的原因和多种解决办法可以推荐一个非常详细的博主,链接如下:(3条消息) scanf返回 ...
关于vs2022 C6031 “scanf返回值被忽略”的解决办法
关于vs2022 C6031 "scanf返回值被忽略"的解决办法我遇到的问题: 在学习c语言的过程中,和教学视频完全一样的代码,但是却在我的编译器里有这样一条警告: 解决办法: ...
vba ado返回集合_利用VBA代码导出工作表中的图片
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 大家好,世界各地,疫情施虐 ...
VBA inputbox() 函数返回值，是否可以带多参数等
1 inputbox()函数值 1.1inputbox() 的返回值 inputbox()的返回值,String 类型在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 St ...
mysql自定义函数update返回值_返回update
PostgreSQL update returning NEW|OLD column value 在对账|购票|防纂改|原子操作中的妙用标签 PostgreSQL , update , return ...

vba 自定义function返回值_用vba解决excel如何求前面连续为0的个数

vba 自定义function返回值_用vba解决excel如何求前面连续为0的个数相关推荐

最新文章

热门文章