返回列表 上一主題 發帖

[發問] 選擇單元格時欄列變色

[發問] 選擇單元格時欄列變色

未變色.PNG
2023-5-3 17:44


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    On Error Resume Next
     If Target.Count > 1 Then Exit Sub
    Cells.FormatConditions.Delete
   
With Target.EntireColumn.FormatConditions  '欄變色
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = Int(28)
    End With
   
With Target.EntireRow.FormatConditions  '列變色
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = Int(35)
    End With
   
With Target.FormatConditions  '單元格變色
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = Int(4)
    End With
End Sub

各位大大
小弟為了方便辨識目前的看哪個欄列,上網去找了"選擇單元格時欄列變色"的語法
確實是有達到我要的效果
但是
燈號那個欄位卻不見了

燈號消失.PNG
2023-5-3 17:44


請問上面那段語法哪裡寫錯,煩請知道的大大們幫助小弟解惑

回復 20# cowww


    謝謝前輩回復
Sorry
後學研究很久,搞不懂如何改變核取方塊字體大小.....
請前輩再爬文研究看看
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

回復 19# Andy2483

非常感謝准提部林大大的解惑
非常感謝Andy2483大大的解惑

有使用了准提部林大大提供的寫法及物件
真的很方便
但是為何勾選的物件無法改變大小及文字??

TOP

回復 18# cowww

用 准提部林前輩的範例 紅框線改成黃透明填滿
推薦使用此方法,不會變動到儲存格格式

情境1:
20230504_4.jpg
2023-5-4 16:02


情境2:
20230504_5.jpg
2023-5-4 16:02



TEST_選取欄列_20230504_2.zip (16.67 KB)
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

回復 17# cowww

我把語法改成這樣
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target
   Dim xR As Range, xA As Range, xB As Range
   If .Columns.Count = Columns.CountLarge Then Exit Sub
   If .Count > 1 Or .Column = 1 Or .Row < 5 Then Exit Sub
   Set xR = .Cells: Set xA = Range([B1], Cells(1, Columns.Count)).EntireColumn
   Set xB = Range([A5], Cells(Rows.Count, 1)).EntireRow
   With Intersect(ActiveSheet.UsedRange, xA, xB)
      .Interior.ColorIndex = xlNone
      If Range("F2") = "N" Then
                Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 0
                Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 0
                .Interior.ColorIndex = 0
            Else
                Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 6
                Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 6
                  End If
        End With
            .Interior.ColorIndex = 4
    End With
End Sub

變色選擇"YES"
YES.PNG
2023-5-4 15:13


變色選擇"NO"
NO.PNG
2023-5-4 15:13


有辦法把"NO"的單元個底色變成 無色 嗎?

TOP

本帖最後由 cowww 於 2023-5-4 14:23 編輯

回復 13# Andy2483

非常感謝准提部林大大提供的新寫法
我可能要研究一段時間才能看得懂

非常感謝Andy2483大大的解惑
我現在有一個問題
將變色關掉的時候,已變色的單元格+欄位+列位不會消失
就算關掉變色去點選其他單元格也不會消失
請問這個問題有辦法解決嗎??
關閉時無法消失.PNG
2023-5-4 14:21

TOP

回復 14# 准提部林
准大這方式完全解決變色後的問題,直接用框線來標記真的厲害了...!

TOP

本帖最後由 Andy2483 於 2023-5-4 14:08 編輯

回復 14# 准提部林


    謝謝前輩指導不變更格式凸顯焦點儲存格的方式


Option Explicit
Sub 命名選取的圖片_名稱()
Selection.ShapeRange.Name = "矩形_橫"
End Sub
Sub 選取的圖片_名稱()
MsgBox Selection.ShapeRange.Name
End Sub
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

        靜思自在 : 吃苦了苦、苦盡廿來,享福了福、福盡悲來。
返回列表 上一主題