Sub ki101()
 Range("F13").Select
ActiveCell.Characters(5, 4).Font.ColorIndex = 3
ActiveCell.Characters(13, 4).Font.ColorIndex = 5
Range("B14").Select
End Sub
Sub ki101b()
    Range("F13").Select
    s1 = Len(Range("F13"))
    For i = 1 To s1
        cro1 = Int(56 * Rnd + 1)
        ActiveCell.Characters(i, 1).Font.ColorIndex = cro1
    Next
Range("B14").Select
End Sub
Sub ki101c()
    Range("F13").Select
    Selection.Font.ColorIndex = 0
    Range("B14").Select
End Sub