| 查看: 2093 | 回复: 10 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
VChang木虫 (正式写手)
|
[求助]
选择某一范围内强度最大的数赋值，怎么用VB编程啊，谢谢
|
||
|
我想用VB编一个程序，就是某一范围内有几个数满足要求，我想选强度最大的数赋值。比如在13N偏差0.5的范围内有以下几组数据： 12.6 20 12.7 50 12.9 70 13.4 60 13.2 80 25.8 95 25.9 75 26 86 26.2 100 26.4 60 我想让80和100分别赋给13N（N=1和2时），请问怎么用VB编程使之适用于其余的13N的情况啊？本人不懂编程，烦请相助，若编好了可以追加金币至50个，谢谢！ |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
-
申请环境，微生物方向博士
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
延安大学回应“副教授留绝笔信”：确已离世，正核实举报内容
已经有6人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
【答案】应助回帖
★
xzhdty: 金币+1, 谢谢参与 2012-09-16 21:15:48
xzhdty: 金币+1, 谢谢参与 2012-09-16 21:15:48
|
Sub calc() For N = 1 To 1000 Max = 0 For j = 1 To 2000 If Sheets("sheet1"  .Cells(j, 1) > 13 * N - 0.5 And Sheets("sheet1".Cells(j, 1) < 13 * N + 0.5 ThenIf Sheets("sheet1" .Cells(j, 2) > Max ThenMax = Sheets("sheet1" .Cells(j, 2)End If End If Next Sheets("sheet1" .Cells(N, 3) = NSheets("sheet1" .Cells(N, 4) = MaxNext End Sub excel的宏，vb脚本，For N = 1 To 1000，这个1000是你的N的最大值，For j = 1 To 2000，这个2000是有多少行数据，你的数据要放在A列和B列，生成的C列数据是N的值，D列是你要的那个值 既然你说宏了，我想你应该知道怎么用吧，如果不会用，我晚上给你图片说明，现在网速不好，传不了 |
7楼2012-09-15 17:54:16
VChang2楼2012-09-14 08:30:44
VChang
木虫 (正式写手)
- 应助: 12 (小学生)
- 金币: 2331.3
- 散金: 72
- 红花: 5
- 帖子: 774
- 在线: 391.4小时
- 虫号: 702266
- 注册: 2009-02-16
- 性别: GG
- 专业: 质谱分析
3楼2012-09-14 11:30:45
【答案】应助回帖
|
vb我这儿也没有编译环境，而且还要考虑输入输出，你可以用excel处理一下 未命名.PNG(104.03KB) http://kuai.xunlei.com/d/GBKKHLEEQURE?p=130497 新建 Microsoft Excel 工作表.xlsx(11.8KB) http://kuai.xunlei.com/d/GGUEPUMHWJFN?p=130497 |
4楼2012-09-15 09:26:18
