 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 1605 | 回復(fù): 10 | ||
VChang木蟲 (正式寫手)
|
[求助]
選擇某一范圍內(nèi)強(qiáng)度最大的數(shù)賦值，怎么用VB編程啊，謝謝
|
|
我想用VB編一個(gè)程序，就是某一范圍內(nèi)有幾個(gè)數(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時(shí)），請(qǐng)問怎么用VB編程使之適用于其余的13N的情況啊？本人不懂編程，煩請(qǐng)相助，若編好了可以追加金幣至50個(gè)，謝謝！ |
回復(fù)此樓» 猜你喜歡
332求調(diào)劑
已經(jīng)有5人回復(fù)
-
085701求調(diào)劑初試286分
已經(jīng)有3人回復(fù)
-
材料工程294求調(diào)劑
已經(jīng)有4人回復(fù)
-
本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑
已經(jīng)有10人回復(fù)
-
070305高分子化學(xué)與物理 304分求調(diào)劑
已經(jīng)有5人回復(fù)
-
083000學(xué)碩274求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑
已經(jīng)有10人回復(fù)
-
求調(diào)劑一志愿海大，0703化學(xué)學(xué)碩304分，有大創(chuàng)項(xiàng)目，四級(jí)已過
已經(jīng)有11人回復(fù)
-
071000生物學(xué)求調(diào)劑，初試成績(jī)343
已經(jīng)有7人回復(fù)
-
0703化學(xué)調(diào)劑，求導(dǎo)師收
已經(jīng)有8人回復(fù)
2樓2012-09-14 08:30:44
VChang
木蟲 (正式寫手)
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 2331.3
- 散金: 72
- 紅花: 5
- 帖子: 774
- 在線: 391.4小時(shí)
- 蟲號(hào): 702266
- 注冊(cè): 2009-02-16
- 性別: GG
- 專業(yè): 質(zhì)譜分析
送鮮花一朵 |
不是的，比如在12.5~13.5,25.5~26.5,38.5~39.5等等的各個(gè)范圍內(nèi)都有幾個(gè)數(shù)滿足要求，如12.6,12.7,12.9,13.4,13.2等，這幾個(gè)數(shù)分別對(duì)應(yīng)一個(gè)縱坐標(biāo)強(qiáng)度。然后我想選擇這幾個(gè)數(shù)對(duì)應(yīng)的縱坐標(biāo)強(qiáng)度最高的那個(gè)數(shù)賦值給13N。不是說只要左邊是13N偏差0.5右邊的就寫成80或者100，而是根據(jù)一系列的13，26,39,52~~中最大值，不一定是80或者100，也許39中對(duì)應(yīng)的最大值是90的，就是數(shù)太多了，不想一個(gè)個(gè)的找某一范圍內(nèi)對(duì)應(yīng)的最大值。 謝謝你的關(guān)注，煩請(qǐng)相助。 |
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個(gè)金幣，要是能弄成EXCEL的宏就更好了。 2012-09-15 13:49:51
xzhdty: 金幣+1, 謝謝參與 2012-09-15 20:29:08
VChang: 金幣+5, ★★★很有幫助, 謝謝，先給5個(gè)金幣，要是能弄成EXCEL的宏就更好了。 2012-09-15 13:49:51
xzhdty: 金幣+1, 謝謝參與 2012-09-15 20:29:08
| 你可以先看那個(gè)圖片，區(qū)域1是你的數(shù)據(jù)，兩列，我又添加了幾項(xiàng)你的到時(shí)候會(huì)更多，區(qū)域2的內(nèi)容都一樣，填寫一個(gè)就自動(dòng)填充就好了，區(qū)域3是N的值，你寫個(gè)1，剩下的向右拖自動(dòng)填充也就好了，區(qū)域4是最后的結(jié)果的區(qū)域，也是一樣的自動(dòng)填充就好了，詳細(xì)的內(nèi)容可以參考一下那個(gè)excel |
5樓2012-09-15 09:29:22
VChang
木蟲 (正式寫手)
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 2331.3
- 散金: 72
- 紅花: 5
- 帖子: 774
- 在線: 391.4小時(shí)
- 蟲號(hào): 702266
- 注冊(cè): 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，這個(gè)1000是你的N的最大值，F(xiàn)or j = 1 To 2000，這個(gè)2000是有多少行數(shù)據(jù)，你的數(shù)據(jù)要放在A列和B列，生成的C列數(shù)據(jù)是N的值，D列是你要的那個(gè)值 既然你說宏了，我想你應(yīng)該知道怎么用吧，如果不會(huì)用，我晚上給你圖片說明，現(xiàn)在網(wǎng)速不好，傳不了 |
7樓2012-09-15 17:54:16
8樓2012-09-15 17:56:08
【答案】應(yīng)助回帖
|
那個(gè)excel是我自己做的，里面的數(shù)據(jù)都是隨機(jī)數(shù)據(jù)，打開之后，按Alt + F11，打開和圖片上那個(gè)窗口，左邊選sheet1，右邊有那個(gè)腳本了，你可以修改一下N值和行號(hào)，然后按F5運(yùn)行就可以了 一般的宏都是被禁止的，你可以菜單欄的“工具”>“宏”>“安全性”里把那個(gè)設(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小時(shí)
- 蟲號(hào): 702266
- 注冊(cè): 2009-02-16
- 性別: GG
- 專業(yè): 質(zhì)譜分析
10樓2012-09-16 15:35:27
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 VChang 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調(diào)劑一志愿海大，0703化學(xué)學(xué)碩304分，有大創(chuàng)項(xiàng)目，四級(jí)已過 +7 | 幸運(yùn)哩哩 2026-03-22 | 11/550 |
|
|---|---|---|---|---|
|
|
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +3 | 大饞小子 2026-03-28 | 3/150 |
|
|
|
[考研] 312，生物學(xué)求調(diào)劑 +3 | 小譯同學(xué)abc 2026-03-28 | 3/150 |
|
|
[考研] 394求調(diào)劑 +3 | 好事多磨靜候佳?/a> 2026-03-26 | 5/250 |
|
|
|
[考研] 調(diào)劑 +3 | 好好讀書。 2026-03-28 | 3/150 |
|
|
|
[考研] 0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可 +9 | 丹青奶蓋 2026-03-26 | 10/500 |
|
|
|
[考研] 283求調(diào)劑（080500） +4 | A child 2026-03-27 | 4/200 |
|
|
|
[考研] 一志愿華東理工大學(xué)081700，初試分?jǐn)?shù)271 +6 | kotoko_ik 2026-03-23 | 7/350 |
|
|
|
[考研] 334求調(diào)劑 +3 | 雨清天晴 2026-03-21 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +3 | 劉柯@ 2026-03-24 | 4/200 |
|
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
|
[考研] 333求調(diào)劑 +6 | wfh030413@ 2026-03-23 | 6/300 |
|
|
|
[考研] 085600 材料與化工 329分求調(diào)劑 +9 | Mr. Z 2026-03-25 | 9/450 |
|
|
|
[考研] 0854人工智能方向招收調(diào)劑 +4 | 章小魚567 2026-03-24 | 4/200 |
|
|
|
[考研] 282求調(diào)劑 +3 | wcq131415 2026-03-24 | 3/150 |
|
|
|
[考研] 318求調(diào)劑 +3 | plum李子 2026-03-23 | 3/150 |
|
|
|
[考研] 一志愿北化315 求調(diào)劑 +3 | akrrain 2026-03-24 | 3/150 |
|
|
|
[考研] 一志愿南航材料專317分求調(diào)劑 +5 | 炸呀炸呀炸薯?xiàng)l 2026-03-23 | 5/250 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|
|
|
[考研] 315分，誠(chéng)求調(diào)劑，材料與化工085600 +3 | 13756423260 2026-03-22 | 3/150 |
|