coafort

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2024-2-1 13:26 | 只看該作者

儲存各取得焦點後某一欄位變色

請問各位大大
比方點了AR212欄位
AG212底色會變
要怎設計呢
謝謝

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1391
主題: 4
精華: 0
積分: 1401
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-12-16

熱烈參與勳章

35^#

發表於 2024-4-11 15:04 | 只看該作者

(搜尋輸入編號12626) google網址:https://hcm19522.blogspot.com/

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

coafort

中學生 Rank: 2

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

34^#

發表於 2024-2-4 19:40 | 只看該作者

回復 coafort

Set xB = [AF212:AG219]

With xB.Rows(R).FormatConditions
准提部林發表於 2024-2-4 15:01

非常謝謝准大大
可以了:D

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

33^#

發表於 2024-2-4 15:01 | 只看該作者

回復 32# coafort

Set xB = [AF212:AG219]

With xB.Rows(R).FormatConditions

TOP

coafort

中學生 Rank: 2

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

32^#

發表於 2024-2-4 14:10 | 只看該作者

利用格式條件變色//保留原有格式

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ...
准提部林發表於 2024-2-3 10:35

其實是小的把欄位搞錯了
真的是非常抱歉
實際上應該是
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xB As Range, X As Range, R&
Set xA = [AR212:AR219,AX212:AX219]
Set xB = [AG212:AG219]
With Target
   If xB.FormatConditions.Count Then xB.FormatConditions.Delete
   If .Count > 1 Then Exit Sub
   Set X = Intersect(.Cells, xA)
   If X Is Nothing Then Exit Sub
   R = X.Row - xA.Item(1).Row + 1
   With xB.Item(R).FormatConditions
      .Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=""^_^"""
      .Item(1).Interior.ColorIndex = 6
   End With
End With
End Sub

請問大大
如果AF212:AF219也要一起變色
該如何加入呢？
我改成以下這樣只有AF有作用但是AG沒作用
謝謝大大

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xB As Range, X As Range, R&
Set xA = [AR212:AR219,AX212:AX219]
Set xB = [AF212:AF219,AG212:AG219]
With Target
   If xB.FormatConditions.Count Then xB.FormatConditions.Delete
   If .Count > 1 Then Exit Sub
   Set X = Intersect(.Cells, xA)
   If X Is Nothing Then Exit Sub
   R = X.Row - xA.Item(1).Row + 1
   With xB.Item(R).FormatConditions
      .Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=""^_^"""
      .Item(1).Interior.ColorIndex = 6
   End With
End With
End Sub

TOP

coafort

中學生 Rank: 2

帖子: 162
主題: 33
精華: 0
積分: 243
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2024-10-22

31^#

發表於 2024-2-4 14:06 | 只看該作者

利用格式條件變色//保留原有格式

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ...
准提部林發表於 2024-2-3 10:35

非常謝謝准提大大
非常謝謝安迪大大
下次改進:'(

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

30^#

發表於 2024-2-3 10:40 | 只看該作者

回復 1# coafort

發問時, 請上傳檔案並模擬結果, 若無法上傳檔案, 也可貼圖上來!!!
問題描述一定要完整且到位, 不要讓解答者一改再改, 花費太多時間~~

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

29^#

發表於 2024-2-3 10:35 | 只看該作者

利用格式條件變色//保留原有格式

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xB As Range, X As Range, R&
Set xA = [AR212:AR219,AX212:AZ219]
Set xB = [AJ212:AJ219]
With Target
   If xB.FormatConditions.Count Then xB.FormatConditions.Delete
   If .Count > 1 Then Exit Sub
   Set X = Intersect(.Cells, xA)
   If X Is Nothing Then Exit Sub
   R = X.Row - xA.Item(1).Row + 1
   With xB.Item(R).FormatConditions
      .Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=""^_^"""
      .Item(1).Interior.ColorIndex = 6
   End With
End With
End Sub

TOP

coafort