[excel] excel的一些方法記錄

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

excel定義單元格名稱

1.定義

插入>名稱>定義>備註/引用位置=收支表!$B$2:$B$999

2.使用

{=sum((month(時間)=$H$2)*(收支項目=B5)*收支金額)}

 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

excel表格根據單元格內容設置填充顏色的方法

根據單元格內容設置指定行顏色的方法

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rg As Range
   
    If Target.Count > 1 Then
        Exit Sub
    End If
   
    If Target.Column = 15 And Target.Row > 7 Then
      ' 整行 Target.EntireRow.Interior.Color = RGB(0,250,0) 

      With Range("B" & Target.Row, "Z" & Target.Row)
            Select Case Target
            Case "正常運行"
                .Interior.Color = RGB(0, 250, 0)
            Case "風險運行"
                .Interior.Color = RGB(180, 100, 0)
            Case "逾期運行"
                .Interior.Color = RGB(255, 255, 0)
            Case "正常關閉"
                .Interior.Color = RGB(100, 100, 100)
            Case "逾期關閉"
                .Interior.Color = RGB(100, 200, 100)
            Case "異常終止"
                .Interior.Color = RGB(100, 200, 250)
            Case "暫時掛起"
                .Interior.Color = RGB(186, 241, 186)
            Case "狀態未知"
                .Interior.Color = RGB(255, 255, 100)
            End Select
        End With
    End If
End Sub