dechiuan999

§A¦n¡G
  ½Ð¸Õ¸Õ¦p¤U¡G
Sub aa()
   
    Dim mSht As Worksheet
    Dim  s%
    Dim Rng As Range, mRng As Range
   
    Set mSht = Worksheets(1)
    With mSht
        Set mRng = .Range("b1:b7")
        For Each Rng In mRng
            s = Rng.Font.ColorIndex
            Select Case s
            
            Case 5
                Rng.Offset(, -1).Interior.ColorIndex = 4
                Rng.Offset(, 2).Value = "L"
            Case 3
                Rng.Offset(, 1).Interior.ColorIndex = 4
                Rng.Offset(, 2).Value = "R"
            End Select            
            
        Next
    End With
        
End Sub