| 查看: 498 | 回复: 3 | |||
| 当前主题已经存档。 | |||
lygxxm至尊木虫 (正式写手)
|
[交流]
【求助】计算机高手改写一下程序
|
||
|
本人因工作需要，需要改写下面的程序，下面的程序在excel中用，用VBA编写的，要求根据输入的数字（比如95），填写在相应单元格里随机生成的数字是70，80，90，100中的一个，填写的12个单元格里的数和的平均正好是95（四舍五入）。谢谢了！ Function createdata(k) Dim datanew(1 To 1, 1 To 12) As Integer Dim dataend(1 To 1, 1 To 12) As Integer Dim i As Integer Dim j As Integer Dim l As Integer Dim grade As Integer Dim sum As Integer Dim aver As Integer Dim control As Integer grade = Cells(k, 33) If grade > 90 Then l = 102 - grade Else l = 10 End If For i = 1 To 12 datanew(1, i) = Int(l * Rnd) + grade dataend(1, i) = datanew(1, i) sum = sum + datanew(1, i) Next i aver = sum / 12 j = aver - grade If j > 0 Then For i = 1 To 12 dataend(1, i) = datanew(1, i) - j Next i End If If j < 0 Then For i = 1 To 12 dataend(i, 1) = datanew(i, 1) + j Next i End If Range(Cells(k, 3), Cells(k, 18)) = dataend End Function [ Last edited by 2007骑猪逛街 on 2008-1-8 at 20:37 ] |
回复此楼» 猜你喜欢
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有6人回复
-
2025冷门绝学什么时候出结果
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
dwjnet
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 2217.8
- 散金: 7
- 帖子: 480
- 在线: 32.9小时
- 虫号: 14647
- 注册: 2003-06-06
- 性别: GG
- 专业: 工程热物理相关交叉领域
2楼2008-03-04 18:04:16
3楼2008-03-26 08:50:56
loujing
铁杆木虫 (正式写手)
- 应助: 19 (小学生)
- 金币: 5835.5
- 散金: 2028
- 红花: 8
- 帖子: 322
- 在线: 110.2小时
- 虫号: 58180
- 注册: 2005-02-20
- 性别: GG
- 专业: 计算机应用技术
4楼2008-06-13 03:43:33