Не закрашивается ячейка / Microsoft Office

2.0.39

Полная версия Контакт Правила FAQ Помощь

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не закрашивается ячейка / 20 сообщений из 20, страница 1 из 1

14.09.2017, 13:44

#39521093

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

Здравствуйте!

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

Код: 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, 14:17

#39521130

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Не закрашивается ячейка

Поставь точку останова и проверь, чему равны rn.Cells(1, 1).Row и rn.Cells(1, 1).Column

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 14:36

#39521159

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

Shocker.ProПоставь точку останова и проверь, чему равны rn.Cells(1, 1).Row и rn.Cells(1, 1).ColumnВот

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 15:02

#39521181

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Не закрашивается ячейка

На скриншоте и в первом сообщении разный код

ferzmikkпрерываетсяа это что значит?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 15:11

#39521186

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

ferzmikkпрерываетсяа это что значит?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 15:13

#39521189

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 15:14

#39521190

The_Prist

Участник

Откуда: www.excel-vba.ru
Сообщения: 2 025
Рейтинг: 0 / 0

Не закрашивается ячейка

Shocker.Pro,

Да скорее всего на строке с назначением цвета и прерывается. Т.к. функции пользователя, вызываемые с листа, не могут по умолчанию изменять значения или форматы ячеек. Ни других, ни тех, в которых записаны. Они лишь возвращают в ту ячейку, в которой записаны результат вычисления.
Здесь я приводил обходные пути: Как функцией пользователя изменить значение другой ячейки
но использовать подобный подход не рекомендую, т.к. вполне можно в какой-то момент получить непредсказуемый результат. Хотя сам на ошибки такого подхода не нарывался(однако и использовать в реальных проектах их даже не пробовал).

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 15:34

#39521204

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

The_PristЗдесь я приводил обходные пути: Как функцией пользователя изменить значение другой ячейки Значение то меняет, но цвет не меняет.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 15:39

#39521211

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Не закрашивается ячейка

А если отложенное изменение на таймер повесить ))

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 16:17

#39521235

The_Prist

Участник

Откуда: www.excel-vba.ru
Сообщения: 2 025
Рейтинг: 0 / 0

Не закрашивается ячейка

ferzmikkЗначение то меняетНе путайте результат вычисления функции, который она возвращает в ячейку, в которой записана и изменение статичного значения ячейки. Это разные вещи.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 17:39

#39521291

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

Shocker.ProА если отложенное изменение на таймер повесить ))Не реагирует

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 17:48

#39521296

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

Вообще реально как то обойти?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.09.2017, 20:42

#39521360

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

Пользовательская функция может виртуально запустить, например, Worksheet_Change? Если да, то как?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.09.2017, 01:00

#39521430

iMrTidy

Участник

Сообщения: 775
Рейтинг: 0 / 0

Не закрашивается ячейка

ferzmikkПользовательская функция может виртуально запустить, например, Worksheet_Change? Если да, то как?

Может, но необходимость таких "обходов" указывает на неверный подход к решению задачи.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.09.2017, 08:23

#39521502

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

iMrTidy,

Спасибо, работает!

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.09.2017, 08:34

#39521506

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

Не могу понять, почему закрашивается только последняя ячейка в выбранном Range. Почему так?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.09.2017, 10:04

#39521577

iMrTidy

Участник

Сообщения: 775
Рейтинг: 0 / 0

Не закрашивается ячейка

ferzmikkНе могу понять, почему закрашивается только последняя ячейка в выбранном Range. Почему так?

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

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

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

В чем смысл этого?

Код: vbnet

ИзменитьЦвет (ThisWorkbook.ActiveSheet.Cells(Ячейка.Row, Ячейка.Column))

Так не проще ли?

Код: vbnet

ИзменитьЦвет Ячейка

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.09.2017, 10:59

#39521619

ferzmikk

Участник

Сообщения: 2 211
Рейтинг: 0 / 0

Не закрашивается ячейка

Вот написал, работает. Но тут важно, чтобы удалялись старые заливки. Учитывая, что событие срабатывает один раз.

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

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.09.2017, 12:56

#39521787

iMrTidy

Участник

Сообщения: 775
Рейтинг: 0 / 0

Не закрашивается ячейка

ferzmikkВот написал, работает. Но тут важно, чтобы удалялись старые заливки. Учитывая, что событие срабатывает один раз.

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

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

Код: vbnet

1.
2.
3.
4.
5.
6.

Function &#207;&#238;&#235;&#252;&#231;&#238;&#226;&#224;&#242;&#229;&#235;&#252;&#241;&#234;&#224;&#255;&#212;&#243;&#237;&#234;&#246;&#232;&#255;1(&#206;&#225;&#235;&#224;&#241;&#242;&#252; As Range)

&#214;&#226;&#229;&#242; = 65535
&#200;&#231;&#236;&#229;&#237;&#232;&#242;&#252;&#214;&#226;&#229;&#242; &#206;&#225;&#235;&#224;&#241;&#242;&#252;

End Function

Тогда и доп процедура не нужна.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

15.09.2017, 12:57

#39521788

iMrTidy

Участник

Сообщения: 775
Рейтинг: 0 / 0

Не закрашивается ячейка

ferzmikk,

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

Что значит, чтобы старые заливки удалялись?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&tablet=1&tid=2172576]:	0ms
get settings:	12ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	28ms
get topic data:	13ms
get forum data:	3ms
get page messages:	54ms
get tp. blocked users:	2ms
others:	279ms

total:	410ms