2019-06-26

〔VBA〕範例:動態螢光棒(列變色)的作法[格式化的條件]--v010


【點選儲存格,則該列底色反黃變色】

這是一個很有趣的題目
當我們在處理Excel的表格"很寬。。很寬。。很寬"
是否會有移到後面的儲存格時,搞不清楚目前到底是在看哪一列
又或者要對應前面的資料會有些眼花撩@@@…

如果,如果,如果被點選的儲存格那一列能自動反黃,是否會更好用一些呢?

本範例也是經由學員實務應用上的提問而來的有需要可參考
只是這是利用Excel VBA來處理的唷~

例如這張表,希望只要點選B7~S12之間的任一儲存格該列就會呈現淡黃底色

作法:在Worksheet_SelectionChange中貼入動態的"刪除及加入"『格式化條件的設定』語法即可
關鍵:利用『格式化條件的設定』才能讓你在離開該列時該列會恢復原有的格式設定唷~相當重要★★★★

語法:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub       '選擇多儲存格則不處理
    Range("B7:S12").FormatConditions.Delete       'B7:S12內格式化條件的設定刪除
    If Target.Row > 6 And Target.Row < 13 Then   '點選在第7~12列時,才設定該列的格式化條件
        With Target.EntireRow.Range("B1:S1").FormatConditions
            .Add xlExpression, , "TRUE"
            .Item(1).Interior.ColorIndex = Int(36)
            .Item(1).StopIfTrue = False
        End With
    End If
End Sub


章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區,提問請至小講堂唷 ※※

5 章老師的電腦小講堂: 〔VBA〕範例:動態螢光棒(列變色)的作法[格式化的條件]--v010 【點選儲存格,則該列底色反黃變色】 這是一個很有趣的題目 … 當我們在處理 Excel 的表格 " 很寬。。很寬。。很寬 " 時 … 是否會有移到後面的儲存格時,搞不清楚目前到底是在看哪一列 … 又或者要對應前面的資料會有些眼花撩 @@...
小講堂經過多次搬移,舊文章連結及內容較難整理~
大家可以新文章為主~
每篇文章後有代碼,任何文章問題可至FB小講堂用代碼提問唷~