24小时热门版块排行榜    

查看: 1863  |  回复: 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个,谢谢!
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

anntoy

木虫 (著名写手)

【答案】应助回帖

那个excel是我自己做的,里面的数据都是随机数据,打开之后,按Alt + F11,打开和图片上那个窗口,左边选sheet1,右边有那个脚本了,你可以修改一下N值和行号,然后按F5运行就可以了
一般的宏都是被禁止的,你可以菜单栏的“工具”>“宏”>“安全性”里把那个设置成低,然后关闭excel再打开就可以运行了

QQ截图20120915173618.png(32.16KB)
http://kuai.xunlei.com/d/GBPGSLPFWYDO?p=130497
新建 Microsoft Excel 工作表 (3).xls(79KB)
http://kuai.xunlei.com/d/GDPNGOQNGOQO?p=130497
9楼2012-09-15 18:04:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

anntoy

木虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
要求不太清楚,是不是只要左边是13N偏差0.5右边的就写成80或者100?

» 本帖已获得的红花(最新10朵)

2楼2012-09-14 08:30:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

VChang

木虫 (正式写手)

送鲜花一朵
引用回帖:
2楼: Originally posted by anntoy at 2012-09-14 08:30:44
要求不太清楚,是不是只要左边是13N偏差0.5右边的就写成80或者100?

不是的,比如在12.5~13.5,25.5~26.5,38.5~39.5等等的各个范围内都有几个数满足要求,如12.6,12.7,12.9,13.4,13.2等,这几个数分别对应一个纵坐标强度。然后我想选择这几个数对应的纵坐标强度最高的那个数赋值给13N。不是说只要左边是13N偏差0.5右边的就写成80或者100,而是根据一系列的13,26,39,52~~中最大值,不一定是80或者100,也许39中对应的最大值是90的,就是数太多了,不想一个个的找某一范围内对应的最大值。
谢谢你的关注,烦请相助。
3楼2012-09-14 11:30:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

anntoy

木虫 (著名写手)

【答案】应助回帖

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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 我面上完蛋了 +7 且听虎啸 2026-08-20 7/350 2026-08-21 11:45 by 6543yes
[基金申请] 时间戳又变了8-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[基金申请] 今天基金会出结果吗?20260819 +15 kkkl_v 2026-08-19 16/800 2026-08-21 11:22 by 365372687
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 让我中一个面上吧! +10 大萍1987 2026-08-20 12/600 2026-08-21 09:31 by 020100099
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 放榜前的不淡定 40+4 snowwithsea 2026-08-19 13/650 2026-08-21 08:30 by 北京莱茵编辑
[基金申请] 时间戳今天,20号变了 +4 archvillain 2026-08-20 4/200 2026-08-21 08:10 by gatelove
[基金申请] 重要消息,中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] filecode,4个jtjc了 +11 ziyangfang 2026-08-19 13/650 2026-08-19 21:28 by aasahr
[教师之家] 为什么余额宝的年化利率越来越低?主要原因有哪些? +5 瞬息宇宙 2026-08-15 5/250 2026-08-19 20:23 by super2002521
[基金申请] 今天放榜吗? +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。 +6 Tide man 2026-08-14 7/350 2026-08-19 09:56 by ZJTJZ
[基金申请] 明天放榜? +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
信息提示
请填处理意见