ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 913|回复: 8

公式单元格,变后值与前值之差如何设计

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-10-12 19:40 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$4" Then
[b4] = [a4] - a
a = [a4]
End If


If Target.Address = "$A$5" Then
[b5] = [a5] - b
b = [a5]
End If


If Target.Address = "$A$6" Then
[b6] = [a6] - c
c = [a6]
End If

If Target.Address = "$A$7" Then

[b7] = [a7] - d
d = [a7]
End If


If Target.Address = "$A$8" Then
[b8] = [a8] - e
e = [a8]
End If

If Target.Address = "$A$9" Then
[b9] = [a9] - f
f = [a9]
End If

If Target.Address = "$A$10" Then

[b10] = [a10] - g
g = [a4]
End If

If Target.Address = "$A$11" Then
[b11] = [a11] - h
h = [a11]

End If
End Sub



公式单元动态求差并排序.zip

14.7 KB, 下载次数: 3

VBA内有代码

TA的精华主题

TA的得分主题

发表于 2019-10-12 22:36 | 显示全部楼层
试试看,是不是你想要的效果

Dim a
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
    Target.Offset(0, 1) = Target.Value - a
    Target.CurrentRegion.Offset(0, 1).Sort Target.CurrentRegion(1, 2), 2, , , , , , 2
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = Target.Value
End Sub


公式单元动态求差并排序.rar

17.68 KB, 下载次数: 1

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-13 00:34 | 显示全部楼层
wodewan 发表于 2019-10-12 22:36
试试看,是不是你想要的效果

Dim a

第二个功能排序很牛,完美达成B列从大到小排序并并且C列跟随的目的。但没有出来是:A4到A10是公式单元列,我刚拿A4=D4+E4试了下。发现B4就失动自动计算之差功能。但改A4或其它B4计算之差同时还能排好序!很不错。但可能还需要再小改一下!

TA的精华主题

TA的得分主题

发表于 2019-10-13 03:16 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
fg117117 发表于 2019-10-13 00:34
第二个功能排序很牛,完美达成B列从大到小排序并并且C列跟随的目的。但没有出来是:A4到A10是公式单元列 ...

原来那个是输入后触发事件的,这个是公式计算后触发事件的,供参考:

Dim arr, i&
Private Sub Worksheet_Calculate()
    For i = 1 To UBound(arr)
        If Cells(i + 3, 1) <> arr(i, 1) Then
            Cells(i + 3, 2) = Cells(i + 3, 1) - arr(i, 1)
            Range("B4:C100").Sort Range("B4"), 2, , , , , , 2
        End If
    Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    arr = Range("a4:a100")
End Sub

公式单元动态求差并排序-修改.rar

18.73 KB, 下载次数: 4

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-13 11:34 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
wodewan 发表于 2019-10-13 03:16
原来那个是输入后触发事件的,这个是公式计算后触发事件的,供参考:

Dim arr, i&

很完美!能否应邀再改下子!大概就是要求B4要绝对计算A4,而不因动态排序后变了计算对象哟~

公式单元动态求差并排序.rar

14.49 KB, 下载次数: 1

要求在表内有详细说明

TA的精华主题

TA的得分主题

发表于 2019-10-13 14:53 | 显示全部楼层
fg117117 发表于 2019-10-13 11:34
很完美!能否应邀再改下子!大概就是要求B4要绝对计算A4,而不因动态排序后变了计算对象哟~

附件供参考

公式单元动态求差并排序-绝对地址.rar

17.87 KB, 下载次数: 3

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-14 09:51 | 显示全部楼层
您好,昨天一晚上都要试您写的代码。可是就是奇怪仅在您传来的表有效,而再要想用您代码于新建的表或是其它任何表内B4到B11都不算差了。求原因

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-16 00:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

6楼朋友,谢谢你的帮助!你帮忙改的求差排序都可以用了。但如果当A4-A11数据变化较快时,计算差值出现不准(好像差值出现了累计)的现象。比方:0.457,变化到0.458,仅千分位的小变化,但差值上面明显0.011,计算出百分位的差值啦。   然后我用鼠标点击下B列,马上数值就计算是准确的。这样反复都会去用鼠标刷新一样。排序很好。没有问题!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-16 02:38 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

之绝对地址,OK啦
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 19:08 , Processed in 0.060166 second(s), 15 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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