麻辣家族討論版版 » Excel程式區 » 請問vba要怎樣寫才能讓文字顏色交叉呈現@@

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

請問vba要怎樣寫才能讓文字顏色交叉呈現@@

　暱稱: 伊恩

中學生 Rank: 2

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2020-12-21 09:36 | 只看該作者

請問vba要怎樣寫才能讓文字顏色交叉呈現@@

如題，要怎樣才能讓文字顏色如下圖的方式呈現
例如一開始用藍色，遇到下一個不一樣的名稱時，換另外一個顏色標示
用兩種顏色來標示，每個名稱的資料量不一定

擷取.PNG

樓主熱帖

收藏

　暱稱: 伊恩

中學生 Rank: 2

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

2^#

發表於 2020-12-21 15:58 | 只看該作者

這是我目前想到的方法，如有高手有更好的方式歡迎指教~~~

Sub color()
color1 = -3902908
color2 = -13270700
With ActiveSheet
r = .Columns(1).Find(what:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
c = color1
CC = 1
.Cells(1, "A").Font.color = c
For i = 1 To r
a = .Cells(i, "A")
If i = 1 Then
b = .Cells(i + 1, "A")
Else
b = .Cells(i - 1, "A")
End If
If a = b Then
.Cells(i, "A").Font.color = c
ElseIf a <> b And CC = 1 Then
c = color2
CC = 0
.Cells(i, "A").Font.color = c
ElseIf a <> b And CC = 0 Then
c = color1
CC = 1
.Cells(i, "A").Font.color = c
End If
Next i
End With
End Sub

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2020-12-21 19:59 | 只看該作者

Sub TEST()
Dim xR As Range, xH As Range, T$, Cr, c%
[A:A].Font.ColorIndex = 1
Cr = Array(5, 3)
For Each xR In Range([A1], [A65536].End(xlUp))
If xR & "" <> T Then Set xH = xR: T = xR & ""
If xR(2) & "" <> T Then
Range(xH, xR).Font.ColorIndex = Cr(c)
c = (c + 1) Mod 2
End If
Next
End Sub

大學生 Rank: 4

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

熱烈參與勳章

4^#

發表於 2020-12-22 09:59 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589522000

隨意窩 "EXCEL迷" blog 或https://hcm19522.blogspot.com/ EXCEL函數

中學生 Rank: 2

帖子: 29
主題: 6
精華: 0
積分: 67
點名: 5
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2023-10-11

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

5^#

發表於 2020-12-23 12:19 | 只看該作者

Sub TEST()
Dim xR As Range, xH As Range, T$, Cr, c%
[A:A].Font.ColorIndex = 1
Cr = Array(5, 3)
F ...
准提部林發表於 2020-12-21 19:59

版大的宣告
T$ c%
但在程式內只有 T c
請問這附帶的符號 $ %在宣告內有什麼作用嗎？

莫讓他人錯誤傷害自己

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2020-12-23 14:34 | 只看該作者

回復 5# y54161212

可自行去查"變數型態" 的相關說明...EXCEL中的說明檔或 GOOGLE

中學生 Rank: 2

帖子: 29
主題: 6
精華: 0
積分: 67
點名: 5
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2023-10-11

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

7^#

發表於 2020-12-23 15:08 | 只看該作者

回復 y54161212

可自行去查"變數型態" 的相關說明...EXCEL中的說明檔或 GOOGLE
准提部林發表於 2020-12-23 14:34

終於找到了!
類型的簡略表示法為：% -integer; & -long; @ -currency; # -double; ! -single; $ -string

莫讓他人錯誤傷害自己

靜思自在 : 成功是優點的發揮，失敗是缺點的累積。

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