按要求分配百分比

zero8500 2012-11-18 07:44:34
编号 名称 百分比
123 1组 45%
3组 55%
231 4组 15%
5组 26%
6组 34%
7组 25%




上面的表格能不能根据编号的不同生成随机的百分比呢?但是不能平均。请大神指点。谢谢!一个简单的函数后者其他方式
...全文
138 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
zero8500 2012-11-19
  • 打赏
  • 举报
回复
在excel不知道怎么操作呢?请指点。谢谢!
zero8500 2012-11-19
  • 打赏
  • 举报
回复
图片附件,里面有要处理的各种情况。我想根据编号自动生成百分比,一个编号下吧百分比为100%
of123 2012-11-19
  • 打赏
  • 举报
回复

Dim n As Integer, m As Integer, i As Integer, p As Integer, tmp As Integer


n = 4

m = 100
Randomize
For i = 1 To n - 1
    Do
        p = m * Rnd()
        tmp = m - p
    Loop Until tmp > n - i
    m = tmp
    Debug.Print i, p
Next i

Debug.Print i, m
zero8500 2012-11-19
  • 打赏
  • 举报
回复
怎么还没有答案呢?请大神帮忙解决下。谢谢!
-晴天 2012-11-19
  • 打赏
  • 举报
回复
do 循环,直到第四列没有数据为止
-晴天 2012-11-19
  • 打赏
  • 举报
回复
如果是在VBA里面计算机EXCEL中各行的百分比的话,大概的算法是这样的: do 循环,直到第四列没有传扬为止 记当前行号i 设置动态数组,最大下标为1 读第四列值,存入动态数组最大下标的元素 如果第一列下一行没有值,把数组最大下标加一,到上一句 否则,计算数组各元素的和,从行号i开始,计算该行第四列值占和的百分比,写入该行第五列 同时行号递增 loop
zero8500 2012-11-19
  • 打赏
  • 举报
回复
zero8500 2012-11-18
  • 打赏
  • 举报
回复
excel 上面是在excel里面进行这样的操作的。谢谢!
zero8500 2012-11-18
  • 打赏
  • 举报
回复
自己顶起,希望大神解答。

2,462

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