選擇單元格時欄列變色 - Excel程式區

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

1^# 跳轉到 »

發表於 2023-5-4 08:13 | 顯示全部帖子

回復 1# cowww

謝謝前輩發表此主題
後學研習方案如下,請前輩參考

執行結果:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
Dim xR As Range, xA As Range
If .Columns.Count = Columns.CountLarge Then Exit Sub
If .Count > 1 Or .Column = 1 Then Exit Sub
Set xR = .Cells: Set xA = Range([B1], Cells(1, Columns.Count)).EntireColumn
With Intersect(ActiveSheet.UsedRange, xA)
   .Interior.ColorIndex = xlNone
   Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 6
   Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 6
End With
.Interior.ColorIndex = 4
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

2^#

發表於 2023-5-4 09:28 | 顯示全部帖子

本帖最後由 Andy2483 於 2023-5-4 09:36 編輯

回復 3# 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 = 1 Then Exit Sub
Set xR = .Cells: Set xA = Range([B1], Cells(1, Columns.Count)).EntireColumn
Set xB = Range([A2], Cells(Rows.Count, 1)).EntireRow
With Intersect(ActiveSheet.UsedRange, xA, xB)
   .Interior.ColorIndex = xlNone
   Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 6
   Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 6
End With
.Interior.ColorIndex = 4
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

3^#

發表於 2023-5-4 10:30 | 顯示全部帖子

回復 5# cowww

謝謝前輩再回復,謝謝論壇
後學學習方案如下,請前輩參考

標題列在第4列,執行結果:

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
   Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 6
   Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 6
End With
.Interior.ColorIndex = 4
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

4^#

發表於 2023-5-4 11:14 | 顯示全部帖子

回復 8# cowww

謝謝論壇,謝謝各位前輩,請各位前輩指教

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
'↑以下是關於觸發的程序
Dim xR As Range, xA As Range, xB As Range
'↑宣告(xR,xA,xB)是儲存格變數
If .Columns.Count = Columns.CountLarge Then Exit Sub
'↑如果觸發欄數是最大欄數!就結束程式執行
If .Count > 1 Or .Column = 1 Or .Row < 5 Then Exit Sub
  '↑如果觸發格數大於1 或觸發欄位數是1(A欄) 或觸發列號小於 5!就結束程式執行
Set xR = .Cells: Set xA = Range([B1], Cells(1, Columns.Count)).EntireColumn
'↑令xR這儲存格變數是觸發的儲存格
'↑令xA這儲存格變數是 ([B1]到第1列最後欄範圍存格)所在欄的全部儲存格
Set xB = Range([A5], Cells(Rows.Count, 1)).EntireRow
'↑令xB這儲存格變數是 ([A5]到 A欄最後列範圍存格)所在列的全部儲存格
With Intersect(ActiveSheet.UsedRange, xA, xB)
'↑以下是關於三個儲存格區域交集後的儲存格區域程序
'1.本表有使用的儲存格 :2.xA變數 :3.xB變數
   .Interior.ColorIndex = xlNone
   '↑令此區域儲存格底色是無色
   Intersect(xR.EntireRow, .Cells).Interior.ColorIndex = 6
   '↑令觸發格所在此區域儲存格列底色是黃色
   Intersect(xR.EntireColumn, .Cells).Interior.ColorIndex = 6
   '↑令觸發格所在此區域儲存格欄底色是黃色
End With
.Interior.ColorIndex = 4
'↑令觸發格底色是綠色
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

5^#

發表於 2023-5-4 13:04 | 顯示全部帖子

回復 11# cowww

If [B4] <> "燈號" Then Exit Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

6^#

發表於 2023-5-4 13:52 | 顯示全部帖子

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

回復 14# 准提部林

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

Option Explicit
Sub 命名選取的圖片_名稱()
Selection.ShapeRange.Name = "矩形_橫"
End Sub
Sub 選取的圖片_名稱()
MsgBox Selection.ShapeRange.Name
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483