получить смещение относительно выделенной ячейки - Мир MS Excel

Регистрация

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

= Мир MS Excel/получить смещение относительно выделенной ячейки - Мир MS Excel

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

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

получить смещение относительно выделенной ячейки (или отслеживание строки, выделяемой текущим положением)

получить смещение относительно выделенной ячейки

карандаш

Дата: Вторник, 22.01.2013, 21:41 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

есть диапазон строк, для которого должен работать макрос
(либо диапазон строк и столбцов, либо только строк и один столбец - зависит от сложности/возможности реализации)

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

на примере:
есть список фамилий (ячеек) в столбик (которые и определяют диапазон строк)
"кликаем" на одну из них (или любую на строке)
в целевой ячейке получаем номер строки, а ячейка с фамилией временно меняет фон

ячейка, куда должен попадать ответ от макроса, выделена красным шрифтом в прилагаемом примере

как задать ограничения макросу по столбцам? т.е. чтобы на выделение реагировали ячейки только отпределённого диапазона столбцов?

p.s. необходим только один клик. Т.е. сам факт выделения ячейки без дополнительного клика по какой-либо кнопке с назначенным макросом

из подобных тем нашёл только одну
http://www.excelworld.ru/forum/2-1691-1#18759
но не понял, как модифицировать то решение под эту задачу

есть диапазон строк, для которого должен работать макрос
(либо диапазон строк и столбцов, либо только строк и один столбец - зависит от сложности/возможности реализации)

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

на примере:
есть список фамилий (ячеек) в столбик (которые и определяют диапазон строк)
"кликаем" на одну из них (или любую на строке)
в целевой ячейке получаем номер строки, а ячейка с фамилией временно меняет фон

ячейка, куда должен попадать ответ от макроса, выделена красным шрифтом в прилагаемом примере

как задать ограничения макросу по столбцам? т.е. чтобы на выделение реагировали ячейки только отпределённого диапазона столбцов?

p.s. необходим только один клик. Т.е. сам факт выделения ячейки без дополнительного клика по какой-либо кнопке с назначенным макросом

из подобных тем нашёл только одну
http://www.excelworld.ru/forum/2-1691-1#18759
но не понял, как модифицировать то решение под эту задачукарандаш

К сообщению приложен файл: 2745605.xlsx (40.4 Kb)

Ответить

Сообщениеесть диапазон строк, для которого должен работать макрос
(либо диапазон строк и столбцов, либо только строк и один столбец - зависит от сложности/возможности реализации)

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

на примере:
есть список фамилий (ячеек) в столбик (которые и определяют диапазон строк)
"кликаем" на одну из них (или любую на строке)
в целевой ячейке получаем номер строки, а ячейка с фамилией временно меняет фон

ячейка, куда должен попадать ответ от макроса, выделена красным шрифтом в прилагаемом примере

как задать ограничения макросу по столбцам? т.е. чтобы на выделение реагировали ячейки только отпределённого диапазона столбцов?

p.s. необходим только один клик. Т.е. сам факт выделения ячейки без дополнительного клика по какой-либо кнопке с назначенным макросом

из подобных тем нашёл только одну
http://www.excelworld.ru/forum/2-1691-1#18759
но не понял, как модифицировать то решение под эту задачу

Автор - карандаш
Дата добавления - 22.01.2013 в 21:41

Дата: Среда, 23.01.2013, 00:13 | Сообщение № 2

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("B1:C24")) Is Nothing Then
         Application.EnableEvents = False
         Range("C1:C24").Interior.ColorIndex = xlNone
         Range("R30") = Cells(Target.Row, 2)
         Cells(Target.Row, 3).Interior.Color = vbRed
         Application.EnableEvents = True
     End If
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

карандаш

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

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

RAN, спасибо
вставил на лист
если листов много (12 шт., помесячно), но одинаковых, то надо вставлять на каждый лист?

он стирает фон всех ячеек
а можно, чтобы фон сохранялся, у нужной ячейки изменялся (может как-то через условное форматирование это возможно, через условие)?

в принципе, можно хранить "исходные" цвета в ячейке напротив. Например, в столбце А. Брать от туда.
какой командой можно это сделать?

