VBA_針對儲純格中( )內字眼標示顏色
針對儲純格中( )內字眼標示顏色,如果同一個儲存格純在兩個(),也會都標示顏色。 Sub ChangeColor() Dim cell As Range Dim i As Integer, j As Integer For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) If cell.Value <> "" Then i = InStr(1, cell.Value, "(") j = InStr(1, cell.Value, ")") If i > 0 And j > 0 And i < j Then cell.Characters(i, j - i + 1).Font.ColorIndex = 5 '修改括號內字元的顏色 If InStr(j + 1, cell.Value, "(") > 0 Then '判斷是否存在第2個以上的括號 k = InStr(j + 1, cell.Value, "(") l = InStr(j + 1, cell.Value, ")") ...