 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 1604 | 回復(fù): 10 | ||
VChang木蟲 (正式寫手)
|
[求助]
選擇某一范圍內(nèi)強(qiáng)度最大的數(shù)賦值，怎么用VB編程啊，謝謝
|
|
我想用VB編一個程序，就是某一范圍內(nèi)有幾個數(shù)滿足要求，我想選強(qiáng)度最大的數(shù)賦值。比如在13N偏差0.5的范圍內(nèi)有以下幾組數(shù)據(jù)： 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個，謝謝！ |
回復(fù)此樓» 猜你喜歡
311（085601）求調(diào)劑
已經(jīng)有4人回復(fù)
-
305求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿北化085600材料專碩275|有文章專利｜求調(diào)劑
已經(jīng)有7人回復(fù)
-
一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑
已經(jīng)有12人回復(fù)
-
289求調(diào)劑
已經(jīng)有11人回復(fù)
-
食品工程專碩一志愿中海洋309求調(diào)劑
已經(jīng)有7人回復(fù)
-
生物學(xué)學(xué)碩，一志愿湖南大學(xué)，初試成績338
已經(jīng)有6人回復(fù)
-
321求調(diào)劑
已經(jīng)有7人回復(fù)
-
343求調(diào)劑
已經(jīng)有4人回復(fù)
-
本科新能源科學(xué)與工程，一志愿華理能動285求調(diào)劑
已經(jīng)有6人回復(fù)
2樓2012-09-14 08:30:44
VChang
木蟲 (正式寫手)
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 2331.3
- 散金: 72
- 紅花: 5
- 帖子: 774
- 在線: 391.4小時
- 蟲號: 702266
- 注冊: 2009-02-16
- 性別: GG
- 專業(yè): 質(zhì)譜分析
送鮮花一朵 |
不是的，比如在12.5~13.5,25.5~26.5,38.5~39.5等等的各個范圍內(nèi)都有幾個數(shù)滿足要求，如12.6,12.7,12.9,13.4,13.2等，這幾個數(shù)分別對應(yīng)一個縱坐標(biāo)強(qiáng)度。然后我想選擇這幾個數(shù)對應(yīng)的縱坐標(biāo)強(qiáng)度最高的那個數(shù)賦值給13N。不是說只要左邊是13N偏差0.5右邊的就寫成80或者100，而是根據(jù)一系列的13，26,39,52~~中最大值，不一定是80或者100，也許39中對應(yīng)的最大值是90的，就是數(shù)太多了，不想一個個的找某一范圍內(nèi)對應(yīng)的最大值。 謝謝你的關(guān)注，煩請相助。 |
3樓2012-09-14 11:30:45
【答案】應(yīng)助回帖
|
vb我這兒也沒有編譯環(huán)境，而且還要考慮輸入輸出，你可以用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
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★
VChang: 金幣+5, ★★★很有幫助, 謝謝，先給5個金幣，要是能弄成EXCEL的宏就更好了。 2012-09-15 13:49:51
xzhdty: 金幣+1, 謝謝參與 2012-09-15 20:29:08
VChang: 金幣+5, ★★★很有幫助, 謝謝，先給5個金幣，要是能弄成EXCEL的宏就更好了。 2012-09-15 13:49:51
xzhdty: 金幣+1, 謝謝參與 2012-09-15 20:29:08
| 你可以先看那個圖片，區(qū)域1是你的數(shù)據(jù)，兩列，我又添加了幾項(xiàng)你的到時候會更多，區(qū)域2的內(nèi)容都一樣，填寫一個就自動填充就好了，區(qū)域3是N的值，你寫個1，剩下的向右拖自動填充也就好了，區(qū)域4是最后的結(jié)果的區(qū)域，也是一樣的自動填充就好了，詳細(xì)的內(nèi)容可以參考一下那個excel |
5樓2012-09-15 09:29:22
VChang
木蟲 (正式寫手)
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 2331.3
- 散金: 72
- 紅花: 5
- 帖子: 774
- 在線: 391.4小時
- 蟲號: 702266
- 注冊: 2009-02-16
- 性別: GG
- 專業(yè): 質(zhì)譜分析
6樓2012-09-15 13:56:42
【答案】應(yīng)助回帖
★
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腳本，F(xiàn)or N = 1 To 1000，這個1000是你的N的最大值，F(xiàn)or j = 1 To 2000，這個2000是有多少行數(shù)據(jù)，你的數(shù)據(jù)要放在A列和B列，生成的C列數(shù)據(jù)是N的值，D列是你要的那個值 既然你說宏了，我想你應(yīng)該知道怎么用吧，如果不會用，我晚上給你圖片說明，現(xiàn)在網(wǎng)速不好，傳不了 |
7樓2012-09-15 17:54:16
8樓2012-09-15 17:56:08
【答案】應(yīng)助回帖
|
那個excel是我自己做的，里面的數(shù)據(jù)都是隨機(jī)數(shù)據(jù)，打開之后，按Alt + F11，打開和圖片上那個窗口，左邊選sheet1，右邊有那個腳本了，你可以修改一下N值和行號，然后按F5運(yùn)行就可以了 一般的宏都是被禁止的，你可以菜單欄的“工具”>“宏”>“安全性”里把那個設(shè)置成低，然后關(guān)閉excel再打開就可以運(yùn)行了 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
VChang
木蟲 (正式寫手)
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 2331.3
- 散金: 72
- 紅花: 5
- 帖子: 774
- 在線: 391.4小時
- 蟲號: 702266
- 注冊: 2009-02-16
- 性別: GG
- 專業(yè): 質(zhì)譜分析
10樓2012-09-16 15:35:27
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 VChang 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 食品工程專碩一志愿中海洋309求調(diào)劑 +4 | 小張zxy張 2026-03-26 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專業(yè)都可以 +5 | 芝士雪baoo 2026-03-28 | 6/300 |
|
|
|
[考研] 315分求調(diào)劑 +7 | 26考研上岸版26 2026-03-26 | 7/350 |
|
|
|
[考研] 291求調(diào)劑 +7 | 孅華 2026-03-22 | 7/350 |
|
|
|
[考研] 一志愿南師大0703化學(xué) 275求調(diào)劑 +4 | Ripcord上岸 2026-03-27 | 4/200 |
|
|
|
[考研] 283求調(diào)劑（080500） +4 | A child 2026-03-27 | 4/200 |
|
|
|
[考研] 085600，材料與化工321分，求調(diào)劑 +9 | 大饞小子 2026-03-27 | 9/450 |
|
|
|
[考研] 085600，材料與化工321分調(diào)劑 +4 | 大饞小子 2026-03-27 | 6/300 |
|
|
|
[考研] 316求調(diào)劑 +5 | Pigcasso 2026-03-24 | 5/250 |
|
|
|
[考研]
材料學(xué)碩，求調(diào)劑
 6+5
