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

Вход

Регистрация

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

 

= Мир MS Excel/Всплывающие подсказки в активной ячейке (VBA) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Всплывающие подсказки в активной ячейке (VBA) (Формулы/Formulas)
Всплывающие подсказки в активной ячейке (VBA)
Andrek2000 Дата: Пятница, 15.03.2019, 14:13 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем привет.

Помогите разобраться (есть похожая тема, но знаний не хватает, чтобы адаптировать под себя - тут)

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

Заранее спасибо!

PS Если возможно, то помогите реализовать оба метода (при щелчке на ячейку, и при наведении на неё). Думаю, многим будет полезно, а я по результатам выберу для себя, как удобнее будет в работе.
К сообщению приложен файл: 7492857.xlsx(9.6 Kb)


Сообщение отредактировал Andrek2000 - Пятница, 15.03.2019, 14:14
 
Ответить
СообщениеВсем привет.

Помогите разобраться (есть похожая тема, но знаний не хватает, чтобы адаптировать под себя - тут)

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

Заранее спасибо!

PS Если возможно, то помогите реализовать оба метода (при щелчке на ячейку, и при наведении на неё). Думаю, многим будет полезно, а я по результатам выберу для себя, как удобнее будет в работе.

Автор - Andrek2000
Дата добавления - 15.03.2019 в 14:13
bmv98rus Дата: Пятница, 15.03.2019, 15:48 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2146
Репутация: 362 ±
Замечаний: 20% ±

Excel 2013/2016
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Cells(Target.Row, 2) <> "" And Cells(2, Target.Column) <> "" Then
        With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                :=xlBetween
            .InputMessage = Cells(2, Target.Column).Text
        End With
    End If
End Sub
[/vba]
Единственный минус, в том, что не удаляется проверка данных , и чем больше кликаем тем больше файл растет, можно повыпендриваться и подчищать за собой. Ну и диапазон, где надо обрабатывать тоже определяется на скору руку по заголовкам таблицы.
К сообщению приложен файл: Copy_of_724.xlsm(20.3 Kb)


Замечательный медведь, процентов на 20.

Сообщение отредактировал bmv98rus - Пятница, 15.03.2019, 16:01
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Cells(Target.Row, 2) <> "" And Cells(2, Target.Column) <> "" Then
        With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                :=xlBetween
            .InputMessage = Cells(2, Target.Column).Text
        End With
    End If
End Sub
[/vba]
Единственный минус, в том, что не удаляется проверка данных , и чем больше кликаем тем больше файл растет, можно повыпендриваться и подчищать за собой. Ну и диапазон, где надо обрабатывать тоже определяется на скору руку по заголовкам таблицы.

Автор - bmv98rus
Дата добавления - 15.03.2019 в 15:48
RAN Дата: Пятница, 15.03.2019, 19:44 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5049
Репутация: 1004 ±
Замечаний: 0% ±

2010
Единственный минус

Миш, что-то ты скромничаешь.

А вообще-то, в Excel, специально для подобных хотелок, существует закрепление строк.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Единственный минус

Миш, что-то ты скромничаешь.

А вообще-то, в Excel, специально для подобных хотелок, существует закрепление строк.

Автор - RAN
Дата добавления - 15.03.2019 в 19:44
bmv98rus Дата: Пятница, 15.03.2019, 20:06 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2146
Репутация: 362 ±
Замечаний: 20% ±

Excel 2013/2016
Миш, что-то ты скромничаешь.

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


Замечательный медведь, процентов на 20.
 
Ответить
Сообщение
Миш, что-то ты скромничаешь.

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

Автор - bmv98rus
Дата добавления - 15.03.2019 в 20:06
Andrek2000 Дата: Среда, 20.03.2019, 08:46 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, спасибо большое - то, что надо! Единственное, не могу понять, как бы мне четко задать область, где должны появляться всплывающие подсказки, и откуда берутся данные для этих подсказок
 
Ответить
Сообщениеbmv98rus, спасибо большое - то, что надо! Единственное, не могу понять, как бы мне четко задать область, где должны появляться всплывающие подсказки, и откуда берутся данные для этих подсказок

Автор - Andrek2000
Дата добавления - 20.03.2019 в 08:46
bmv98rus Дата: Среда, 20.03.2019, 13:18 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2146
Репутация: 362 ±
Замечаний: 20% ±

Excel 2013/2016
как бы мне четко задать область, где должны появляться всплывающие подсказки,

Сейчас это определеяется
[vba]
Код
If Cells(Target.Row, 2) <> "" And Cells(2, Target.Column) <> "" Then
[/vba] то есть если заголовки таблицы заполнены, то область обрабатываем
значения берутся из строки 2 и столбца ячейки
[vba]
Код
Cells(2, Target.Column).Text
[/vba]
Вариантов использования в боевом файле множество, от заданной области в которой это должно работать, до ...


Замечательный медведь, процентов на 20.
 
Ответить
Сообщение
как бы мне четко задать область, где должны появляться всплывающие подсказки,

Сейчас это определеяется
[vba]
Код
If Cells(Target.Row, 2) <> "" And Cells(2, Target.Column) <> "" Then
[/vba] то есть если заголовки таблицы заполнены, то область обрабатываем
значения берутся из строки 2 и столбца ячейки
[vba]
Код
Cells(2, Target.Column).Text
[/vba]
Вариантов использования в боевом файле множество, от заданной области в которой это должно работать, до ...

Автор - bmv98rus
Дата добавления - 20.03.2019 в 13:18
Andrek2000 Дата: Четверг, 21.03.2019, 14:20 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, огонь!!! Буду пробовать на боевом файле. Если будут вопросы - буду обращаться.
Многократное спасибо!
 
Ответить
Сообщениеbmv98rus, огонь!!! Буду пробовать на боевом файле. Если будут вопросы - буду обращаться.
Многократное спасибо!

Автор - Andrek2000
Дата добавления - 21.03.2019 в 14:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Всплывающие подсказки в активной ячейке (VBA) (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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