如何将单元格的格式重置为表格中设置的格式？

前言：我在做完这个问题的时候想出了答案。我没有在任何地方看到这个问题，所以我还是会发布它。

我有一个名为 Table Style 1 的表格样式。 如果日期满足某些条件，我会使用一些 VBA 来格式化单元格：

'formatting for due dates
Select Case (DueDate.Value)
    Case ""
        DueDate.Value = "No Due Date"
        DueDate.Font.ColorIndex = 45
    Case Is > Date + 30
        With DueDate
            .Interior.ColorIndex = 36
            .Font.ColorIndex = 53
        End With
    Case Else
        With DueDate
            .Interior.ColorIndex = 0
            .Font.ColorIndex = 1
        End With
End Select

问题出在 else 情况下，Font.ColorIndex。如果字体颜色已被此子程序的先前运行更改，我需要将其重置为表格格式中设置的字体颜色。

我试过颜色索引 0 和 1. 0，因为它适用于 internal.colorindex。1，因为表中未更改单元格的索引。两者都只是将字体颜色更改为黑色。

我有两种可能的方法来做到这一点，但它们可能会失败：

1. 设置字体颜色 = 表格格式中设置的文本颜色的 rgb/hex 值。如果我最终更改表格格式中字体的颜色，则必须进行更新。
2. 设置字体颜色=表格中第一个单元格的字体颜色。如果该单元格的字体颜色发生变化，则会弄乱这种格式。

我认为我正在寻找的财产是这样的：

With DueDate
    .Interior.ColorIndex = 0
    .Font.ColorIndex = myTable.tablestyle.FirstRowStripe.font.colorindex
end with