Вызов диалогового окна выбора цвета (Excel)

@Gepar · Регистрация: 01.07.2009

Студворк — интернет-сервис помощи студентам

Как вызвать диалоговое окно выбора цвета и как получить из него значение для закраски ячейки? Или оно и так возвращает 8 битное значение в границах 0-56? Я ведь, как оказалось, не могу покрасить ячейку вот так

Visual Basic
1
Cells.Interior.ColorIndex = число

цветом, код которого выходит за граници 0 - 56.

@ymnuhj · 06.04.2012, 18:03

А как эту процедуру можно переделать в функцию чтобы возвращала значение Color?

К примеру чтоб потом использовать так:
ActiveCell.Interior.Color=QWERT

@Alex77755 · 06.04.2012, 18:58

Поменять слово SUB на FUNCTION

Добавлено через 4 минуты

Visual Basic
1
2
3
Function QWERT()
QWERT = ActiveCell.Interior.Color
End FUNCTION

@ymnuhj · 06.04.2012, 19:06

Извеняюсь, не коректно задал вопрос.

Нужно не считать значение цвета из ячейки а записать выбранное в диалоговом окне. (См. код на предыдущей странице)

Тоесть нужно чтобы функция возвращала значение Color которое затем подставлялось бы в процедуру закрашивания.

@Alex77755 · 06.04.2012, 19:17

Ну так Апострофф же дал код.
Проверил в 2010 работает.
Именно в вункции определяется. В процедуре используется
Если не так - уточняй вопрос

@ymnuhj · 06.04.2012, 19:20

Если взять этот код и просто поменять sub на function то он будет закрашивать не выбранным цветом а черным.

@Alex77755 · 06.04.2012, 19:23

вот в том варианкте, что дал Апострофф ничего менять не надо

Добавлено через 1 минуту
запускать Sub ColorTime()
Она вызовет функцию Private Function ShowColor
Функция вернёт номер выбранного цвета

@ymnuhj · 06.04.2012, 19:29

Код от апострофа не работает на 64битном компе, а ваш код работает и на 32 и на 64 битной. А мне нужен именно универсальный. Поэтому нужно как то использовать его.

Снимок ошибки прилагается

@Alex77755 · 06.04.2012, 19:32

Где-то попадалось.
Надо копать в сторону декларирования функций.
Там немного по другому.
У меня 32 поэтому не стал углубляться в вопрос: пока нет желания ни 7 ставить ни 64 бита

@Alex77755 · 06.04.2012, 20:53

попробуй такой вариант

@ymnuhj · 06.04.2012, 21:20

там всплывает ошибка, что на снимке

Ваша процедура вычисляет значения R,G,B. Думал переименовать ее в функцию и добавить это:
QWERT = "RGB(" & R & "," & G & "," & B & ")"
Но из за чего то не работает

@Alex77755 · 06.04.2012, 21:32

там всплывает ошибка

Там это где?
В последнем варианте не может быть такой ошибке как на картинке: там нет деклараций.
и у меня в 2010 работает

Не по теме:

ИМХО: не гонялись бы за новыми(читай сырыми) версиями винды - не зналибы проблем на ровном месте. В проверенной 32-битной Хрюше работает без проблем

@ymnuhj · 06.04.2012, 21:36

Снимок забыл прикрепить

@Alex77755 · 06.04.2012, 21:38

Ты взял мой файл или только код?
На моём листе лежит контрол

@ymnuhj · 06.04.2012, 21:44

Если я не ослеп в конец то все что на нем есть это синяя ячейка. Даже если он есть он же просто вызывает подпрограмму, значит он не влияет на ход выполнения. Или там как то подругому?

@Alex77755 · 06.04.2012, 21:45

Разработчик-режим конструктора включи.
На листе появится контрол

@ymnuhj · 06.04.2012, 21:52

Хм, действительно. Сори, в первый раз такое вижу. И не пойму что с ним делать. Как процедуру запустить то?

@Alex77755 · 06.04.2012, 21:54

Alt+F8
Увидишь процедуру

@Alex77755 · 06.04.2012, 21:58

Ещё когда контрол виден посмотри его свойства.
Возможно он как-то по другому называется. У меня CommonDialog1.
Но вдруг твоя система решила его назвать иначе?.
Тогда процедура его не найдёт. Надо бадет в процедуре поменять имя. Или в свойствах
Другой вариант - сделать свой диалог. Примерно так:

@ymnuhj · 06.04.2012, 22:05

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

@Alex77755 · 06.04.2012, 23:12

Когда видишь контрол его свойства можешь просмотреть?

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 18:03
	А как эту процедуру можно переделать в функцию чтобы возвращала значение Color? К примеру чтоб потом использовать так: ActiveCell.Interior.Color=QWERT 0

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 19:06
	Извеняюсь, не коректно задал вопрос. Нужно не считать значение цвета из ячейки а записать выбранное в диалоговом окне. (См. код на предыдущей странице) Тоесть нужно чтобы функция возвращала значение Color которое затем подставлялось бы в процедуру закрашивания. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2012, 19:17
	Ну так Апострофф же дал код. Проверил в 2010 работает. Именно в вункции определяется. В процедуре используется Если не так - уточняй вопрос 0

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 19:20
	Если взять этот код и просто поменять sub на function то он будет закрашивать не выбранным цветом а черным. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2012, 19:23
	вот в том варианкте, что дал Апострофф ничего менять не надо Добавлено через 1 минуту запускать Sub ColorTime() Она вызовет функцию Private Function ShowColor Функция вернёт номер выбранного цвета 1

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 19:29
	Код от апострофа не работает на 64битном компе, а ваш код работает и на 32 и на 64 битной. А мне нужен именно универсальный. Поэтому нужно как то использовать его. Снимок ошибки прилагается Миниатюры 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2012, 19:32
	Сообщение было отмечено как решение Решение Где-то попадалось. Надо копать в сторону декларирования функций. Там немного по другому. У меня 32 поэтому не стал углубляться в вопрос: пока нет желания ни 7 ставить ни 64 бита 1

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 21:20
	там всплывает ошибка, что на снимке Ваша процедура вычисляет значения R,G,B. Думал переименовать ее в функцию и добавить это: QWERT = "RGB(" & R & "," & G & "," & B & ")" Но из за чего то не работает 0

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 21:36
	Снимок забыл прикрепить Миниатюры 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2012, 21:38
	Ты взял мой файл или только код? На моём листе лежит контрол 0

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 21:44
	Если я не ослеп в конец то все что на нем есть это синяя ячейка. Даже если он есть он же просто вызывает подпрограмму, значит он не влияет на ход выполнения. Или там как то подругому? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2012, 21:45
	Разработчик-режим конструктора включи. На листе появится контрол 0

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 21:52
	Хм, действительно. Сори, в первый раз такое вижу. И не пойму что с ним делать. Как процедуру запустить то? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2012, 21:54
	Alt+F8 Увидишь процедуру 0

@ymnuhj 2 / 2 / 0 Регистрация: 26.03.2012 Сообщений: 33
	06.04.2012, 22:05
	Да в последнем файле все работает. Как запасной вариант сгодится конечно, спасибо. Но вертеть ползунки это совсем неудобно. Нужно диалоговое окно с выбором из палитры, как в вашем примере на второй странице. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	06.04.2012, 23:12
	Когда видишь контрол его свойства можешь просмотреть? Миниатюры 0

Вызов диалогового окна выбора цвета (Excel)

Решение