Как сделать шрифт ячейки прозрачным?

хотя я не знаю какой-либо функциональности листа, чтобы соответствовать цвету шрифта ячейки к его цвету заливки (кроме вручную), это очень легко сделать с макросом. Первый макрос ниже изменяет цвет(ы) шрифта в ячейках выбранного диапазона в соответствии с их цветами заливки. Второй возвращает цвет шрифта к черному по умолчанию.

Sub HideFont()
    Dim cell As Variant
    For Each cell In Selection
        cell.Font.Color = cell.Interior.Color
    Next cell
End Sub

Sub UnhideFont()
    Dim cell As Variant
    For Each cell In Selection
        cell.Font.Color = 0
    Next cell
End Sub

для установки макросов, выберите Developer/Visual Basic от главной ленты, а затем выберите Insert/Module из меню. Вставить код в открывшуюся область редактирования. Макросы появятся в списке макросов, доступном при выборе Developer/Macros из главной ленты. Просто выберите мышью диапазон, который вы хотите изменить, и выберите макрос, который вы хотите запустить.

хорошо, так что это первый раз, когда я когда-либо представил код, так вот идет. Я думал, что маршрут макроса будет идти, но поскольку вы не можете установить шрифт таким же, как цвет ячейки, используя Условное форматирование, тогда единственным другим способом было бы изменить оба макроса, которые работают аналогично эффекту условного формата, см. ниже:

Sub change()

    Dim Rstart, Rmid, Rend, Gstart, Gmid, Gend, Bstart, Bmid, Bend, Rsd, Rdd,_
    Gsd, Gdd, Bsd, Bdd, Rcell, Gcell, Bcell As Integer
    Dim maxsel, minsel, halfsel, halfval, v As Double



    Rstart = 0
    Rmid = 230
    Rend = 255
    Gstart = 0 
    Gmid = 230
    Gend = 0
    Bstart = 255
    Bmid = 230
    Bend = 0

    Rsd = Rmid - Rstart
    Rdd = Rend - Rmid

    Gsd = Gmid - Gstart
    Gdd = Gend - Gmid

    Bsd = Bmid - Bstart
    Bdd = Bend - Bmid

    maxsel = Application.WorksheetFunction.Max(Selection)
    minsel = Application.WorksheetFunction.Min(Selection)
    halfsel = (maxsel - minsel) / 2
    halfval = minsel + halfsel
    If halfval = 0 Then Exit Sub

    Dim cell As Variant
    For Each cell In Selection
        v = cell.Value
        If v >= minsel And v < halfsel Then
            Rcell = Round((Rstart + ((halfval - v) / halfsel) * Rsd), 0)
            Gcell = Round((Gstart + ((halfval - v) / halfsel) * Gsd), 0)
            Bcell = Round((Bstart + ((halfval - v) / halfsel) * Bsd), 0)
        Else
            Rcell = Round((Rmid + ((v - halfval) / halfsel) * Rdd), 0)
            Gcell = Round((Gmid + ((v - halfval) / halfsel) * Gdd), 0)
            Bcell = Round((Bmid + ((v - halfval) / halfsel) * Bdd), 0)
        End If

    cell.Font.Color = RGB(Rcell, Gcell, Bcell)
    cell.Interior.Color = RGB(Rcell, Gcell, Bcell)

    Next cell

    End Sub

надеюсь, это кому-то поможет, хотя для первоначального вопроса уже три года поздно.