hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-9-14 10:48 | 只看該作者

一個變色問題

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

樓主熱帖

hong912

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 248
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2016-9-14 22:57 | 只看該作者

回復 1# hong912

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

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

複製代碼

學海無涯_不恥下問

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

3^#

發表於 2016-9-15 08:44 | 只看該作者

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

hong912

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

4^#

發表於 2016-9-19 19:09 | 只看該作者

回復 2# Hsieh

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

hong912

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

5^#

發表於 2016-9-21 19:03 | 只看該作者

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

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2016-9-21 22:16 | 只看該作者

加個if 判斷？

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Selection
If .Interior.ColorIndex = 5 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 5
.Merge
End If
End With
End Sub