返回列表 上一主題 發帖

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

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-2-24 22:28 | 顯示全部帖子

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


以下程式碼是在網路上找到的，但想請教該如何修改成以下想要的條件呢？
1. 希望反色條件只在I7:O18有作用，且改以整列反色呈現。例如：點選K9時，I9:O9會整列反色、點選N15時，I15:O15整列反色
2. 發現使用此VBA之後無法複製貼上或剪下貼上，例如當我複製B7後，只要滑鼠點選任何儲存格欲貼上時，複製的選項就會消失。剪下欲貼上的功能亦相同
以上求解~~~~~~~

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   If Application.CutCopyMode = xlCopy Then Me.Paste
   On Error Resume Next
   [colorCell].FormatConditions.Delete
   Target.Name = "colorCell"
   With [colorCell].FormatConditions      ' 設定格式化條件
       .Delete
       .Add xlExpression, , "TRUE"        ' 條件(一)內公式為
       .Item(1).Interior.ColorIndex = 36  ' .Item(1)等於FormatConditions(1)
       .Item(1).Font.Bold = True
   End With
End Sub



測試檔.rar (15.08 KB)
收藏 分享
*宅女一枚無誤*

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
2#
發表於 2017-2-25 01:00 | 顯示全部帖子
回復 2# lpk187


   l大~非常感謝您的熱心幫忙~~不過醬好像反而變得更多問題了耶!!噗~~~~
1. 雖然自動反色效果是要在I7:O18成立，但並不是要把整列選起來，因為醬會變成如果我需要在I7:O18裡其中一格複製或貼上的話，就會變成一整列複製、一整列貼上，而不能只單選一個儲存格了。
2. I7:O18無論點選任一儲存格都會變成選取整列，醬會造成我無法顯示目前選取的儲存格是停留在哪一格上面，因為整列反色是為了突顯該列，但仍需要正常顯示點選儲存格時的黑邊框喔。


所以如果可以，還是希望能以原有效果呈現，只是再修改一下條件，醬有辦法達到嗎？
*宅女一枚無誤*

TOP

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
3#
發表於 2017-2-26 21:16 | 顯示全部帖子
回復 5# 准提部林


   准大~~非常感謝幫忙喔!!
*宅女一枚無誤*

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題