求编一个函数或VBA

hquanshui · 发表于 2017-11-21 15:03

本帖最后由 hquanshui 于 2017-11-23 15:24 编辑

求编一个函数或VBA（关于计算电表用量）

Function 电度相减(a As Range, b As Range)

Application.Volatile True

If Len(b.Value) = 0 Then
电度相减 = 0
Exit Function
Else

For i = 1 To b.Column - a.Column
If Len(b.Offset(0, -i).Value) = 0 Then
  If b.Offset(0, -i).Column = a.Column Then
  电度相减 = b.Value
  Exit Function
  End If
Else
电度相减 = b.Value - b.Offset(0, -i).Value
Exit Function
End If
Next

End If

End Function

朱荣兴 · 发表于 2017-11-21 16:05

提示: 作者被禁止或删除内容自动屏蔽

hquanshui · 发表于 2017-11-22 10:19

朱荣兴发表于 2017-11-21 16:05
f5=IF(B5-A5

不对，第一列是对，第2列和第3列就错了

wj2368 · 发表于 2017-11-22 10:29

hquanshui 发表于 2017-11-22 10:19
不对，第一列是对，第2列和第3列就错了

。。。。。。。。。。。。。

hquanshui · 发表于 2017-11-23 10:47

wj2368 发表于 2017-11-22 10:29
。。。。。。。。。。。。。

不对啊，请再看一下。

skiss · 发表于 2017-11-23 11:39

hquanshui 发表于 2017-11-23 10:47
不对啊，请再看一下。

楼主可以变通一下，在原来的数据处处理，然后使用一楼公式了。

wj2368 · 发表于 2017-11-23 13:15

hquanshui 发表于 2017-11-23 10:47
不对啊，请再看一下。

？？？？？？？？？？

hquanshui · 发表于 2017-11-23 15:22

Function 电度相减(a As Range, b As Range)

Application.Volatile True

If Len(b.Value) = 0 Then
电度相减 = 0
Exit Function
Else

For i = 1 To b.Column - a.Column
If Len(b.Offset(0, -i).Value) = 0 Then
  If b.Offset(0, -i).Column = a.Column Then
  电度相减 = b.Value
  Exit Function
  End If
Else
电度相减 = b.Value - b.Offset(0, -i).Value
Exit Function
End If
Next

End If

End Function

		自动登录	找回密码
密码			免费注册

[已解决] 求编一个函数或VBA

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-11-21 16:05 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报