Как можно сделать, чтобы все цвета ячеек выбранной строки сохранялись в соответствующих ячейках, например, 2-ой строки. Затем из каждого цвета вычиталось 10%, чтобы повысить конрастность и уменьшить яркость. Так мы выделим всю строку диапазона, на которой стоим.
при "уходе" со строки, она восстанавливала бы свои исходные цвета из 2-ой строки.
(я расширил в вашем примере диапазон столбцов с B:C до B:Y)

Сообщение отредактировал карандаш - Среда, 23.01.2013, 17:19

Ответить

карандаш

Дата: Среда, 23.01.2013, 19:52 | Сообщение № 4

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

RAN, попробовал скорректировать код - не получилось.

давайте примем начальными условиями, что цвет ячейки слева равен цвету ячейки ФИО.

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

(заодно и ячейку "R30" можно подкрасить в цвет соседней с "целевой" ячейки. Тоже не получилось сделать самостоятельно.)

может кто из гуру поможет, если RAN'a пока нет?

Сообщение отредактировал карандаш - Среда, 23.01.2013, 19:53

Ответить

Дата: Среда, 23.01.2013, 20:38 | Сообщение № 5

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

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

Сообщений: 5660

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

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

2010

~~Range("C1:C24").Interior.ColorIndex = xlNone~~
[vba]

Код

Range("C1:C24").Interior.ColorIndex = Range("B1").Interior.ColorIndex

[/vba]

Если зебра - то не сработает. smile

smile

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 23.01.2013, 20:40

Ответить

карандаш

Дата: Среда, 23.01.2013, 20:53 | Сообщение № 6

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

RAN,
там несколько цветов
пять ячеек - один цвет, другие 6 - второй, третья группа из 4 - третий цвет.
Хотелось бы независимости )))

а циклом как-нить льзя?

Ответить

карандаш

Дата: Среда, 23.01.2013, 22:15 | Сообщение № 7

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

Попытался вставить
[vba]

Код

Range("S30").Interior.ColorIndex = Range(Target.Row, 2).Interior.ColorIndex

[/vba]
[admin]Для VBA используйте теги "Код VBA", а не "Формула" [/admin]ругается на выход из диапазона

какая ему разница?

2. Почему после ошибки выполнение прекращается и начинается только после закрытия файла и нового открытия?

Сообщение отредактировал карандаш - Среда, 23.01.2013, 22:30

Ответить

Дата: Среда, 23.01.2013, 22:26 | Сообщение № 8

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Range("S30").Interior.ColorIndex = Cells(Target.Row, 2).Interior.ColorIndex

[/vba]
или так (цвета не врут)
[vba]

Код

Range("S30").Interior.Color = Cells(Target.Row, 2).Interior.Color

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

карандаш

Дата: Среда, 23.01.2013, 22:31 | Сообщение № 9

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

RAN,
ААААА!!!!!
работает ))))))))))))))

Сообщение отредактировал карандаш - Среда, 23.01.2013, 22:34

Ответить

карандаш

Дата: Среда, 23.01.2013, 22:44 | Сообщение № 10

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

но фамилии так и не удается раскрасить красками из соседних ячеек

*** прим. что можно сделать, чтобы не закрывать файл и не открывать его заново после ошибки программы в VB?
программа перестает работать
впадает в кому или ступор

так хоть тупым перебором и методом научного тыка можно как-то нащупать решение

Сообщение отредактировал карандаш - Среда, 23.01.2013, 22:45

Ответить

Дата: Среда, 23.01.2013, 22:48 | Сообщение № 11

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

  Sub WW()
         Application.EnableEvents = True
   End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

карандаш

Дата: Среда, 23.01.2013, 22:52 | Сообщение № 12

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

RAN,
у меня есть такая ~~буква~~ строчка

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("B1:AH24")) Is Nothing Then
         Application.EnableEvents = False
         Range("C1:C24").Interior.ColorIndex = Range("Â1:Â24").Interior.ColorIndex
         Range("R30") = Cells(Target.Row, 2)
         'Cells(Target.Row, 3).Interior.Color = vbRed
         Range("S30").Interior.Color = Cells(Target.Row, 3).Interior.Color
         Application.EnableEvents = True
     End If
End Sub

[/vba]

Ответить

Дата: Среда, 23.01.2013, 22:54 | Сообщение № 13

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

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

Сообщений: 5660

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

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

