返回列表下一主題上一主題發帖

excel聚光灯怎樣不影響原來格式上的顏色

coke373

小學生 Rank: 1

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-5-13 13:15 | 只看該作者

excel聚光灯怎樣不影響原來格式上的顏色

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
CheckBox1.Caption = "關"
ActiveSheet.Cells.Interior.ColorIndex = xlNone
Else: CheckBox1.Caption = "開"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CheckBox1.Caption = "開" Then Call Spotlight(Target)
End Sub
Sub Spotlight(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireColumn
.FormatConditions.Add xlExpression, , "=true"
.FormatConditions(1).Interior.ColorIndex = 20
End With
With Target.EntireRow
.FormatConditions.Add xlExpression, , "=true"
.FormatConditions(2).Interior.ColorIndex = 20
End With
End Sub

複製代碼

怎樣解決關掉之後可以刪除聚光燈

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2836
主題: 10
精華: 0
積分: 2892
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-30

2^#

發表於 2020-5-13 14:15 | 只看該作者

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
CheckBox1.Caption = "關"
'ActiveSheet.Cells.Interior.ColorIndex = xlNone
Cells.FormatConditions.Delete
Else: CheckBox1.Caption = "開"
End If
End Sub

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2836
主題: 10
精華: 0
積分: 2892
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-30

3^#

發表於 2020-5-13 14:23 | 只看該作者

Sub Spotlight(ByVal Target As Excel.Range)
Cells.FormatConditions.Delete
With Union(Target.EntireColumn, Target.EntireRow)
.FormatConditions.Add xlExpression, , "=true"
.FormatConditions(1).Interior.ColorIndex = 20
End With
End Sub

TOP

coke373