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

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

11^# 跳轉到 »

發表於 2023-5-4 12:47 | 只看該作者

回復 9# 准提部林

長官說很卡
他說平常不會用到變色的功能
只有報告或開會的時候才會使用

以下是長官的要求
請問有辦法做一個類似button或是開關的功能
要使用變色功能的時候"開啟"
不要使用變色功能的時候"關掉"

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

12^#

發表於 2023-5-4 12:59 | 只看該作者

回復 11# cowww

還要考慮整個活頁簿的全部工作表都有這功能~~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

13^#

發表於 2023-5-4 13:04 | 只看該作者

回復 11# cowww

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

14^#

發表於 2023-5-4 13:27 | 只看該作者

本帖最後由准提部林於 2023-5-4 13:41 編輯

簡單範例//
用了一個選取物件//
兩個矩形(可放在資料區右方, 以不影響資料為主)...Range("M1")..可自行更改
若其它工作表也要同樣功能, 將Selection_Change程式及那三個物件複製即可(注意:物件名稱)

TEST_選取欄列.rar (9.31 KB)

補充//為了防止選取區不在使用範圍內的錯誤, 修改如下
Set X = Intersect(Selection.EntireRow, ActiveSheet.UsedRange)
If X Is Nothing Then Exit Sub
Set Y = Intersect(Selection.EntireColumn, ActiveSheet.UsedRange)
If Y Is Nothing Then Exit Sub

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

15^#

發表於 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

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 46
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-4-18

16^#

發表於 2023-5-4 13:57 | 只看該作者

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

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

17^#

發表於 2023-5-4 14:21 | 只看該作者

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

回復 13# Andy2483

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

非常感謝Andy2483大大的解惑
我現在有一個問題
將變色關掉的時候，已變色的單元格+欄位+列位不會消失
就算關掉變色去點選其他單元格也不會消失
請問這個問題有辦法解決嗎??

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

18^#

發表於 2023-5-4 15:14 | 只看該作者

回復 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"