EXCEL如何实现同一单元格内不同的颜色显示(公式) 10
2个回答
2019-01-04
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m%, n%, i%
i = Target.Row
If Target.Column = 11 Then
On Error Resume Next
m = WorksheetFunction.Search(";", Range("K" & i))
If Err.Number Then
m = Len(Range("K" & i).Value) + 1
Range("K" & i).Characters(Start:=1, Length:=m - 1).Font.Color = -16776961
End If
n = WorksheetFunction.Search(";", Range("K" & i), m + 1)
If Err.Number Then n = Len(Range("K" & i).Value) + 1
On Error GoTo 0
Range("K" & i).Characters(Start:=1, Length:=m - 1).Font.Color = -16776961
Range("K" & i).Characters(Start:=m + 1, Length:=n - m - 1).Font.Color = -16776961
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询