Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2398|回复: 7

[VBA] VBA看图片规则计算A列结果

[复制链接]
发表于 2017-1-13 23:00 | 显示全部楼层 |阅读模式

VBA看图片规则计算A列结果

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-1-13 23:14 | 显示全部楼层
本帖最后由 today0427 于 2017-1-13 23:18 编辑

你这题目没意思,给你列个算式看看
例如共有10行数据,你选择后四行进行连续的两两相减后再相加,
列式为:(a7-a8)+(a8-a9)+(a9-a10)
把算式拆括号化简以后,中间格子正负两两抵消,最后的结果必然是你选择的第一个格子与最末格子的差,所以不用写什么vba了,一个函数公式就解决了,你不相信随便测试

评分

参与人数 1 +3 收起 理由
laoau138 + 3 来学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-1-13 23:19 | 显示全部楼层
today0427 发表于 2017-1-13 23:14
你这题目没意思,给你列个算式看看
例如共有10行数据,你选择后四行进行连续的两两相减后再相加,
列式为 ...

today你太聪明了

只想知道用VBA如何计算,过程你这个是数学
回复

使用道具 举报

发表于 2017-1-13 23:22 | 显示全部楼层
出题不认真,差评退货加赔偿!

评分

参与人数 1 +3 收起 理由
laoau138 + 3 来学习

查看全部评分

回复

使用道具 举报

发表于 2017-1-14 00:17 | 显示全部楼层
本帖最后由 today0427 于 2017-1-14 00:20 编辑

vba过程在sheet1工作表中写着,是个由E1单元格改变触发的事件,函数公式是赠品不用谢

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address <> "$E$1" Then Exit Sub
  3.     Dim ur&, ro&, n
  4.     ur = [a65536].End(3).Row
  5.     ro = Target.Value
  6.     For i = ur To ur - ro + 2 Step -1
  7.        If i = 1 Then Exit For
  8.        n = n + Range("a" & i) - Range("a" & (i - 1))
  9.     Next
  10.     [e5] = -n
  11. End Sub
复制代码

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1 +3 收起 理由
laoau138 + 3 来学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-1-14 12:03 | 显示全部楼层
today0427 发表于 2017-1-14 00:17
vba过程在sheet1工作表中写着,是个由E1单元格改变触发的事件,函数公式是赠品不用谢

today你好可爱啊,   

整理一个问题,再重新发问
回复

使用道具 举报

 楼主| 发表于 2017-1-14 19:27 | 显示全部楼层
today0427 发表于 2017-1-14 00:17
vba过程在sheet1工作表中写着,是个由E1单元格改变触发的事件,函数公式是赠品不用谢

today这条对你来说  真的超级简单

VBA按C列班级批量新建工作表   解决第二次单击不会出错


http://www.excelpx.com/thread-427177-1-1.html


回复

使用道具 举报

 楼主| 发表于 2017-1-18 12:38 | 显示全部楼层
today0427 发表于 2017-1-14 00:17
vba过程在sheet1工作表中写着,是个由E1单元格改变触发的事件,函数公式是赠品不用谢

today天才如何做

VBA计算A列左右两边   两数和两数差平均值   分两种情况


http://www.excelpx.com/thread-427241-1-1.html


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-27 02:03 , Processed in 0.273531 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表