Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
123
返回列表 发新帖
楼主: 雄鹰2013

[已解决]如何实现几个数相加等于一个固定的值

[复制链接]
发表于 2016-4-13 10:21 | 显示全部楼层
请老师部门解决,谢谢

计划采购.zip

25.8 KB, 下载次数: 6

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2016-4-13 11:28 | 显示全部楼层
请老师帮忙修改代码

计划采购.zip

25.8 KB, 下载次数: 5

回复

使用道具 举报

发表于 2016-12-18 09:15 | 显示全部楼层
Sub 凑数()
k = Cells(Rows.Count, 1).End(xlUp).Row
Range("b3:b" & k).Clear
m = Range("a3:a" & k).Rows.Count
n = [a1] / m
For x = 3 To k
Range("b" & x) = Rnd() * Range("a1") / 15
Next
l = Application.WorksheetFunction.Sum(Range("b3:b" & k))
y = ([a1] - l) / m
For x = 3 To k
Range("b" & x) = Range("b" & x) + y
Next

End Sub
回复

使用道具 举报

发表于 2017-4-27 06:58 | 显示全部楼层
香川群子 发表于 2014-7-4 14:38
代码很复杂……自己到Excel Home去搜索我的帖子吧。

我用了你的VBA ,但是运行不出,一直显示溢出, 怎么修改呢?
回复

使用道具 举报

发表于 2020-8-21 17:46 | 显示全部楼层
收藏里好帖子
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 21:04 , Processed in 0.913634 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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