返回列表 上一主題 發帖

[發問] 設定單元格字體符合條件的顏色 ??

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-4-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-18 21:10 | 顯示全部帖子

[發問] 設定單元格字體符合條件的顏色 ??

Characters
1.這函數無法辦別中文....
2.它只能指定符合條件開始的字取幾個字變色
例如
ABC-123ABC-123
指定 - 取4 則指 -123 後面還有-123就不做了
最主要無法辨別中文.....
不知有其他辦法解決???
收藏 分享

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-4-14 
2#
發表於 2015-4-19 06:44 | 顯示全部帖子
此法中文也通用
tyrone123456 發表於 2015-4-19 00:10

勞煩您幫我看一下錯誤在何處?
第一個字開始取三個字為紅色，結果全部為紅色???
Book2.zip (23.64 KB)
還有用clear 清除已設定的格式，好像無效??

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-4-14 
3#
發表於 2015-4-19 08:27 | 顯示全部帖子
本帖最後由 t8899 於 2015-4-19 08:44 編輯
目前我權限不足，不能下載東西，只能看貼圖，所以你需要把程式碼及待變更格式資料頁面貼出來
tyrone123456 發表於 2015-4-19 07:52

同樣的程式碼我把它放在其他的活頁簿是正常的
但在這個活頁簿就是不行很詭異???
你有信箱嗎?我寄給您??

Sub abc()
Application.ScreenUpdating = False
' Application.EnableEvents = False

' -----------------------------------------------
With Workbooks("book2.xls").Sheets("Sheet3")
Dim ou, ddd, eee
For ou = 2 To 61
If .Cells(ou, "c") > 2.8 Then
ddd = ddd & "3" & .Cells(ou, "b") & ","
ElseIf .Cells(ou, "c") > 1.8 Then
ddd = ddd & "2" & .Cells(ou, "b") & ","
ElseIf .Cells(ou, "c") > 0.8 Then
ddd = ddd & .Cells(ou, "b") & ","
End If
Next
.Range("e65536").End(xlUp).Offset(1) = ddd

.Range("e65536").End(xlUp).Offset(0).Characters(1, 3).Font.ColorIndex = 3

End With
Workbooks("32.xls").Sheets("Sheet1").Range("a65536").End(xlUp).Offset(1) = ddd
' 加入上面這行測試,沒設定顏色，但字體確是紅色???
End Sub

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-4-14 
4#
發表於 2015-4-19 21:33 | 顯示全部帖子
好多錯誤
1、cells的用法，你都寫錯，Cells跟Range的概念是不ㄧ樣的
2、Selection的使用前提，也錯誤
3、 ...
tyrone123456 發表於 2015-4-19 20:06

謝謝，我已經找到答案了!

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題