2010

Цитата (карандаш)

*** прим. что можно сделать, чтобы не закрывать файл и не открывать его заново после ошибки программы в VB?
программа перестает работать
впадает в кому или ступор

Кто спрашивал?
Я ответил.
Причем тут

Цитата (карандаш)

у меня есть такая буква строчка

Быть или не быть, вот в чем загвоздка!

Ответить

карандаш

Дата: Среда, 23.01.2013, 22:56 | Сообщение № 14

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

карандаш,

не понял

у кого глюк?

у меня строка в окне VB
Range("C1:C24").Interior.ColorIndex = Range("Â1:Â24").Interior.ColorIndex

отображается не А с тильдами, а как В

...может в этом ошибка?

Ответить

Дата: Среда, 23.01.2013, 23:02 | Сообщение № 15

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

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

Сообщений: 5660

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

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

2010

Ээээ, немного не понял.
Найти в панели VBA кныпочку Reset, и нажать.
А это
Range("C1:C24").Interior.ColorIndex = Range("Â1:Â24").Interior.ColorIndex
не работало, не работает, и работать не будет! smile

smile

PS Правда, без выполнения макроса WW тоже не будет работать дальше.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 23.01.2013, 23:04

Ответить

карандаш

Дата: Среда, 23.01.2013, 23:08 | Сообщение № 16

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

RAN,
кнопку ресет нажимал - не помогает
макрос сейчас пропишу и заведу под него большую красную кнопку

но...

цикл можно как-то изобразить? ведь диапазон известен
просто тупо последовательно перекопировать цвета закраски с ячеек одного столбца на ячейки другого
подскажите, как правильно сделать, чтобы работало?

Ответить

карандаш

Дата: Четверг, 24.01.2013, 07:28 | Сообщение № 17

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

Очищаю постановку заключительной части задачи от шелухи

Имеем работающий код:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Cells.Count > 1 Then Exit Sub                    ' проверяем, что фокус захватил единичную ячеку, а не диапазон
        If Not Intersect(Target, Range("B5:AH24")) Is Nothing Then ' проверяем нахождение фокуса в "целевом" диапазоне
            Application.EnableEvents = False
            ' Range("C5:C24").Interior.Color = Range("A5:A24").Interior.Color  ' восстанавливаем цвета фона ячеек в третьей колонке путем копирования цвета из первой колонки поячеясто
            Cells(Target.Row, 3).Interior.Color = vbRed                    ' портим/подкрашиваем "целевую" ячейку в третьем столбце "целевой" строки
            Range("R30") = Cells(Target.Row, 2)                    ' копируем содержимое "целевой" ячеки в "индикаторную" ячейку вне диапазона
            Range("S30").Interior.Color = Cells(Target.Row, 3).Interior.Color    ' копируем цвет фона "целевой" ячеки в "индикаторную" ячейку - типа отображается не только содержимое, но формат
            Application.EnableEvents = True
        End If
End Sub

[/vba]
который позволяет видеть, в какой строке мы находимся (данных/столбцов много, поэтому кликая на ячейку в диапазоне мы можем видеть, кому именно принадлежат данные)
в колонке 2 находятся ФИО

не получается "восстановить" цвет фона
нужен цикл переноса цветов закраски из нулевой колонки (которая фактически служит просто хранилищем цветов для ячеек ФИО) во вторую.
цветом фона ФИО выделяются группы принадлежности ФИО

Очищаю постановку заключительной части задачи от шелухи

Имеем работающий код:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Cells.Count > 1 Then Exit Sub                    ' проверяем, что фокус захватил единичную ячеку, а не диапазон
        If Not Intersect(Target, Range("B5:AH24")) Is Nothing Then ' проверяем нахождение фокуса в "целевом" диапазоне
            Application.EnableEvents = False
            ' Range("C5:C24").Interior.Color = Range("A5:A24").Interior.Color  ' восстанавливаем цвета фона ячеек в третьей колонке путем копирования цвета из первой колонки поячеясто
            Cells(Target.Row, 3).Interior.Color = vbRed                    ' портим/подкрашиваем "целевую" ячейку в третьем столбце "целевой" строки
            Range("R30") = Cells(Target.Row, 2)                    ' копируем содержимое "целевой" ячеки в "индикаторную" ячейку вне диапазона
            Range("S30").Interior.Color = Cells(Target.Row, 3).Interior.Color    ' копируем цвет фона "целевой" ячеки в "индикаторную" ячейку - типа отображается не только содержимое, но формат
            Application.EnableEvents = True
        End If
