一個變色問題

hong912

大大們, 安好
有一個儲存格變色問題請教, 圖片有明細說明, 先行謝過各大大們,

下載 (31.22 KB)

2016-9-14 10:48

Hsieh

回復 1# hong912

工作表右鍵事件，選取範圍後按下滑鼠右鍵

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2. With Selection
   
3.   .Interior.ColorIndex = 6
   
4.   .Merge
   
5. End With
   
6. End Sub

複製代碼

hong912

回復 2# Hsieh
尊敬的版大, 早晨
感謝協助, 謝謝!!

hong912

回復 2# Hsieh

Hsieh 版大好,
小弟再有問題請教, 程式中按滑鼠左健變色, 現想變多一色, 假設當用家選定儲存格按左健變藍色, 再按左健, 儲存再變成紅色, 這是否可做到, 煩勞版大教導..
謝謝!!

周大偉

小弟也想知道這似簡單實是複雜的雙重變色問題, 在vba中是否可做到,

zyzzyva

加個if 判斷？

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2. 
   
3. With Selection
   
4.     If .Interior.ColorIndex = 5 Then
   
5.         .Interior.ColorIndex = 3
   
6. 
   
7.     Else
   
8.         .Interior.ColorIndex = 5
   
9.         .Merge
   
10.         
    
11.     End If
    
12. End With
    
13. End Sub

複製代碼

hong912

回復 6# zyzzyva
感謝大大，
我也曾用錄制巨集方式研究，但功力太淺，沒成功，衷心感謝！

周大偉

回復 6# zyzzyva                                                                                                                                                                                                 
前輩好，小弟想請問若在程式中加入強制性自動換列，自否可以，感恩，謝謝！

zyzzyva

回復 8# 周大偉
自動換列是什麼意思？變色後換到下一列嗎？

周大偉

回復 9# zyzzyva
謝謝回應,
自動換列是指一般輸入文字於儲存格過長時沒法全部顯示, 用家便會設定儲存格格式,在對齊方式中勾選自動換列, 這情況下輸入文字幾長都會自動調整列高,
在程式中可否加入自動換列, 是指用家輸入過長文字, 儲存格自行調整列高,
多謝回應..