excel儲存格內(如有國字時)(顏色變黃色) 只要全部是數字(不變色) A1(12愛迪達)(顏色變黃色) A2(1300)(不變色) A3(迪達)(顏色變黃色) A4(0000愛迪達)(顏色變黃色) A5(1600)(不變色) 只要有顯示任何1個文字(顏色變黃色) 謝謝?

2019-07-21 8:23 am
更新1:

謝謝Cheng

回答 (1)

2019-07-25 11:46 am
✔ 最佳答案
Sub 底色()
Cx = [A1048576].End(3).Row
Cells.Interior.ColorIndex = 0
For i = 1 To Cx
Rnga = Cells(i, 1)
Rngb = Len(Rnga)
For j = 1 To Rngb
Rngc = Mid(Rnga, j, 1)
If Not IsNumeric(Rngc) = True Then
Cells(i, 1).Interior.ColorIndex = 6
End If
Next
Next
End Sub


收錄日期: 2021-05-03 06:49:11
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20190721002318AA7QqIT

檢視 Wayback Machine 備份