顏色判別 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 顏色判別

123 4 下一頁

返回列表下一主題上一主題發帖

[發問] 顏色判別

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

22^# 跳轉到 »

發表於 2022-12-30 08:05 | 只看該作者

本帖最後由 Andy2483 於 2022-12-30 08:10 編輯

回復 18# 准提部林

謝謝前輩
今天藉此帖練習陣列與字典,將格式化條件改為VBA,請前輩再指導,謝謝前輩

執行前:

執行結果:

工作表模組:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
   If .Row < 3 Or .Value = "" Then Exit Sub
   If .Column Mod 4 <> 1 Then Exit Sub
   Cancel = True
   Call 變字色_多個同股名

   If Y(.Value & "|") > 1 Then Y(.Value).Interior.ColorIndex = 4
   Set Y = Nothing
   Set Brr = Nothing
End With
End Sub

Module1:
Option Explicit
Public Brr, Y
Sub 變字色_多個同股名()
Dim C&, R&
Set Y = CreateObject("Scripting.Dictionary")
ActiveSheet.UsedRange.Offset(2).Font.ColorIndex = 1
ActiveSheet.UsedRange.Offset(2).Interior.ColorIndex = xlNone
Brr = ActiveSheet.UsedRange
Set Y(1) = [B1]
For C = 1 To UBound(Brr, 2) Step 4
For R = 3 To UBound(Brr)
   Y(Brr(R, C) & "|") = Y(Brr(R, C) & "|") + 1
   If Y(Brr(R, C) & "|") = 1 Then
      Set Y(Brr(R, C)) = Cells(R, C)
      GoTo PASS
   End If
   If Y(Brr(R, C) & "|") = 2 Then
      Set Y(1) = Union(Y(1), Y(Brr(R, C)))
   End If
   Set Y(1) = Union(Y(1), Cells(R, C))
   Set Y(Brr(R, C)) = Union(Y(Brr(R, C)), Cells(R, C))

PASS:
Next
Next
Y(1).Font.ColorIndex = 5
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

中學生 Rank: 2

帖子: 173
主題: 36
精華: 0
積分: 257
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2025-9-2

21^#

發表於 2021-11-15 15:09 | 只看該作者

回復 20# samwang

謝謝大大

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

20^#

發表於 2021-11-1 08:06 | 只看該作者

回復 19# coafort

請測看看，謝謝

test_1101.zip (20.69 KB)

中學生 Rank: 2

帖子: 173
主題: 36
精華: 0
積分: 257
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2025-9-2

19^#

發表於 2021-10-31 19:24 | 只看該作者

回復 coafort

格式條件+vba
1) 重覆--藍色字
2) 對有重覆的股票名稱雙擊左鍵, 所有相同的標淺紅底
...
准提部林發表於 2021-10-31 15:45

大大這個好方便
非常感恩大大提供的方法
感恩感恩無限:)

版主 Rank: 7 Rank: 7 Rank: 7

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

18^#

發表於 2021-10-31 15:45 | 只看該作者

回復 10# coafort

格式條件+vba
1) 重覆--藍色字
2) 對有重覆的股票名稱雙擊左鍵, 所有相同的標淺紅底

Xl0000797.rar (15.27 KB)

用了countif, 範圍太大, 會很卡~~可惜是跳欄, 用match公式很長

中學生 Rank: 2

帖子: 173
主題: 36
精華: 0
積分: 257
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2025-9-2

17^#

發表於 2021-10-30 18:03 | 只看該作者

回復 coafort

~~~~~~~~~~~~~
hcm19522 發表於 2021-10-30 14:52

非常謝謝大大的幫忙
有您真好
我明天研究看看:kiss:

博士班 Rank: 6 Rank: 6

帖子: 1817
主題: 194
精華: 0
積分: 2016
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-11-6

熱烈參與勳章

16^#

發表於 2021-10-30 14:52 | 只看該作者

回復 15# coafort

~~~~~~~~~~~~~

格式化重複值數據跳行 (9045).rar (7.83 KB)

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

中學生 Rank: 2

帖子: 173
主題: 36
精華: 0
積分: 257
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2025-9-2

15^#

發表於 2021-10-30 14:25 | 只看該作者

回復 coafort

格式化公式

或$AM 改 $A$3M$33
hcm19522 發表於 2021-10-30 13:24

謝謝大大
但是我弄不出來
是否可勞煩大大用小弟附件幫小弟弄呢？
謝謝大大
非常感恩

博士班 Rank: 6 Rank: 6

帖子: 1817
主題: 194
精華: 0
積分: 2016
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-11-6

熱烈參與勳章

14^#

發表於 2021-10-30 13:24 | 只看該作者

回復 13# coafort

格式化公式
https://blog.xuite.net/hcm19522/twblog/590098778

或$A:$M 改 $A$3:$M$33

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

中學生 Rank: 2

帖子: 173
主題: 36
精華: 0
積分: 257
點名: 0
作業系統: win7
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2018-1-5
最後登錄: 2025-9-2

13^#

發表於 2021-10-30 12:43 | 只看該作者

=(COUNTIF($A$3M$33,A3)>1)*(MOD(COLUMN(A1),4)=1)
hcm19522 發表於 2021-10-30 12:36

請問大大
這是？
謝謝

靜思自在 : 原諒別人就是善待自己。

123 4 下一頁

返回列表下一主題上一主題