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

Вход

Регистрация

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

 

= Мир MS Excel/Окрашивание части строки по активной ячейке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Окрашивание части строки по активной ячейке (Макросы/Sub)
Окрашивание части строки по активной ячейке
Dмитрий Дата: Среда, 17.07.2019, 22:41 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 9 ±
Замечаний: 40% ±

Excel 2010
Добрый день. Решил сделать выделение строки по активной ячейке. Нашел наиболее подходящий вариант. Условное форматирование+код VBA. Переделал под свои нужды. Все работало. Но, когда стал добавлять в код необходимые расчеты выделение стало работать не совсем правильно (по какой-то причине происходит задержка по времени). Правильно работает или выделение, или расчеты. Вместе никак
К сообщению приложен файл: 3862456.xls(37.0 Kb)


Сообщение отредактировал Dмитрий - Четверг, 18.07.2019, 08:36
 
Ответить
СообщениеДобрый день. Решил сделать выделение строки по активной ячейке. Нашел наиболее подходящий вариант. Условное форматирование+код VBA. Переделал под свои нужды. Все работало. Но, когда стал добавлять в код необходимые расчеты выделение стало работать не совсем правильно (по какой-то причине происходит задержка по времени). Правильно работает или выделение, или расчеты. Вместе никак

Автор - Dмитрий
Дата добавления - 17.07.2019 в 22:41
Dмитрий Дата: Четверг, 18.07.2019, 07:25 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 9 ±
Замечаний: 40% ±

Excel 2010
Может есть у кого-нибудь варианты. Многое перепробовал. Но моих познаний явно не достаточно. Не хотелось бы отказываться от этой функции. Заменить тоже не знаю чем
 
Ответить
СообщениеМожет есть у кого-нибудь варианты. Многое перепробовал. Но моих познаний явно не достаточно. Не хотелось бы отказываться от этой функции. Заменить тоже не знаю чем

Автор - Dмитрий
Дата добавления - 18.07.2019 в 07:25
китин Дата: Четверг, 18.07.2019, 08:02 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 5882
Репутация: 914 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Dмитрий, - Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему
[moder]исправлено[/moder]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538


Сообщение отредактировал китин - Четверг, 18.07.2019, 09:20
 
Ответить
СообщениеDмитрий, - Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума, конкретнее обозначьте проблему
[moder]исправлено[/moder]

Автор - китин
Дата добавления - 18.07.2019 в 08:02
_Boroda_ Дата: Четверг, 18.07.2019, 09:20 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15577
Репутация: 6078 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вроде поменяно
Dмитрий, а так попробуйте
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range(Cells(2, 10), Cells(18, 16)), Target) Is Nothing Then
        r = Target.Row
        с = Target.Column
        Range(Cells(1, 20), Cells(1, 32)) = ""
        If Cells(r, с) <> "" Then
        'РАСЧЕТ
        End If
    Else
        Application.Calculate
    End If
End Sub
[/vba]
У меня вроде нормально работает


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВроде поменяно
Dмитрий, а так попробуйте
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range(Cells(2, 10), Cells(18, 16)), Target) Is Nothing Then
        r = Target.Row
        с = Target.Column
        Range(Cells(1, 20), Cells(1, 32)) = ""
        If Cells(r, с) <> "" Then
        'РАСЧЕТ
        End If
    Else
        Application.Calculate
    End If
End Sub
[/vba]
У меня вроде нормально работает

Автор - _Boroda_
Дата добавления - 18.07.2019 в 09:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Окрашивание части строки по активной ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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