G, H, I 欄是用來判斷是否比前一期進步，
最後可將此三欄隱藏，避免占用工作表版面！
個人積分：7665分
文章編號：62151433
個人積分：3072分
文章編號：62152209
天空藍yoyo wrote:
這迴圈應該可以解開...(恕刪)
不用迴圈也可以
為了方便您看懂，一樣是用比較簡單的寫法，請參考
不過，還是建議用函數啦，一行就可以解決問題
雖然以下的程式碼，硬要變成一行也可以，只是程式碼會變的很醜
Sub test()
'國
c = WorksheetFunction.CountIf(Range("c" & 11 - Range("i4") & ":c10"), "<" & Range("c10"))
'英
e = WorksheetFunction.CountIf(Range("d" & 11 - Range("j4") & ":d10"), "<" & Range("d10"))
'數
m = WorksheetFunction.CountIf(Range("e" & 11 - Range("k4") & ":e10"), "<" & Range("e10"))
If (c + e + m + 3) = Range("i4") + Range("j4") + Range("k4") Then Range("i6") = "ok" Else Range("i6") = "no"
End Sub
Mystique Hsiao wrote:
只使用函數的做法，...(恕刪)
如果不增加欄位，我會這樣做，請參考
sumproduct 方法
=IF(SUMPRODUCT(--(C10>OFFSET(C10,0,0,-I4,1)))+SUMPRODUCT(--(D10>OFFSET(D10,0,0,-J4,1)))+SUMPRODUCT(--(E10>OFFSET(E10,0,0,-K4,1)))=I4+J4+K4-3,"ok","no")
countif 方法
=IF(COUNTIF(OFFSET(C10,0,0,-I4,1),"<" & C10)+COUNTIF(OFFSET(D10,0,0,-J4,1),"<" & D10)+COUNTIF(OFFSET(E10,0,0,-K4,1),"<" & E10)=I4+J4+K4-3,"ok","no")
個人積分：7665分
文章編號：62153282
snare wrote:
如果不增加欄位，我會這樣做，請參考
sumproduct 方法
=IF(SUMPRODUCT(--(C10>OFFSET(C10,0,0,-I4,1)))+SUMPRODUCT(--(D10>OFFSET(D10,0,0,-J4,1)))+SUMPRODUCT(--(E10>OFFSET(E10,0,0,-K4,1)))=I4+J4+K4-3,"ok","no")
countif 方法
=IF(COUNTIF(OFFSET(C10,0,0,-I4,1),"<" & C10)+COUNTIF(OFFSET(D10,0,0,-J4,1),"<" & D10)+COUNTIF(OFFSET(E10,0,0,-K4,1),"<" & E10)=I4+J4+K4-3,"ok","no")
上述公式在手機 APP 使用時，
OFFSET 的第三個參數會因為是負值而出現錯誤，
不確定在電腦中是否正常，故調整如下：
ps.公式的成績比較方式，和提問者的需求似乎不太一樣！
My Interior Knowledge is Extraordinaire
個人積分：0分
文章編號：62153540
個人積分：3072分
文章編號：62153724
個人積分：7665分
文章編號：62153932
個人積分：0分
文章編號：62155003
個人積分：3072分
文章編號：62155264
個人積分：0分
文章編號：62155507
