返回列表 上一主題 發帖

[發問] VBA點選儲存格指定範圍自動反色

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
1# 跳轉到 »
發表於 2017-2-25 10:50 | 顯示全部帖子
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim SelArea As Range
With Target
　　　Set SelArea = Intersect([I7:O18], .Cells)
　　　If SelArea Is Nothing Then Exit Sub
　　　If .Address <> SelArea.Address Then Exit Sub
　　　.Name = "colorcell"
End With
End Sub

格式化條件公式：=MODE(ROW(),ROW(colorcell))　
　
Xl0000045.rar (10.37 KB)
　
　

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
2#
發表於 2017-2-26 22:33 | 顯示全部帖子
回復 7# momo020608

同時選取２列以上，可以變成用  ctrl 點選 多列以上嗎?

TT20170225-02(選取儲存格,列變色).rar (11.09 KB)

若列數太多, 不保證有效(文字串字數可能超限)

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
3#
發表於 2018-12-9 10:58 | 顯示全部帖子
回復 10# Hyuan


舉幾個實例說明, 最好再上傳模擬檔案!!

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
4#
發表於 2018-12-10 13:33 | 顯示全部帖子
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim xA As Range, SelArea As Range, xR As Range
Set xA = [I7:O18]: xA.Interior.ColorIndex = 0
Set SelArea = Intersect(xA, Target)
If SelArea Is Nothing Then Exit Sub
For Each xR In SelArea
   xA.Rows(xR.Row - xA.Row + 1).Interior.Color = vbYellow
   xA.Columns(xR.Column - xA.Column + 1).Interior.Color = vbYellow
Next
SelArea.Interior.Color = vbRed
End Sub

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題