Excel精英培训网

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

[已解决]恳请帮忙:关于扩展数据区域格式及公式的问题

[复制链接]
发表于 2012-3-4 12:04 | 显示全部楼层 |阅读模式
未命名.jpg
这里e列里的公式是:如e3=E2+C3-D3,这里到e9都是我用下拉实现的,可我不想用下拉,有办法让公式自动填充吗?就像我在d10中输了8,让e10中的数字自动出来
我看了论坛里关于"扩展数据区域格式及公式"的贴子,在单价*数量=总价这样的关系里输了前4行,后面的确可以自动填充,为什么在这个收支表里就不行了呢?请大家帮忙!!!!!!!!!!!!!
最佳答案
2012-3-4 12:16
本帖最后由 雄鹰 于 2012-3-4 12:18 编辑

右击你的工作表、查看代码、粘贴如下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row >= 3 Then
       Cells(Target.Row, 5) = "=e" & Target.Row - 1 & "+c" & Target.Row & "-d" & Target.Row
    End If
End Sub

OK了
{:101:}
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-3-4 12:10 | 显示全部楼层
回复

使用道具 举报

发表于 2012-3-4 12:10 | 显示全部楼层
回复

使用道具 举报

发表于 2012-3-4 12:12 | 显示全部楼层
点工具---选项---编辑---将扩展数据区域格式及公式前面的方框打上勾就可以了。
回复

使用道具 举报

发表于 2012-3-4 12:16 | 显示全部楼层    本楼为最佳答案   
本帖最后由 雄鹰 于 2012-3-4 12:18 编辑

右击你的工作表、查看代码、粘贴如下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row >= 3 Then
       Cells(Target.Row, 5) = "=e" & Target.Row - 1 & "+c" & Target.Row & "-d" & Target.Row
    End If
End Sub

OK了
{:101:}
回复

使用道具 举报

 楼主| 发表于 2012-3-4 22:02 | 显示全部楼层
雄鹰 发表于 2012-3-4 12:16
右击你的工作表、查看代码、粘贴如下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Rang ...

你好!~首先感谢你的帮忙,不过我没权限加好友{:301:}

我把你给的代码复制了,问题解决了,不过这代码什么意思我可一点也不懂,这是不是就是传说中的知其然不知其所以然?

最后问下,这是不是就是论坛上是什么vba啊啊啊啊啊啊?



回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-16 05:18 , Processed in 0.250594 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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