Excel 使用基于文本颜色的公式_Excel_Vba

Excel 使用基于文本颜色的公式

excel vba

Excel 使用基于文本颜色的公式,excel,vba,Excel,Vba,我有下面的代码，它将计算特定单元格范围的公式。公式中提到的范围将有红色数字我想做的是，我希望公式忽略有“彩色文本”的单元格我试着运行这段代码，但根本没有给出任何结果。目标单元格为空。“目标”单元格与“源”单元格相同，它们都是工作表（“WBR45”）。范围（“AE103”）。1）它的字体颜色索引是什么？2）选择后，公式栏内容是什么？否，目标单元格是工作表“WBR45”中的AE103，用于计算的源单元格来自工作表“TP”，范围在公式中指定……如何查找fontcolor索引？我的意思是，所有事

我有下面的代码，它将计算特定单元格范围的公式。公式中提到的范围将有红色数字

我想做的是，我希望公式忽略有“彩色文本”的单元格

我试着运行这段代码，但根本没有给出任何结果。目标单元格为空。“目标”单元格与“源”单元格相同，它们都是

工作表（“WBR45”）。范围（“AE103”）

。1）它的字体颜色索引是什么？2）选择后，公式栏内容是什么？否，目标单元格是工作表“WBR45”中的AE103，用于计算的源单元格来自工作表“TP”，范围在公式中指定……如何查找fontcolor索引？我的意思是，所有事情都发生在同一单元格中：a）查询其字体颜色索引b）在其中写入公式。通过选择单元格，在即时窗口中键入

？ActiveCell.font.Colorindex

，然后按return键，可以检索单元格的字体颜色索引。我的问题2的答案是什么？回答问题2-公式栏是空的

Sheets("WBR45").Range("AE103").Formula = "=PERCENTILE.INC(TP!$A$3:$D$30,99%)*24"

With Sheets("WBR45").Range("AE103")
    If .Font.ColorIndex = xlColorIndexAutomatic Or .Font.ColorIndex = xlColorIndexNone Then .Formula = "=PERCENTILE.INC(TP!$A$3:$D$30,99%)*24"
End With