Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отображение информации в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Отображение информации в ячейке
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
 
Ответить
СообщениеКоллеги, доброго дня!

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

Автор - shchurovm
Дата добавления - 29.11.2023 в 14:34
Samaretz Дата: Среда, 29.11.2023, 14:40 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 223
Репутация: 63 ±
Замечаний: 0% ±

Excel 2010; 2013; 2016
shchurovm, чтобы он в принципе был серым или чтобы при выборе ячейки становился серым?
 
Ответить
Сообщениеshchurovm, чтобы он в принципе был серым или чтобы при выборе ячейки становился серым?

Автор - Samaretz
Дата добавления - 29.11.2023 в 14:40
Samaretz Дата: Среда, 29.11.2023, 15:00 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 223
Репутация: 63 ±
Замечаний: 0% ±

Excel 2010; 2013; 2016
shchurovm, так надо (если пользователь встает на ячейку из диапазона F3:F17, и там находится текст "Сумма сделки без НДС", то текст становится серым)?
К сообщению приложен файл: 4415426.xlsm (21.4 Kb)
 
Ответить
Сообщениеshchurovm, так надо (если пользователь встает на ячейку из диапазона F3:F17, и там находится текст "Сумма сделки без НДС", то текст становится серым)?

Автор - Samaretz
Дата добавления - 29.11.2023 в 15:00
shchurovm Дата: Четверг, 30.11.2023, 13:04 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

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

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


Сообщение отредактировал shchurovm - Четверг, 30.11.2023, 13:18
 
Ответить
СообщениеSamaretz, Оу, интересный вариант, сохраню себе!)) Но всё-таки не то, что я хотел..)

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

Автор - shchurovm
Дата добавления - 30.11.2023 в 13:04
Nic70y Дата: Четверг, 30.11.2023, 13:49 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8821
Репутация: 2298 ±
Замечаний: 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]
К сообщению приложен файл: 317.xlsm (20.1 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 30.11.2023, 13:53
 
Ответить
Сообщениеапдэйт добавил проверку >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]

Автор - Nic70y
Дата добавления - 30.11.2023 в 13:49
shchurovm Дата: Среда, 06.12.2023, 12:44 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

2016
Nic70y, Благодарю за решение! Почти как хотел)

Не пойму только проверка на выделение >1 ячейки зачем))
 
Ответить
СообщениеNic70y, Благодарю за решение! Почти как хотел)

Не пойму только проверка на выделение >1 ячейки зачем))

Автор - shchurovm
Дата добавления - 06.12.2023 в 12:44
Nic70y Дата: Среда, 06.12.2023, 12:57 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8821
Репутация: 2298 ±
Замечаний: 0% ±

Excel 2010
если выделить более 1 ячейки
будет ошибка в[vba]
Код
If c = a_ Then
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщениеесли выделить более 1 ячейки
будет ошибка в[vba]
Код
If c = a_ Then
[/vba]

Автор - Nic70y
Дата добавления - 06.12.2023 в 12:57
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!