使用 RegExp 正则表达式的粗体文本

如何解决使用 RegExp 正则表达式的粗体文本

我正在尝试使用 regEx 查找日期并在一个范围内的多个单元格中的文本中将它们加粗，但似乎我没有使用正确的表达式来使用 regEx 加粗文本。除了粗体功能之外，下面的代码正在工作。我需要正则表达式，因为我需要以 yyyy-mm-dd 的格式将所有日期加粗。我知道下面的 regEx 表达式不正确，但我打算在处理下一部分之前让粗体函数工作。

我已经检查了所有其他问题，他们都避免使用正则表达式进行粗体。

Sub Bold_a_date2()

Dim ws As Worksheets
Dim item As Variant
Dim arr As Variant
arr = Worksheets("Formatted").Range("M1:M1000")

Dim regEx As New RegExp
regEx.Global = True
regEx.Pattern = "202[0-9]"

Dim text As Variant
Dim mc As MatchCollection,row As Long
row = 1

  For Each text In arr
    
    If regEx.test(text) = True Then
    Set mc = regEx.Execute(text)
    
    Selection.Font.Bold = True
    Debug.Print text
        
    End If
    
row = row + 1

Next text


End Sub

解决方法

如果您的数据是日期值，结果会很奇怪。如果数据是文本格式，可以做如下操作。

# Get inputs
a = float(input("a: "))
b = float(input("b: "))
c = float(input("c: "))

# Calculate discriminant
discriminant = b**2 - 4*a*c

# Get solutions,x^0.5 = square root
x1 = (-b + discriminant**0.5) / (2*a)
x2 = (-b - discriminant**0.5) / (2*a)

# Output
print(f"Solutions: {x1} and {x2}")

字符串与日期值

多情况