在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.yyy）的所有部分并将字体样式设置为粗体的方法。

因此它应该看起来像：

2019年3月29日：最新评论

2019年3月28日：较旧的评论

2019年2月25日：更多测试

也许换行了

2018年12月12日：第一条评论

Answer 1

这应该做，但是有点过大，尤其是当您的射程很大时

compareOpCl <- function(x){
     ifelse(Cl(x)-lag(Op(x)) > 0,1,0)
 }