powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Именить цвет CommandButton
25 сообщений из 53, страница 2 из 3
Именить цвет CommandButton
    #37793768
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВладимирВВроде бы все работает, но ничего, что в этот диапазон попадают ячейки, не участвующие в процессе B1-D1 и F1-H1 ?в принципе ничего, просто будет лишний пересчет и перекраска кнопки при изменений этих ячеек
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37793770
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо, вы мне очень помогли.
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37793775
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВладимирВ,
Код: vbnet
1.
If Not Intersect(Target, Range("A1,E1,I1")) Is Nothing Then
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37793780
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А так?
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37793791
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо!
Еще один вопросик.
Я прикрутил это хозяйство к своему файлу.
Вместо стирания ячеек поставил обнуление ( так надо ).
И вот что выяснил: если в ячейки вводить данные руками, то все работает, а одна из ячеек управляется стрелками, при этом кнопка цвет не меняет, как быть?
Заранее спасибо.
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794051
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВладимирВ,
заработало так (сам в шоке... :))

Код: vbnet
1.
2.
3.
Private Sub SpinButton1_Change()
Worksheet_Change ([I1])
End Sub
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794215
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Прикрутил эту конструкцию к своему файлу - заработало. Правда в реальном файле у меня кнопок 6, а со временем будет больше, и этот кусок кода приходится многократно повторять, я подозреваю, что есть более красивое решение. Но в любом случае это работает и я это использую.
Я добавил нужные мне кнопки, и заметил, что не на все стрелки программа срабатывает.
Никак не могу понять где это задано. Подскажите плиз.
Файл прилагаю.
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794219
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Чета приложенный файл не открывается, видать из за русских букв или пробела.
Переименовал - выложил заново
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794291
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВладимирВ,

Не могу проверить - нет 2007/10, а конвертер элементы не конвертит :( (т.е. они есть, но не работают).
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794294
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так нашёл - у Вас ведь testrange не все ячейки включает!
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794298
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну вот я в коде и не нашел где это задается, хотя сам уже до этого допер!
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794420
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВладимирВ, там у вас команда что ли работает?
Как у Райкина - один testrange пишет, другой кнопки ставит - а за результат никто не отвечает :)
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794424
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да нет, один я ...
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794554
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TestRange в файле задал я, причем "просто ручками" - ну, показалось мне, что если человек VBA мало знает, то уж именованные диапазоны представляет. Ибо кодом-то воспользовался - значит (имхо) пытался разобраться, как он работает... Теперь я понял, что ТС просто копипастит, не думая Надо было прикрутить в ко д еще и задание TestRange, поленился я
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794566
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за подсказку, поду разбираться с именованными диапазонами.
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37794697
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВладимирВСпасибо за подсказку, поду разбираться с именованными диапазонами.А чего разбираться-то? 12552924
Пишем, например, в начало CommandButton1_Click() :
Код: vbnet
1.
ActiveWorkbook.Names("TestRange").RefersTo = "=" & Range("A1,E1,I1,M1").Address
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37872969
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем добрый день!
Попробовал "прикрутить" полученные знания об изменении цвета кнопки в реальный файл - почему-то никак не хочет менять цвета. Кнопка "Сброс всех" должна изменить цвет на красный, если стрелками "вправо" увеличить значение ячеек, где написано "L=0", S=0" и т.д. При нажатии на эту кнопку указанные ячейки должны обнулиться и она снова должна стать зеленой.
Помогите пожалуйста, я в этом не очень силен.
Файл прилагаю.
Заранее спасибо.
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37872974
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прилагаемый файл
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37873028
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
С третьего раза приложился файл - был очень большой - пришлось уменьшать и архивировать
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37873029
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: ВладимирВ
> Прилагаемый файл

Не делай предварительный просмотр, после указания файла

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37873034
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос> Автор: ВладимирВ
> Прилагаемый файл

Не делай предварительный просмотр, после указания файла
Игорь, эту ошибку давно исправили )
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37873042
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да не, дело вроде не в этом, я потом только заметил, что макс размер файла - 150 кб, пришлось его уменьшать...
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37876231
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спецы-ы-ы-ы...
Где вы-ы-ы-ы-ы?
Ау-у-у-у-у-у....
Жду помощи-и-и-и-и...
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37877466
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВладимирВСпецы-ы-ы-ы...
Где вы-ы-ы-ы-ы? Лето же на дворе... Думаете, нам охота разбираться с таким интерфейсом?? Тем более, что Вам, судя по всему, лениво разобраться самому в десятке строчек кода...
...
Рейтинг: 0 / 0
Именить цвет CommandButton
    #37877578
ВладимирВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да мне не лень, просто я в этом мало что понимаю...
...
Рейтинг: 0 / 0
25 сообщений из 53, страница 2 из 3
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Именить цвет CommandButton
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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