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

Вход

Регистрация

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

 

= Мир MS Excel/Подсветка строк таблицы при наведении мыши на строку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсветка строк таблицы при наведении мыши на строку
Подсветка строк таблицы при наведении мыши на строку
Димон1 Дата: Пятница, 28.02.2014, 12:51 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
подскажите по-та как сделать
а в данной ситуации лучше сделать сам не разберусь -мозгов не хватит
Подсветка строк таблицы при наведении мыши на строку + подсветка последней кликнутой строки.
http://www.tigir.com/highlight_table_rows.htm
К сообщению приложен файл: 0226935.xlsx (50.5 Kb)

только учюсь
 
Ответить
Сообщениеподскажите по-та как сделать
а в данной ситуации лучше сделать сам не разберусь -мозгов не хватит
Подсветка строк таблицы при наведении мыши на строку + подсветка последней кликнутой строки.
http://www.tigir.com/highlight_table_rows.htm
Автор - Димон1
Дата добавления - 28.02.2014 в 12:51
Pelena Дата: Пятница, 28.02.2014, 12:55 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19344
Репутация: 4524 ±
Замечаний: ±

Excel 365 & Mac Excel
Формулы этого точно не умеют.
Перенести тему в раздел ВОПРОСЫ ПО VBA?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФормулы этого точно не умеют.
Перенести тему в раздел ВОПРОСЫ ПО VBA?
Автор - Pelena
Дата добавления - 28.02.2014 в 12:55
Hugo Дата: Пятница, 28.02.2014, 13:00 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3547
Репутация: 771 ±
Замечаний: 0% ±

365
Есть уже готовые надстройки с таким функционалом. Только не помню где... Может кто помнит?

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеЕсть уже готовые надстройки с таким функционалом. Только не помню где... Может кто помнит?
Автор - Hugo
Дата добавления - 28.02.2014 в 13:00
Димон1 Дата: Пятница, 28.02.2014, 13:07 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата Pelena, 28.02.2014 в 12:55, в сообщении № 2
Перенести тему в раздел ВОПРОСЫ ПО VBA?

как перенести тему?

только учюсь
 
Ответить
Сообщение
Цитата Pelena, 28.02.2014 в 12:55, в сообщении № 2
Перенести тему в раздел ВОПРОСЫ ПО VBA?

как перенести тему?
Автор - Димон1
Дата добавления - 28.02.2014 в 13:07
Hugo Дата: Пятница, 28.02.2014, 13:24 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3547
Репутация: 771 ±
Замечаний: 0% ±

365
Перенёс.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеПеренёс.
Автор - Hugo
Дата добавления - 28.02.2014 в 13:24
Димон1 Дата: Пятница, 28.02.2014, 13:26 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата Hugo, 28.02.2014 в 13:24, в сообщении № 5
Перенёс.

Спасибо Теперь ждем помощи в решении

только учюсь
 
Ответить
Сообщение
Цитата Hugo, 28.02.2014 в 13:24, в сообщении № 5
Перенёс.

Спасибо Теперь ждем помощи в решении
Автор - Димон1
Дата добавления - 28.02.2014 в 13:26
Hugo Дата: Пятница, 28.02.2014, 13:29 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3547
Репутация: 771 ±
Замечаний: 0% ±

365
Нашёл пример на одном форуме, чуть подправил.
В модуль книги:

[vba]
Код
Private Sub Workbook_Open()
      NoEvents = Not Sheets(1).CheckBox1.Value
End Sub
[/vba]

В модуль контролируемого (первого в данном случае) листа:

[vba]
Код
Option Explicit

Private Sub CheckBox1_Click()
      NoEvents = Not CheckBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim addr As String
      Dim x As Variant
      Dim rng, c, r, cll As String

      If NoEvents Then Exit Sub
      If Target.Cells.Count > 1 Then Exit Sub
      addr = ActiveCell.Address()
      x = Split(addr, "$")

      c = x(1)
      r = x(2)
      rng = c & ":" & c & "," & r & ":" & r
      Range(rng).Select
      cll = c & r
      Range(cll).Activate
End Sub
[/vba]

В стандартный модуль:

[vba]
Код
Public NoEvents As Boolean
[/vba]

На листе расположен чекбокс, включающий весь механизм.
Будут подсвечиваться строки при изменении выделения ячейки.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНашёл пример на одном форуме, чуть подправил.
В модуль книги:

