Board logo

標題: [發問] 設定單元格字體符合條件的顏色 ?? [打印本頁]
作者: t8899    時間: 2015-4-18 21:10     標題: 設定單元格字體符合條件的顏色 ??

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

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

[attach]20723[/attach]
作者: tyrone123456    時間: 2015-4-19 00:10

此法中文也通用
[attach]20725[/attach]
作者: t8899    時間: 2015-4-19 06:44

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

勞煩您幫我看一下錯誤在何處?
第一個字開始取三個字為紅色，結果全部為紅色???
[attach]20727[/attach]
還有用clear 清除已設定的格式，好像無效??
作者: tyrone123456    時間: 2015-4-19 07:52

目前我權限不足，不能下載東西，只能看貼圖，所以你需要把程式碼及待變更格式資料頁面貼出來
作者: t8899    時間: 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
[attach]20728[/attach]
作者: tyrone123456    時間: 2015-4-19 10:27

回復 6# t8899

用這個吧   [email protected]
作者: tyrone123456    時間: 2015-4-19 20:06

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

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

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

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)