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

t8899

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

tyrone123456

我的想法是先用Len計算出字數，然後用For .. next 來比對

下載 (52.46 KB)

2015-4-18 23:23

tyrone123456

此法中文也通用

下載 (62.54 KB)

2015-4-18 23:57

t8899

此法中文也通用
tyrone123456 發表於 2015-4-19 00:10

勞煩您幫我看一下錯誤在何處?
第一個字開始取三個字為紅色，結果全部為紅色???
Book2.zip (23.64 KB)

下載次數: 5

2015-4-19 06:43

還有用clear 清除已設定的格式，好像無效??

tyrone123456

目前我權限不足，不能下載東西，只能看貼圖，所以你需要把程式碼及待變更格式資料頁面貼出來

t8899

目前我權限不足，不能下載東西，只能看貼圖，所以你需要把程式碼及待變更格式資料頁面貼出來
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

下載 (36.19 KB)

2015-4-19 08:44

tyrone123456

回復 6# t8899

用這個吧   tyrone123456@yahoo.com.tw

tyrone123456

好多錯誤
1、cells的用法，你都寫錯，Cells跟Range的概念是不ㄧ樣的
2、Selection的使用前提，也錯誤
3、E5會變紅，與你寫的程式完全無關，猜測可能那個儲存格原本就已經設定字體是紅色的
4、依照你寫的程式，和你當初寫的問題主題，感覺差別很大.....

從你寫的程式來看，你是一位非常初階的編寫者，期望你再多看些程式再來試試編寫你的期望
PS：恕我不能直接跟你講VBA答案，若很緊急，可以到104外包網發包工程，這VBA不難，應該很多人可以解決你的困擾

t8899

好多錯誤
1、cells的用法，你都寫錯，Cells跟Range的概念是不ㄧ樣的
2、Selection的使用前提，也錯誤
3、 ...
tyrone123456 發表於 2015-4-19 20:06

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