ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как отменить Select програмно?
14 сообщений из 14, страница 1 из 1
Как отменить Select програмно?
    #33378288
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
Как отменить Select программно?
Было
Код: plaintext
Range("A1:Q32").Select
после каких то действий надо отменить,как?
...
Рейтинг: 0 / 0
15.11.2005, 10:46:17
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33378369
Фотография funddd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
funddd
Участник
тебе надо вернуть селекшн, который до того был?
...
Рейтинг: 0 / 0
15.11.2005, 11:04:31
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33378403
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
Просто выбранная область остается темной после действий , вот и хотел
чтобы мышкой не кликать на лист!
Но я нашел как, делаю селект одной клетке и все в порядке!
Спасибо, вопрос отменяется, если других решений нет!
...
Рейтинг: 0 / 0
15.11.2005, 11:14:14
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33379993
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Других решений нет и быть не может.
И вообще нестоит использовать Select.
...
Рейтинг: 0 / 0
15.11.2005, 19:04:41
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33380579
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX -- ALEX
Гость
White OwlДругих решений нет и быть не может.
И вообще нестоит использовать Select.
а как можно без использования Select
программно добавить в ячейку EXCEL
фигуру - прямоугольник и установить затем ему
некоторые свойства - шрифт - цвет
??
==============
...
Рейтинг: 0 / 0
16.11.2005, 10:03:18
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33380705
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Ну, выблиндаете.
Программно добавил и обращаешься к нему типа:

Код: plaintext
1.
ActiveSheet.Shapes.AddShape(msoShapeRectangle,  58 . 5 ,  36 . 75 ,  247 . 5 ,  141 . 75 ).Name = "Rectangle 2"
ActiveSheet.Shapes("Rectangle 2").Line.ForeColor.SchemeColor =  12

Никаких селектов! Запрещаю.

А некоторые еще и программы нам продают - лучшие программы, бла-бла-бла...
...
Рейтинг: 0 / 0
16.11.2005, 10:44:49
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33380712
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Это я MX -- ALEX'у
А vallot уже сам нашел верное решение (единственно правильное, заметим) - ему просто не нравилась большая черная область, да я и сам не люблю - некрасиво.
...
Рейтинг: 0 / 0
16.11.2005, 10:48:15
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33380813
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Letter_DА некоторые еще и программы нам продают - лучшие программы, бла-бла-бла...
...
Рейтинг: 0 / 0
16.11.2005, 11:21:02
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33380963
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX -- ALEX
Гость
Letter_DНу, выблиндаете.
Программно добавил и обращаешься к нему типа:

Код: plaintext
1.
ActiveSheet.Shapes.AddShape(msoShapeRectangle,  58 . 5 ,  36 . 75 ,  247 . 5 ,  141 . 75 ).Name = "Rectangle 2"
ActiveSheet.Shapes("Rectangle 2").Line.ForeColor.SchemeColor =  12

Никаких селектов! Запрещаю.

А некоторые еще и программы нам продают - лучшие программы, бла-бла-бла...

в VBA (office-2000) Ваш вариант не проходит - выдает ошибку

приходится крутить:
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50,36,240,140).Select
Set nnnn = Selection
и т д
а у Вас действительно это работает ?
...
Рейтинг: 0 / 0
16.11.2005, 12:03:05
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33381034
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX -- ALEX
Гость
точнее
ошибка не сразу
а при установке свойств созданного без Selection обьeкта
например не дает установить
PrintObject
сам не врубаюсь что за хренотень
...
Рейтинг: 0 / 0
16.11.2005, 12:20:45
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33381086
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
У меня все действительно все работает.
Видно же, что текст в модуле набирался, его разметка :))
Значит - проверялся!!

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

Не в обиду...
...
Рейтинг: 0 / 0
16.11.2005, 12:31:08
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33381192
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX -- ALEX
Гость
Letter_DУ меня все действительно все работает.
Видно же, что текст в модуле набирался, его разметка :))
Значит - проверялся!!

СЗОТ:
Вы уж звиняйте, что я к Вашей рекламе цепляюсь.
Уж больно назойливо продаете, а сами всё время что-то спрашиваете. Здесь же. Некрасиво, нехорошо.
Да и программулину эту (демо) глянул краем глаза - детский интерфейс, стиль написания модулей... молчу.
Может быть она (программа) и работает супер-пупер, но в торговле принято заворачивать в яркую коробку.
Не в обиду...
Спасибо
но представте мою ситуацию -
нашли - случайно - хороший способ организации интерфейса через EXCEL
процесс разработки ускорился работает все четко
и многие кому это бы очень пригодилось не подозревают
и поговорить не с кем с разработчиками - никто так не делает
дело не в продаже - коды открыты - и коробки яркой нет
хотелось бы сподвижников обнаружить
==================
...
Рейтинг: 0 / 0
16.11.2005, 12:58:25
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33385202
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
MX -- ALEXно представте мою ситуацию -
нашли - случайно - хороший способ организации интерфейса через EXCEL
процесс разработки ускорился работает все четко
и многие кому это бы очень пригодилось не подозревают
и поговорить не с кем с разработчиками - никто так не делает
дело не в продаже - коды открыты - и коробки яркой нет
хотелось бы сподвижников обнаружить
==================
Естественно никто так не делает. И никогда вы сподвижников не обнаружите. Именно потому что никто так не делает. Потому что не предназначен Excel для того, что вы пытаетесь заставить его делать.


MX -- ALEXошибка не сразу
а при установке свойств созданного без Selection обьeкта
например не дает установить
PrintObject
сам не врубаюсь что за хренотень
Некоторые свойства обеъкта/листа/ячейки и тд невозможно установить если объект невидимый или неактивный. Либо, если фокус стоит на другом объекте/листе.
Либо (скорее всего) просто не правильно задаешь команду устанавливающую значение.
Вот на Excel 2000, в дополнение к приведеному Letter_D коду:
Код: plaintext
ActiveSheet.Shapes("Rectangle 2").OLEFormat.Object.PrintObject = False
Работает как часы :)
...
Рейтинг: 0 / 0
17.11.2005, 19:09:37
| Ответить | Цитировать | Написать  
Как отменить Select програмно?
    #33389513
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX -- ALEX
Гость
White Owl
Естественно никто так не делает. И никогда вы сподвижников не обнаружите. Именно потому что никто так не делает. Потому что не предназначен Excel для того, что вы пытаетесь заставить его делать.
......
Некоторые свойства обеъкта/листа/ячейки и тд невозможно установить если объект невидимый или неактивный. Либо, если фокус стоит на другом объекте/листе.
Либо (скорее всего) просто не правильно задаешь команду устанавливающую значение.
Вот на Excel 2000, в дополнение к приведеному Letter_D коду:
Код: plaintext
ActiveSheet.Shapes("Rectangle 2").OLEFormat.Object.PrintObject = False

мы не пытаемся
все уже давно работает через EXCEL как часики на полсотне фирм
речь идет ускорить на пару миллисекунд построение кнопок на листах
Вам - Спасибо !!
- .OLEFormat.Object.PrintObject проходит
===================
...
Рейтинг: 0 / 0
21.11.2005, 11:45:27
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как отменить Select програмно?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=347&tid=2185532]:
 0ms
get settings:
 5ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 30ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 199ms
total:  285ms
созд. / загр.: 285ms
x
x
Закрыть


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