VBAでよろしくやるのではなく、関数作ってくださいとのことで対応。 '使用例 ' =CHANGE_FONT_COLOR("赤色！", A1, 3) Public Function CHANGE_FONT_COLOR( value as Variant, cell as Range, inColorIndex as Integer ) as Variant cell.Font.ColorIndex = i…