| 查看: 544 | 回复: 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 ] |
回复此楼» 猜你喜欢
博士延得我，科研能力直往上蹿
已经有8人回复
-
有院领导为了换新车，用横向课题经费买了俩车
已经有7人回复
-
酰胺脱乙酰基
已经有12人回复
-
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗
已经有4人回复
-
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有10人回复
-
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）
已经有5人回复
-
CSC & MSCA 博洛尼亚大学能源材料课题组博士/博士后招生｜MSCA经费充足、排名优
已经有6人回复
-
面上项目申报
已经有3人回复
-
遇见不省心的家人很难过
已经有22人回复
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