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

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

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

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

Heatmap

14
задан dav
08.03.2023 2:37 Количество просмотров материала 2717
Распечатать страницу

4 ответа

Я нашел обходной путь, который не меняет цвет шрифта, но эффективно удаляет текст из ячеек. Измените формат номера ячейки на пользовательский со значением ;;;.

25
отвечен dav 2023-03-09 10:25

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

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 из главной ленты. Просто выберите мышью диапазон, который вы хотите изменить, и выберите макрос, который вы хотите запустить.

3
отвечен chuff 2023-03-09 12:42

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

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

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

1
отвечен timbosides 2023-03-09 14:59

вот как я это делаю.

.Ячейки (RowTo, ColHcpDiP).Шрифт.Цвет. = Ячейки (RowTo, ColHcpDiP).Интерьер.Color ' установить невидимый цвет

1
отвечен user685761 2023-03-09 17:16

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх