[µo°Ý] ·í¸ê®Æ¿é¤J§¹¦¨«á¡A¦Û°ÊÅܬõ¦r

cyfchuang

½Ð¯q¦U¦ì
·í«eªº¤u§@ªí
A2¨ìC4ªº¼Æ¦r¡i¹ê´ú­È¡j¡A§C©óD2©Î°ª©óE2¡i³W®æ¡j¡A·íA2¨ìC4ªº¼Æ¦r¸ê®Æ¿é¤J§¹¦¨«á¡A¹ê´ú­È¶W³Wªº¦Û°ÊÅܬõ¦r
A7¨ìC7ªº¼Æ¦r¡i¹ê´ú­È¡j¡A§C©óD7©Î°ª©óE7¡i³W®æ¡j¡A·íA7¨ìC7ªº¼Æ¦r¸ê®Æ¿é¤J§¹¦¨«á¡A¹ê´ú­È¶W³Wªº¦Û°ÊÅܬõ¦r
A9¨ìC9ªº¼Æ¦r¡i¹ê´ú­È¡j¡A§C©óD9©Î°ª©óE9¡i³W®æ¡j¡A·íA9¨ìC9ªº¼Æ¦r¸ê®Æ¿é¤J§¹¦¨«á¡A¹ê´ú­È¶W³Wªº¦Û°ÊÅܬõ¦r
¦p¦ó¨Ï¥Î VBA ¨Ó§¹¦¨¶W³Wªº¼Æ­ÈÅܦ¨¬õ¦r

¤U¸ü (13.28 KB)
§¹¦¨«e

2025-9-8 16:21

¤U¸ü (13.66 KB)
§¹¦¨«á

2025-9-8 16:21

¬¡­¶Ã¯1.zip (6.87 KB)

ÀÉ®×
¤U¸ü¦¸¼Æ: 2

2025-9-8 16:22

hcm19522

(·j´M ¿é¤J¸¹½X 14317) googleºô§}:https://hcm19522.blogspot.com/

cyfchuang

§ä¨ìµª®×¤F¡AÁÂÁ¦U¦ìÀ°¦£

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim cell As Range
    Dim lowerLimit1 As Double, upperLimit1 As Double
    Dim lowerLimit2 As Double, upperLimit2 As Double
    Dim lowerLimit3 As Double, upperLimit3 As Double
    Dim lowerLimit4 As Double, upperLimit4 As Double
    ' ³]©w·í«e¤u§@ªí
    Set ws = ThisWorkbook.ActiveSheet
    ' Ū¨ú±ø¥ó½d³òªº­È
    lowerLimit1 = ws.Range("T14").Value
    upperLimit1 = ws.Range("U14").Value
    lowerLimit2 = ws.Range("T15").Value
    upperLimit2 = ws.Range("U15").Value
    lowerLimit3 = ws.Range("T19").Value
    upperLimit3 = ws.Range("U19").Value
    lowerLimit4 = ws.Range("T20").Value
    upperLimit4 = ws.Range("U20").Value
    ' Àˬd½d³ò
    For Each cell In ws.Range("K14:R14")
        If IsNumeric(cell.Value) Then
            If cell.Value < lowerLimit1 Or cell.Value > upperLimit1 Then
                cell.Font.Color = RGB(255, 0, 0) ' ³]¬°¬õ¦â
            Else
                cell.Font.Color = RGB(0, 0, 0) ' «ì´_¬°¶Â¦â
            End If
        End If
    Next cell
    ' Àˬd½d³ò
    For Each cell In ws.Range("K15:R18")
        If IsNumeric(cell.Value) Then
            If cell.Value < lowerLimit2 Or cell.Value > upperLimit2 Then
                cell.Font.Color = RGB(255, 0, 0) ' ³]¬°¬õ¦â
            Else
                cell.Font.Color = RGB(0, 0, 0) ' «ì´_¬°¶Â¦â
            End If
        End If
    Next cell
    ' Àˬd½d³ò
    For Each cell In ws.Range("K19:R19")
        If IsNumeric(cell.Value) Then
            If cell.Value > upperLimit3 Then
                cell.Font.Color = RGB(255, 0, 0) ' ³]¬°¬õ¦â
            Else
                cell.Font.Color = RGB(0, 0, 0) ' «ì´_¬°¶Â¦â
            End If
        End If
    Next cell
    ' Àˬd½d³ò
    For Each cell In ws.Range("K20:R22")
        If IsNumeric(cell.Value) Then
            If cell.Value < lowerLimit4 Or cell.Value > upperLimit4 Then
                cell.Font.Color = RGB(255, 0, 0) ' ³]¬°¬õ¦â
            Else
                cell.Font.Color = RGB(0, 0, 0) ' «ì´_¬°¶Â¦â
            End If
        End If
    Next cell
End Sub