Проект статьи для FAQ про избавление от Select / Visual Basic

ReSQL.ru

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

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проект статьи для FAQ про избавление от Select

5 сообщений из 30, страница 2 из 2

все

Проект статьи для FAQ про избавление от Select

#37747045

Диклевич Александр

Участник

Сообщения: 601

Рейтинг: 0 / 0

работай бы код

Код: vbnet

Set Wb = Worksheets("Sheet2").Copy

, т.е. будь Сору функцией, а не процедурой, то я был бы уверен, что объектная переменная Wb ссылается на книгу, созданную в результате вызова метода Worksheets("Sheet2").Copy, и ни на какую другую.

...

Рейтинг:

0 / 0

10.04.2012, 15:37

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

Проект статьи для FAQ про избавление от Select

#37747060

Диклевич Александр

Участник

Сообщения: 601

Рейтинг: 0 / 0

Antonariy,

Вообще то я могу мышкой кликнуть на панели Windows на какую нибудь другую книгу и она станет ActiveWorkbook.
Никто и ничто не запрещает мне это сделать в момент между

Код: vbnet

    Worksheets("Sheet2").Copy

Код: vbnet

    Set Wb = ActiveWorkbook

Конечно, специально сделать это не так просто, но все же возможно.

...

Рейтинг:

0 / 0

10.04.2012, 15:42

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

Проект статьи для FAQ про избавление от Select

#37747096

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Диклевич АлександрAntonariy,

Вообще то я могу мышкой кликнуть на панели Windows на какую нибудь другую книгу и она станет ActiveWorkbook.
Никто и ничто не запрещает мне это сделать в момент между

Код: vbnet

    Worksheets("Sheet2").Copy

Код: vbnet

    Set Wb = ActiveWorkbook

Конечно, специально сделать это не так просто, но все же возможно.Она не станет активной до завершения работы макроса. И таки запрещает. Запрещает сам поток, поскольку занят макросом, а не обработкой оконных сообщений от мыши.
Откройте эксель, создайте две книги, запустите указанный ниже код в любой из них и попробуйте переключится на вторую.

Код: vbnet

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

Private Declare Sub Sleep lib "kernel32.dll" ()

sub test()
Do 
    Sleep
Loop
End sub

...

Рейтинг:

0 / 0

10.04.2012, 15:56

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

Проект статьи для FAQ про избавление от Select

#37747126

Диклевич Александр

Участник

Сообщения: 601

Рейтинг: 0 / 0

Antonariy,

это да. Но вот если остановить макрос по Ctrl+Break, кликнуть на другую книгу, то ActiveWorkbook поменяется.
Спросите зачем останавливать? да мало ли, хотя бы для отладки.

...

Рейтинг:

0 / 0

10.04.2012, 16:10

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

Проект статьи для FAQ про избавление от Select

#37747153

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Диклевич АлександрAntonariy,

это да. Но вот если остановить макрос по Ctrl+Break, кликнуть на другую книгу, то ActiveWorkbook поменяется.
Спросите зачем останавливать? да мало ли, хотя бы для отладки.А если воткнуть в материнскую плату отвертку, то комп зависнет. Опять виноваты баги экселя?

Нельзя ничего делать в бессознательном состоянии. Делая что-то, нужно помнить о последствиях, а последствия не несут случайный характер.
Проблема, как всегда, не в инструменте, а руках, которые его держат.

PS: Конечно, все это не отменяет неудобства отсутствия ссылки на результат у Copy.

...

Рейтинг:

0 / 0

10.04.2012, 16:23

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

5 сообщений из 30, страница 2 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проект статьи для FAQ про избавление от Select

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=60&msg=37747096&tid=2157908]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	28ms
get topic data:	10ms
get forum data:	3ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	16ms

total:	131ms