qq78787

帖子: 15
主題: 6
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-29
最後登錄: 2015-9-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-2-7 09:43 | 只看該作者

[發問] 自動判定成績合格及不合格，但不是依分數判定

各位高手大大

在EXCEL要如何判定成績自己秀出合格及不合格，但並不是依照分數，而是依照如果一個科目中有一個成績是紅色的就自己秀出不合格
附上圖檔及excel擋
感謝

如何判定.zip (9.86 KB)

樓主熱帖

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2015-2-9 11:05 | 只看該作者

如下

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For M = 4 To 9
If Sheet1.Cells(M, 6).Font.ColorIndex = 3 Or Sheet1.Cells(M, 8).Font.ColorIndex = 3 Or Sheet1.Cells(M, 10).Font.ColorIndex = 3 Or Sheet1.Cells(M, 12).Font.ColorIndex = 3 Then
  Sheet1.Cells(M, 14) = "不合格"
  Else
  Sheet1.Cells(M, 14) = "合格"
End If
Next
End Sub

羅

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2015-2-9 11:07 | 只看該作者

+不合格自動秀紅色

Sub AA()
For M = 4 To 9
If Sheet1.Cells(M, 6).Font.ColorIndex = 3 Or Sheet1.Cells(M, 8).Font.ColorIndex = 3 Or Sheet1.Cells(M, 10).Font.ColorIndex = 3 Or Sheet1.Cells(M, 12).Font.ColorIndex = 3 Then
  Sheet1.Cells(M, 14) = "不合格"
  Sheet1.Cells(M, 14).Font.ColorIndex = 3
  Else
  Sheet1.Cells(M, 14) = "合格"
End If
Next

End Sub

羅

TOP

fantersy

中學生 Rank: 2

帖子: 132
主題: 35
精華: 0
積分: 179
點名: 0
作業系統: Windows
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2014-12-24
最後登錄: 2024-3-13

4^#

發表於 2015-2-9 12:02 | 只看該作者

回復 1# qq78787

如何判定.rar (11.44 KB)
基本方式
N4輸入
=IF(OR(F4="",H4="",J4="",L4=""),"",IF(OR(F4<60,H4<60,J4<60,L4<60),"不合格","合格"))
或
N4輸入
=IF(OR(F4="",H4="",J4="",L4=""),"",IF(SUMPRODUCT(N(F4:M4<60))>4,"不合格","合格"))
N4輸入
=IF(OR(F4="",H4="",J4="",L4=""),"",IF(COUNTIF(F4:M4,">=60")=4,"合格","不合格"))
顏色部份使用
設定格式化的條件去設定
不合格紅色
低於60分紅色

TOP

qq78787

小學生 Rank: 1

帖子: 15
主題: 6
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-29
最後登錄: 2015-9-7

5^#

發表於 2015-2-9 13:10 | 只看該作者

回復 3# rouber590324

rouber590324 大大你好

請問我複製這段上去他為何會錯?

再請你指教了感謝~

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

6^#

發表於 2015-2-9 13:21 | 只看該作者

DEAR SIR
1將如下覆製到你有資料之SHEET1 "工作表中"就OK啦
  不要置於MODULE

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For M = 4 To 9
If Sheet1.Cells(M, 6).Font.ColorIndex = 3 Or Sheet1.Cells(M, 8).Font.ColorIndex = 3 Or Sheet1.Cells(M, 10).Font.ColorIndex = 3 Or Sheet1.Cells(M, 12).Font.ColorIndex = 3 Then
  Sheet1.Cells(M, 14) = "不合格"
  Sheet1.Cells(M, 14).Font.ColorIndex = 3
  Else
  Sheet1.Cells(M, 14) = "合格"
  Sheet1.Cells(M, 14).Font.ColorIndex = 1
End If
Next
End Sub

羅

TOP

qq78787

小學生 Rank: 1

帖子: 15
主題: 6
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-29
最後登錄: 2015-9-7

7^#

發表於 2015-2-9 13:43 | 只看該作者

回復 6# rouber590324

rouber590324 大大你好
對不起還是有錯??是不是我又複製錯地方了?
如果方便可以貼個圖讓我學習~~謝謝

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

8^#

發表於 2015-2-9 14:55 | 只看該作者

我公司檔傳檔案與圖片功能-不然早上傳ZIP檔給你拉
我看是板本問題
我將 SHEET1 改工作表1 再試試
因它找不到 SHEET1 故秀出 BUG

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For M = 4 To 9
If 工作表1.Cells(M, 6).Font.ColorIndex = 3 Or 工作表1.Cells(M, 8).Font.ColorIndex = 3 Or 工作表1.Cells(M, 10).Font.ColorIndex = 3 Or 工作表1.Cells(M, 12).Font.ColorIndex = 3 Then
  工作表1.Cells(M, 14) = "不合格"
  工作表1.Cells(M, 14).Font.ColorIndex = 3
  Else
  工作表1.Cells(M, 14) = "合格"
  工作表1.Cells(M, 14).Font.ColorIndex = 1
End If
Next
End Sub

羅

TOP

qq78787

小學生 Rank: 1

帖子: 15
主題: 6
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-29
最後登錄: 2015-9-7

9^#

發表於 2015-2-9 16:04 | 只看該作者

回復 8# rouber590324

有了有了
謝謝你~~ :)

TOP