Стиль всех форматов даты в строке в VBA

Question

У меня есть таблица Excel, и в одном столбце есть различные комментарии для конкретной записи (строки).Каждый раз, когда пользователь добавляет новый комментарий, перед новым комментарием добавляется текущая дата ("dd.mm.yyyy").В следующем примере представлена ​​одна ячейка с различными комментариями:

29.03.2019: newest comment
28.03.2019: an older comment
25.02.2019: more test
maybe with line break
12.12.2018: the first comment

Мне нужен способ обнаружения всех частей значения (строки) в ячейке, которые представляют дату (отформатированную как dd.mm.гггг) и установите стиль шрифта жирным шрифтом.

Таким образом, он должен выглядеть следующим образом:

29.03.2019 : новейший комментарий

28.03.2019 : старый комментарий

25.02.2019 : дополнительный тест

возможно с разрывом строки

12.12.2018 : первый комментарий

Answer 1

Это нужно сделать, но это немного излишне, особенно если ваш диапазон большой

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Position As Integer
Dim FontRange As Range
Dim cell As Range

Set FontRange = ActiveSheet.Range("A1:A100") ' set your range with comments

For Each cell In FontRange
    Position = InStr(cell.Value, ":")
    If Position > 0 Then
    With cell.Characters(Start:=1, Length:=Position).Font
        .FontStyle = "Bold"
    End With
    End If
Next cell

End Sub