|
糖葫蘆888ll 2026-03-22 | 10/500 |
|
|
|
[考研] 316求調(diào)劑 +5 | 江辭666 2026-03-26 | 5/250 |
|
|
|
[考研] 071000生物學(xué)求調(diào)劑，初試成績343 +6 | 小小甜面團(tuán) 2026-03-25 | 6/300 |
|
|
|
[考研] 325求調(diào)劑 +3 | Aoyijiang 2026-03-23 | 3/150 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3 | 崔wj 2026-03-26 | 3/150 |
|
|
|
[考研] 一志愿211 初試270分 求調(diào)劑 +6 | 谷雨上岸 2026-03-23 | 7/350 |
|
|
|
[考研] 材料考研求調(diào)劑 +3 | Dendel 2026-03-23 | 6/300 |
|
|
|
[考研] 總分293求調(diào)劑 +6 | 加一一九 2026-03-25 | 8/400 |
|
|
|
[考研] B區(qū)考研調(diào)劑 +4 | yqdszhdap－ 2026-03-22 | 5/250 |
|
|
|
[考研] 一志愿吉大化學(xué)322求調(diào)劑 +4 | 17501029541 2026-03-23 | 6/300 |
|
|
|
[考研] 275求調(diào)劑 +6 | shansx 2026-03-22 | 8/400 |
|