自動判定成績合格及不合格，但不是依分數判定 - Excelㄧ般區

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

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

1^# 跳轉到 »

發表於 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

羅

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

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

2^#

發表於 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

羅

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

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

3^#

發表於 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

羅

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

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

4^#

發表於 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

羅