| 查看: 1559 | 回复: 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个，谢谢！ |
回复此楼» 猜你喜欢
交叉科学部支持青年基金，对三无青椒是个机会吗？
已经有4人回复
-
招博士
已经有6人回复
-
限项规定
已经有8人回复
-
国家基金申请书模板内插入图片不可调整大小?
已经有5人回复
-
国家级人才课题组招收2026年入学博士
已经有5人回复
-
Fe3O4@SiO2合成
已经有6人回复
-
青年基金C终止
已经有4人回复
-
青椒八年已不青，大家都被折磨成啥样了？
已经有7人回复
-
为什么nbs上溴 没有产物点出现呢
已经有10人回复
-
救命帖
已经有11人回复
【答案】应助回帖
★
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