如何計算每個欄的累計最大失分 - Excel程式區

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

11^# 跳轉到 »

發表於 2016-8-15 19:03 | 只看該作者

回復 7# VBALearner
回復 5# GBKEE
用GBKEE版大的去修改，也是不行，請教各大大如何改寫，謝謝!

test5G.rar (14.6 KB)

TOP

VBALearner

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

12^#

發表於 2016-8-15 23:10 | 只看該作者

回復 11# cdkee

喔...我似乎有點誤會你的意思，我以為是創新高後來拉回多少的紀錄...
我想請問如果遇到以下狀況您希望儲存格如何顯示?
1.資料:0,100,200,300,400,500,600,700,800,900 (無失分)
2.資料:0,100,200,300,400,1000,200,200,200,200 (無大二大失分)
3.資料:0,1000,500,500,2000,1000,1000,500,500,500 (無大三大失分)

真心感謝每一位願意分享所學、指導新手的人!

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

13^#

發表於 2016-8-15 23:32 | 只看該作者

回復 12# VBALearner

謝謝大大回覆!
(無失分)>>3個(列7,8,9)都顯示0
(無第二大失分)>>列8,9都顯示0
(無第三大失分)>>列9都顯示0

TOP

VBALearner

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

14^#

發表於 2016-8-16 00:48 | 只看該作者

回復 13# cdkee
不好意思，我決定先假設存在第一大失分與第二大失分的情況來寫程式，不做Debug，也暫時放棄嘗試計算第三大失分
麻煩版上各位高手也來集思廣益，我自認我想的這個程式似乎不是很聰明，還需各位激盪腦力!
麻煩問題提問者，看懂這個程式的邏輯後，再試試看如何寫出第三大失分，我就先努力到這了，準備休息睡覺TwT
本程式設定資料位在A1.resize(20,1)，針對此資料範圍做計算。重點在於計算大二大失分時，資料不能與第一大失分的資料範圍有所重複，否則將計算錯誤，因此予以紀錄第一大失分的上下界來做第二次計算的條件判讀。文末附有測試檔，歡迎下載改良!

Sub 最大失分()
Dim 上界, 下界, 紀錄上界, 紀錄下界, i, j, k, m, n, x, 失分, z As Integer
上界 = 21
下界 = 0
失分 = 0
For m = 1 To 2
For i = 1 To 19
For j = i + 1 To 20
差值 = (Cells(i, 1) - Cells(j, 1))
If 差值 > 0 And 差值 > 失分 Then
If i < 上界 And j < 上界 Then
失分 = 差值
紀錄上界 = i
紀錄下界 = j
ElseIf i > 下界 And j > 下界 Then
失分 = 差值
紀錄上界 = i
紀錄下界 = j
End If
End If
Next
Next
上界 = 紀錄上界
下界 = 紀錄下界
MsgBox "第" & m & "大失分 : " & 失分
失分 = 0
Next
End Sub

複製代碼

測試.zip (11.61 KB)

真心感謝每一位願意分享所學、指導新手的人!

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

15^#

發表於 2016-8-16 10:58 | 只看該作者

本帖最後由 cdkee 於 2016-8-16 11:00 編輯

回復 14# VBALearner

感謝大大幫忙!已經幫我節省了很多工作時間。
經過修改和測試後，有2組(第3組,第5組)計算錯誤，見附件，煩請教各位大大幫忙如何修改，謝謝!

test6V.rar (14.12 KB)

TOP

VBALearner

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

16^#

發表於 2016-8-16 11:44 | 只看該作者

本帖最後由 VBALearner 於 2016-8-16 11:59 編輯

回復 15# cdkee

您還真是不厭其煩的想達成這個目標呢-w-
再幫您努力一下吧，有始有終。對了可以問你要怎麼同時回復兩個人嗎xD? 我看到你有一篇回復的回復標籤有我和超級版主，如何做到?
這是最終版了，可以計算3大失分，一樣文末有附檔。程式邏輯有點難解釋，主要是根據顏色區塊的不重複性，來做有效值得篩選判斷，因此在計算第一大失分時，條件是最寬鬆的，因為此時還沒有出現顏色區塊(select case m = 1)。計算第二大失分時，要避免i,j值跨過或落在黃色區塊，因此i,j值只有兩種狀況: 1.<黃色區塊的上界 2.>黃色區塊的下界。根據這種邏輯繼續去做第三大失分的邏輯判斷，計算第3大失分時，已經有黃顏與綠色兩大區塊，因此會有兩個上界和兩個下界，此時應先判斷黃色或綠色區塊誰在上方(select case 3裡面的if 上界(3) > 下界(2)...)，再做失分計算判斷，此時資料有經被兩大顏色區塊切成3份，因此新的i,j值變成要落在這3份非顏色區塊裡面才是有效值，否則將與黃綠色區塊重複，大概的邏輯是如此，有些困難，但動手在紙上把圖畫出來，把上界和下界標上去應該會好懂些，此外，若無失分，會顯示失分為0。跟之前一樣，歡迎高手來改寫我這落落等的程式哈哈哈!!!