Отображение информации в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Отображение информации в ячейке (Формулы/Formulas)

shchurovm

Дата: Среда, 29.11.2023, 14:34 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

2016

Коллеги, доброго дня!

Подскажите, пожалуйста, каким образом реализовать отображение текста исчезающей подсказки в ячейках F3-F17 в сером цвете? Тот же размер шрифта наверняка таким же образом можно поменять и всё прочее..
Буду признателен за наводку!

К сообщению приложен файл: kalkuljator_raschjota_premii.xlsm (20.3 Kb)

Сообщение отредактировал shchurovm - Среда, 29.11.2023, 14:37

Ответить

Samaretz

Дата: Среда, 29.11.2023, 14:40 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 223

Репутация: 63 ±

Замечаний: 0% ±

Excel 2010; 2013; 2016

shchurovm, чтобы он в принципе был серым или чтобы при выборе ячейки становился серым?

Ответить

Samaretz

Дата: Среда, 29.11.2023, 15:00 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 223

Репутация: 63 ±

Замечаний: 0% ±

Excel 2010; 2013; 2016

shchurovm, так надо (если пользователь встает на ячейку из диапазона F3:F17, и там находится текст "Сумма сделки без НДС", то текст становится серым)?

К сообщению приложен файл: 4415426.xlsm (21.4 Kb)

Ответить

shchurovm

Дата: Четверг, 30.11.2023, 13:04 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

2016

Samaretz, Оу, интересный вариант, сохраню себе!)) Но всё-таки не то, что я хотел..)

А хотелось так, чтобы текст подсказки "Сумма сделки без НДС.." был серым, но при вводе какого-либо значения в это поле, текст в ячейке становился обычным (чёрным). И наоборот, при удалении числа из этой ячейки, вновь появлялась подсказка в сером цвете. Так сказать, чтобы добавить тексту подсказки прозрачности.)

Сообщение отредактировал shchurovm - Четверг, 30.11.2023, 13:18

Ответить

Nic70y

Дата: Четверг, 30.11.2023, 13:49 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

апдэйт добавил проверку >1 ячейки
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then
        MsgBox "Выделено > 1 ячейки!"
        Exit Sub
    End If
    Application.DisplayAlerts = False
    a_ = "Сумма сделки без НДС.."
    a = Target.Column
    b = Target.Row
    c = Target.Value
    If a = 6 And b > 2 And b < 18 Then
        d = Application.CountA(Range("f3:f17"))
        e = Range("f3:f17").Rows.Count
        If e > d Then
            With Range("f3:f17").SpecialCells(xlCellTypeBlanks)
                .Value = a_
                .Font.Color = 10921638
            End With
        End If
        If c = a_ Then
            Target.ClearContents
            Target.Font.ColorIndex = xlAutomatic
        End If
    End If
    Application.DisplayAlerts = True
End Sub

[/vba]