小惡魔市集悅遊日本活動報導

watermelon1983

28分

樓主

watermelon1983

個人積分：28分

文章編號：70372617

VBA成績統計問題

請問各位先進
我想利用VBA在不使用Excel內建函數的情況下
透過自訂的按鈕自動判斷10位同學
每一位同學在5次的考試中
如果5次成績都大於60分則顯示合格
判斷式想破頭都想不出來
還請廣大的網友幫幫忙
謝謝

文章關鍵字

VBA 成績問題

snare

2598分

2樓

snare

個人積分：2598分

文章編號：70373401

函數用 =if(large()>60,"ok",if(large()>60…………
就可以很簡單做到的事情，為什麼要用vba ??

真要用vba(用內建函數large)
(點下可看大圖)

watermelon1983

28分

樓主

watermelon1983

個人積分：28分

文章編號：70373475

snare wrote:
函數用 =if(la...(恕刪)

唉唉～這問題我也思考了很久
有現成的涵數卻不能使用
任課老師就是規定不能使用函數
所以才很苦惱的想判斷式該如何寫

alwayslee

989分

4樓

alwayslee

個人積分：989分

文章編號：70373992

我大約寫一下，複制貼上肯定不會過，自行改一下

sub testpass()

for i=2 to 11'10位同學
g=0'先0科通過
if ["B" & i & ""]>=60 then
g=g+1'B通過G=0+1，代表通過1科
elseif ["C" & i & ""]>=60 then
g=g+1
elseif ["D" & i & "']>=60 then
g=g+1
elseif ["E" & i & ""]>=60 then
g=g+1
elseif ["F" & i & ""]>=60 then
g=g+1
if g=5 then ["G" & i & ""]="通過"
elseif g=4 then ["G" & i & ""]="條件通過"
else ["G" & i & ""]="不通過"
endif
endif
endif
endif
endif
endif
endif
endif
next
end sub

snare

2598分

5樓

snare

個人積分：2598分

文章編號：70374261

alwayslee wrote:
我大約寫一下，複制...(恕刪)

幫您縮短一下

Sub test2()

Dim check As Integer
For i = 1 To 10
check = 0
For j = 1 To 5
If Cells(i + 1, j + 1) > 60 Then check = check + 1
Next j
If check = 5 Then
Cells(i + 1, 7) = "OK"
Else
If check = 4 Then Cells(i + 1, 7) = "maybe" Else Cells(i + 1, 7) = "NO"
End If
Next i

End Sub

smash15

1852分

6樓

smash15

個人積分：1852分

文章編號：70374822

snare wrote:
幫您縮短一下Sub...(恕刪)

It's a very useful programming model. Good!

watermelon1983

28分

樓主

watermelon1983

個人積分：28分

文章編號：70376196

alwayslee wrote:
我大約寫一下，複制貼...(恕刪)

snare wrote:
幫您縮短一下
Sub...(恕刪)

感謝alwayslee及snare兩位的大力幫忙
看到兩位的寫法讓我豁然開朗
原來還可以這樣寫
不過snare大的縮短寫法我有個疑問
在下面的這段語法裡
For j = 1 To 5
If Cells(i + 1, j + 1) ＞ 60 Then check = check + 1
Next j

有 for j 也有next j
但在VBA裡卻會跳出有next卻沒有for的問題視窗
請問這是何處有問題??
還請大家賜教
謝謝