End Sub

[/vba]
который позволяет видеть, в какой строке мы находимся (данных/столбцов много, поэтому кликая на ячейку в диапазоне мы можем видеть, кому именно принадлежат данные)
в колонке 2 находятся ФИО

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

Сообщение отредактировал карандаш - Четверг, 24.01.2013, 07:30

Ответить

СообщениеОчищаю постановку заключительной части задачи от шелухи

Имеем работающий код:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Cells.Count > 1 Then Exit Sub                    ' проверяем, что фокус захватил единичную ячеку, а не диапазон
        If Not Intersect(Target, Range("B5:AH24")) Is Nothing Then ' проверяем нахождение фокуса в "целевом" диапазоне
            Application.EnableEvents = False
            ' Range("C5:C24").Interior.Color = Range("A5:A24").Interior.Color  ' восстанавливаем цвета фона ячеек в третьей колонке путем копирования цвета из первой колонки поячеясто
            Cells(Target.Row, 3).Interior.Color = vbRed                    ' портим/подкрашиваем "целевую" ячейку в третьем столбце "целевой" строки
            Range("R30") = Cells(Target.Row, 2)                    ' копируем содержимое "целевой" ячеки в "индикаторную" ячейку вне диапазона
            Range("S30").Interior.Color = Cells(Target.Row, 3).Interior.Color    ' копируем цвет фона "целевой" ячеки в "индикаторную" ячейку - типа отображается не только содержимое, но формат
            Application.EnableEvents = True
        End If
End Sub

[/vba]
который позволяет видеть, в какой строке мы находимся (данных/столбцов много, поэтому кликая на ячейку в диапазоне мы можем видеть, кому именно принадлежат данные)
в колонке 2 находятся ФИО

не получается "восстановить" цвет фона
нужен цикл переноса цветов закраски из нулевой колонки (которая фактически служит просто хранилищем цветов для ячеек ФИО) во вторую.
цветом фона ФИО выделяются группы принадлежности ФИО

Автор - карандаш
Дата добавления - 24.01.2013 в 07:28

Дата: Четверг, 24.01.2013, 09:28 | Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А что, если немного иначе подойти - вообще не убивать исходный цвет, а перекрашивать его УФом?
В общем, посмотрите в файлике, может, подойдет.
Да, сразу скажу, что условия задачи я не очень хорошо понял и, поэтому, может что-то и не совсем так сделал.

В двух словах код ставит пробел в столбце А той строки, которая выделена. Все остальное делает условное форматирование. В нем можно менять раскраску и диапазон для раскраски

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

карандаш

Дата: Четверг, 24.01.2013, 12:53 | Сообщение № 19

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

_Boroda_,

ахренеть !!! wacko

wacko

это практически то, что нужно!
точнее, то что нужно
"практически" - уже придирка

досадно, что непонятно, от куда берётся красный цвет выделения
и вообще непонятно как это ЧУДО из двух строк работает

хотелось бы его заменить (образец брать из А1, например
просто непонятно каким лучше выделять
скорее всего белым, наверное, т.к. вся таблица цветная
в принципе, и темнокрасный тоже хорошо, но тогда надо текст белым делать, иначе плохо черные буквы на красном видны

Цитата (_Boroda_)

условия задачи я не очень хорошо понял

файл с макетом работающей таблицы прилагаю

p.s. а можно "подсвечивать" все ячейки строки этого диапазона?

p.s. где прочитать почему и как такой компактный код работает? или можно в двух словах?

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

Сообщение отредактировал карандаш - Четверг, 24.01.2013, 12:56

Ответить

карандаш

Дата: Четверг, 24.01.2013, 13:32 | Сообщение № 20

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

Ранг: Обитатель

Сообщений: 329

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

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

2010

_Boroda_,
так не честно!
читер!!! )))

спасибо большое!
теперь можно и всю строку подсветить
здОрово!

Ответить

получить смещение относительно выделенной ячейки (или отслеживание строки, выделяемой текущим положением)

Страница 1 из 1
1

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