ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не закрашивается ячейка
20 сообщений из 20, страница 1 из 1
Не закрашивается ячейка
    #39521093
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Здравствуйте!

Из пользовательской функции пытаюсь сделать так, чтобы в выбранной области закрашивал первую ячейку. Но почему то не закрашивается, прерывается. Что тут не так?

Код: vbnet
1.
2.
3.
Function ПользовательскаяФункция1(rn As Range)
    ThisWorkbook.ActiveSheet.Cells(rn.Cells(1, 1).Row, rn.Cells(1, 1).Column).Interior.Color = 65535
End Function
...
Рейтинг: 0 / 0
14.09.2017, 13:44
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521130
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Поставь точку останова и проверь, чему равны rn.Cells(1, 1).Row и rn.Cells(1, 1).Column
...
Рейтинг: 0 / 0
14.09.2017, 14:17
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521159
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Shocker.ProПоставь точку останова и проверь, чему равны rn.Cells(1, 1).Row и rn.Cells(1, 1).ColumnВот
...
Рейтинг: 0 / 0
14.09.2017, 14:36
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521181
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
На скриншоте и в первом сообщении разный код

ferzmikkпрерываетсяа это что значит?
...
Рейтинг: 0 / 0
14.09.2017, 15:02
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521186
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
ferzmikkпрерываетсяа это что значит?
...
Рейтинг: 0 / 0
14.09.2017, 15:11
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521189
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
...
Рейтинг: 0 / 0
14.09.2017, 15:13
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521190
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Shocker.Pro,

Да скорее всего на строке с назначением цвета и прерывается. Т.к. функции пользователя, вызываемые с листа, не могут по умолчанию изменять значения или форматы ячеек. Ни других, ни тех, в которых записаны. Они лишь возвращают в ту ячейку, в которой записаны результат вычисления.
Здесь я приводил обходные пути: Как функцией пользователя изменить значение другой ячейки
но использовать подобный подход не рекомендую, т.к. вполне можно в какой-то момент получить непредсказуемый результат. Хотя сам на ошибки такого подхода не нарывался(однако и использовать в реальных проектах их даже не пробовал).
...
Рейтинг: 0 / 0
14.09.2017, 15:14
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521204
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
The_PristЗдесь я приводил обходные пути: Как функцией пользователя изменить значение другой ячейки Значение то меняет, но цвет не меняет.
...
Рейтинг: 0 / 0
14.09.2017, 15:34
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521211
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А если отложенное изменение на таймер повесить ))
...
Рейтинг: 0 / 0
14.09.2017, 15:39
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521235
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
ferzmikkЗначение то меняетНе путайте результат вычисления функции, который она возвращает в ячейку, в которой записана и изменение статичного значения ячейки. Это разные вещи.
...
Рейтинг: 0 / 0
14.09.2017, 16:17
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521291
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Shocker.ProА если отложенное изменение на таймер повесить ))Не реагирует
...
Рейтинг: 0 / 0
14.09.2017, 17:39
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521296
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Вообще реально как то обойти?
...
Рейтинг: 0 / 0
14.09.2017, 17:48
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521360
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Пользовательская функция может виртуально запустить, например, Worksheet_Change? Если да, то как?
...
Рейтинг: 0 / 0
14.09.2017, 20:42
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521430
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
ferzmikkПользовательская функция может виртуально запустить, например, Worksheet_Change? Если да, то как?

Может, но необходимость таких "обходов" указывает на неверный подход к решению задачи.
...
Рейтинг: 0 / 0
15.09.2017, 01:00
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521502
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
iMrTidy,

Спасибо, работает!
...
Рейтинг: 0 / 0
15.09.2017, 08:23
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521506
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Не могу понять, почему закрашивается только последняя ячейка в выбранном Range. Почему так?
...
Рейтинг: 0 / 0
15.09.2017, 08:34
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521577
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
ferzmikkНе могу понять, почему закрашивается только последняя ячейка в выбранном Range. Почему так?

Не пренебрегайте Option Explicit, поможет сэкономить время и нервы.

Не у всех VBA офиса поддерживает русский язык, и не все на нем говорят. Это значит, что потенциальный преемник должен настроить правильно офис, да еще и по-русски понимать. Аналогично с помощью.

Событие на листе происходит один раз, по сему в обработчик события попадает последняя ячейка цикла.

В чем смысл этого?
Код: vbnet
1.
ИзменитьЦвет (ThisWorkbook.ActiveSheet.Cells(Ячейка.Row, Ячейка.Column))



Так не проще ли?
Код: vbnet
1.
ИзменитьЦвет Ячейка
...
Рейтинг: 0 / 0
15.09.2017, 10:04
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521619
ferzmikk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ferzmikk
Участник
Вот написал, работает. Но тут важно, чтобы удалялись старые заливки. Учитывая, что событие срабатывает один раз.

Как быть? Второй Range создавать, где не будет заливок? Или как то по другому делать?
...
Рейтинг: 0 / 0
15.09.2017, 10:59
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521787
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
ferzmikkВот написал, работает. Но тут важно, чтобы удалялись старые заливки. Учитывая, что событие срабатывает один раз.

Как быть? Второй Range создавать, где не будет заливок? Или как то по другому делать?

Зачем такие извраты?

Код: vbnet
1.
2.
3.
4.
5.
6.
Function ÏîëüçîâàòåëüñêàÿÔóíêöèÿ1(Îáëàñòü As Range)

Öâåò = 65535
ÈçìåíèòüÖâåò Îáëàñòü

End Function



Тогда и доп процедура не нужна.
...
Рейтинг: 0 / 0
15.09.2017, 12:56
| Ответить | Цитировать | Написать  
Не закрашивается ячейка
    #39521788
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
ferzmikk,

Про поддержку русского я предупреждал.

Что значит, чтобы старые заливки удалялись?
...
Рейтинг: 0 / 0
15.09.2017, 12:57
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не закрашивается ячейка
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39521130&tid=2172576]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 280ms
total:  409ms
созд. / загр.: 409ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]