取数，标注

'原来是Excel , 用worksheet 事件
Private Sub Worksheet_Change(ByVal Target As Range)
'比如：B4.C4.D4有数字分别是285，E4.有数字比如：112435.74715
'能不能这样，把E4小数点左右两边一位的数字提取到另外一列后用颜色标注出来。
'如果看以上数据的话就提取57，5就是有的，
'此单元格用红色白字，字体加粗，标注出来。你看换种思路行不行？
If Target.Column = 5 And Target.Row = 4 Then 'only handle E4
If Len(Trim(Me.Cells(4, 5))) > 0 Then 'only handle if > 0
Dim xTo As String
Dim v As Variant
v = Split(Me.Cells(4, 5), ".") '用小数点分两段
If UBound(v) > 0 Then
If Len(v(0)) > 0 Then
xTo = Right(v(0), 1)
End If
If Len(v(1)) > 0 Then
xTo = xTo & Left(v(1), 1)
End If
End If
Me.Cells(4, 6) = xTo 'F4
'mark it
Range("F4").Select
Selection.Font.ColorIndex = 3
End If
End If