[已解决]求老师们帮忙

vba新手2 · 发表于 2016-4-20 07:08

不知能否实现

最佳答案

爱疯

2016-4-20 16:10

Sub test()
Dim within_text As Range
Dim find_text As String, str As String, ch As String
Dim strLen As Integer, i As Integer, j As Integer, s As Integer

Application.ScreenUpdating = False
Set within_text = [f1]
find_text = "T"
str = within_text.Text
strLen = Len(str)
Call fillFontColor(1, strLen, 0, within_text)
j = 1

For i = 1 To strLen
      ch = Mid(str, i, 1)
      If ch = "," Or ch = ";" Then j = i + 1
      If ch = find_text Then
         Call fillFontColor(j, i - j + 1, -16776961, within_text)
         s = s + 1
      End If
Next i

within_text.Offset(0, 1) = s
End Sub

Sub fillFontColor(startIndex As Integer, charCount As Integer, colorValue As Long, within_text As Range)

within_text.Characters(Start:=startIndex, Length:=charCount).Font.Color = colorValue

End Sub

5.rar (10.8 KB, 下载次数: 5)

爱疯 · 发表于 2016-4-20 11:46

有空发一个截图，多少能增加一些解答的机会

爱疯 · 发表于 2016-4-20 16:10

Sub test()
Dim within_text As Range
Dim find_text As String, str As String, ch As String
Dim strLen As Integer, i As Integer, j As Integer, s As Integer

Application.ScreenUpdating = False
Set within_text = [f1]
find_text = "T"
str = within_text.Text
strLen = Len(str)
Call fillFontColor(1, strLen, 0, within_text)
j = 1

For i = 1 To strLen
      ch = Mid(str, i, 1)
      If ch = "," Or ch = ";" Then j = i + 1
      If ch = find_text Then
         Call fillFontColor(j, i - j + 1, -16776961, within_text)
         s = s + 1
      End If
Next i

within_text.Offset(0, 1) = s
End Sub

Sub fillFontColor(startIndex As Integer, charCount As Integer, colorValue As Long, within_text As Range)

within_text.Characters(Start:=startIndex, Length:=charCount).Font.Color = colorValue

End Sub

5.rar (10.8 KB, 下载次数: 5)

		自动登录	找回密码
密码			注册