[vba]
Код
Private Sub Workbook_Open()
      NoEvents = Not Sheets(1).CheckBox1.Value
End Sub
[/vba]

В модуль контролируемого (первого в данном случае) листа:

[vba]
Код
Option Explicit

Private Sub CheckBox1_Click()
      NoEvents = Not CheckBox1.Value
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim addr As String
      Dim x As Variant
      Dim rng, c, r, cll As String

      If NoEvents Then Exit Sub
      If Target.Cells.Count > 1 Then Exit Sub
      addr = ActiveCell.Address()
      x = Split(addr, "$")

      c = x(1)
      r = x(2)
      rng = c & ":" & c & "," & r & ":" & r
      Range(rng).Select
      cll = c & r
      Range(cll).Activate
End Sub
[/vba]

В стандартный модуль:

[vba]
Код
Public NoEvents As Boolean
[/vba]

На листе расположен чекбокс, включающий весь механизм.
Будут подсвечиваться строки при изменении выделения ячейки.
Автор - Hugo
Дата добавления - 28.02.2014 в 13:29
Russel Дата: Пятница, 28.02.2014, 13:29 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1394
Репутация: 320 ±
Замечаний: 0% ±

Excel 2010
Координатное выделение

QIWI 9173973973
 
Ответить
СообщениеКоординатное выделение
Автор - Russel
Дата добавления - 28.02.2014 в 13:29
Stormy Дата: Пятница, 28.02.2014, 13:35 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 361
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Цитата Димон1, 28.02.2014 в 13:07, в сообщении № 4
как перенести тему?

Обратиться к модератору.
Изменить цвет выделенных ячеек, можно так
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static aaa As String
     If Target.Address <> aaa And aaa <> "" Then Range(aaa).Interior.Pattern = xlNone
     Target.Interior.Color = vbYellow
     aaa = Target.Address

End Sub
[/vba]

Место для рекламы.
 
Ответить
Сообщение
Цитата Димон1, 28.02.2014 в 13:07, в сообщении № 4
как перенести тему?

Обратиться к модератору.
Изменить цвет выделенных ячеек, можно так
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static aaa As String
     If Target.Address <> aaa And aaa <> "" Then Range(aaa).Interior.Pattern = xlNone
     Target.Interior.Color = vbYellow
     aaa = Target.Address

End Sub
[/vba]
Автор - Stormy
Дата добавления - 28.02.2014 в 13:35
Димон1 Дата: Пятница, 28.02.2014, 14:26 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 76
Репутация: 1 ±
Замечаний: 0% ±

Excel 2007
Цитата Stormy, 28.02.2014 в 13:35, в сообщении № 9
Изменить цвет выделенных ячеек, можно так

Спасибо за столь оперативную помощь но я трудом представляю куда и как это можно записать или вставит

только учюсь
 
Ответить
Сообщение
Цитата Stormy, 28.02.2014 в 13:35, в сообщении № 9
Изменить цвет выделенных ячеек, можно так

Спасибо за столь оперативную помощь но я трудом представляю куда и как это можно записать или вставит
Автор - Димон1
Дата добавления - 28.02.2014 в 14:26
Stormy Дата: Пятница, 28.02.2014, 15:05 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 361
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Димон1,
В модуль листа.
Alt+F11 , слева дважды кликнуть на лист в котором это будет работать.
Вариант от Hugo,
Тем также только один в модуль книги, дальше уже по описанию

Место для рекламы.
 
Ответить
СообщениеДимон1,
В модуль листа.
Alt+F11 , слева дважды кликнуть на лист в котором это будет работать.
Вариант от Hugo,
Тем также только один в модуль книги, дальше уже по описанию
Автор - Stormy
Дата добавления - 28.02.2014 в 15:05
Pelena Дата: Пятница, 28.02.2014, 15:10 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19344
Репутация: 4524 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Димон1, 28.02.2014 в 14:26, в сообщении № 10
куда и как это можно записать

Почитайте для начала Что такое макросы

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Димон1, 28.02.2014 в 14:26, в сообщении № 10
куда и как это можно записать

Почитайте для начала Что такое макросы
Автор - Pelena
Дата добавления - 28.02.2014 в 15:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсветка строк таблицы при наведении мыши на строку
  • Страница 1 из 1
  • 1
Поиск:

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