[已解决]字符串格式问题

shfy009

下面语句（b)中，如何能让字符串的格式不变。还有这两个语句能并成一个吗？
Sub a()
Range("A1") = "字符串格式1"
    Dim j As Long
    j = InStr(Range("A1"), "格式")
    Range("A1").Characters(Start:=j, Length:=2).Font.ColorIndex = 3   '这个正常
End Sub

Sub b()
Range("A2") = "字符串格式2"
    Dim j As Long
    j = InStr(Range("A2"), "无")
    Range("A2").Characters(Start:=j, Length:=2).Font.ColorIndex = 3
    '既然找不到"无"，就应该是不变的
End Sub

最佳答案

月排行榜 / 总排行榜

甲百

2013-7-21 08:17

Sub c()
Range("A1") = "字符串格式1"
Range("A2") = "字符串格式2"
j = InStr(Range("A1"), "格式")
j1 = InStr(Range("A2"), "无")
If j > 0 Then Range("A1").Characters(Start:=j, Length:=2).Font.ColorIndex = 3
If j1 > 0 Then Range("A2").Characters(Start:=j, Length:=2).Font.ColorIndex = 3
End Sub

跳转到最佳答案楼层

甲百

Sub c()
Range("A1") = "字符串格式1"
Range("A2") = "字符串格式2"
j = InStr(Range("A1"), "格式")
j1 = InStr(Range("A2"), "无")
If j > 0 Then Range("A1").Characters(Start:=j, Length:=2).Font.ColorIndex = 3
If j1 > 0 Then Range("A2").Characters(Start:=j, Length:=2).Font.ColorIndex = 3
End Sub

shfy009

谢谢您的解答，帮我解决了之前的困扰。