Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка при присвоении значения переменной Range после вставки гиперссылки
 
#1
23.11.2018 15:31:50
Добрый день столкнулся с необъяснимой для меня проблемой - после вставки гиперссылки на лист не могу нормально работать с объектом rngX - не могу присвоить ему новый диапазон.
Код
Option Explicit

Sub ProverkaProtocols()
    Dim sAdr
    Dim rngX

    ActiveSheet.UsedRange.Clear
   
    sAdr = "$A$2:$B$3,$C$4"
'    sAdr = "$A$2:$B$3" 'с таким диапазоном работает

    Set rngX = ActiveSheet.Range(sAdr)
    rngX.Value = 1

    ActiveSheet.Cells(1, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(1, 1), Address:="", _
    SubAddress:="", TextToDisplay:="Ссылка"

'если на следующей строчке поставить прерывание, то код выполнится без ошибки
    Set rngX = ActiveSheet.Range(sAdr).Offset(6)
    rngX.Value = 1
    
End Sub
Код странный и совершенно бесполезный потому что упрощён так, чтобы оставить только то, что нужно чтобы вызвать ошибку.
Хочу поделиться следующими наблюдениями:
1. Ошибка возникает только для несвязанного диапазона.
2. Если при отладке попробовать продолжить выполнение кода, то он выполнится.

Подскажите, пожалуйста, что тут не так?! Как эта ошибка возникает? Почему код, блин, выполняется при попытке продолжить?
Изменено: Wiss - 23.11.2018 15:35:20
Я не волшебник, я только учусь.
 
 
 
#2
23.11.2018 16:05:26
Не пойму в чём проблема. Как обходной путь замените:
Код
ActiveSheet.Cells(1, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(1, 1), Address:="", _
    SubAddress:="", TextToDisplay:="Ссылка"
на:
Код
ActiveSheet.Cells(1, 1).Formula = "=HYPERLINK("""",""Ссылка"")"

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
23.11.2018 20:44:28
Здравствуйте, коллеги! Действительно, любопытно. Следующий (упрощенный) макрос:
Код
Sub test()
    ActiveSheet.Hyperlinks.Add Cells(1, 1), Address:=""
    Range("A2,A3").Select
End Sub

выдает ошибку на версиях 2007 (ru), 2016 (32-, ru), но корректно отрабытывает на 2016 (64-, en).
Владимир
 
 
 
#4
23.11.2018 20:48:23
2013 (32) ru - полёт нормальный.
 
 
 
#5
23.11.2018 21:50:02
Цитата
Юрий М написал: полёт нормальный
Взлетел только после замены русских А на латинские в строке
Цитата
sokol92 написал:  Range("A2,A3").Select
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
23.11.2018 21:54:56
А я ничего не менял - скопировал прямо из #3 )
 
 
 
#7
23.11.2018 21:56:35
Я имел ввиду файл. Менял в макросе, который в самом файле
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
23.11.2018 21:59:50
Цитата
Юрий М написал:
скопировал прямо из #3
Извиняюсь, корректировка: я про файл говорю. Скачал и запустил макрос - выделил две ячейки. Ничего не менял ))
 
 
 
#9
23.11.2018 22:36:13
Цитата
Sanja написал:
Взлетел только после замены русских А на латинские в строке
А им вослед старуха: - Нет!
                   Пирог мой не сырой!
Владимир
 
 
 
#10
24.11.2018 01:03:46
Цитата
JayBhagavan написал:
Не пойму в чём проблема
проблема в том, что если в коде #1 строкае17-18 поставить Stop  - код работает
а если не ставиь - валится по ошибке!!!!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
24.11.2018 04:49:02
Ігор Гончаренко, это мне понятно. Мне не понятно, почему штатное выполнение макроса выдаёт ошибку, а пошаговое, в режиме отладки ошибки НЕ выдаёт.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#12
26.11.2018 09:38:48
Спасибо большое всем за участие! JayBhagavan, спасибо за решение. Буду тестить.

Извините, что не поддерживал беседу, думал, что пост уже загнулся. Возьму на себя наглость апнуть пост.
Для меня больший интерес представляет не непосредственное решение проблемы, а причины возникновения ошибки.
Больно уж она странная, там затронуты какие-то механизмы работы Excel о существовании которых я пока не знаю.
Я не волшебник, я только учусь.
 
 
 
#13
26.11.2018 09:50:31
Wiss, мне тоже интересна причина такого поведения.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#14
26.11.2018 09:56:24
она интересна и тем, кто об этом не пишет но открывал файл и выполнил код в двух режимах.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#15
26.11.2018 10:02:53
Встречалась такая проблема несколько раз - пошагово работает, автоматически - нет. Причину не знаю.
 
 
 
#16
26.11.2018 11:31:49
У меня такое ощущение, что на выполнение строки нужно заметное время, но компилятор на это забивает и идёт дальше, пытаясь при этом использовать ещё не полученные данные. при работе с ARJ через Shell это точно так, Application.Wait спасло отца русской демократии.
 
 
 
#17
26.11.2018 11:47:04
StoTisteg, покажите код от ТСа с Application.Wait , который при запуске не вываливается в редактор макроса с ошибкой.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#18
26.11.2018 11:57:12
В том-то и дело, что у меня нормально работает, так что пробуем наощупь:
Код
Option Explicit
 
Sub ProverkaProtocols()
    Dim sAdr
    Dim rngX
 
    ActiveSheet.UsedRange.Clear
    
    sAdr = "$A$2:$B$3,$C$4"
'    sAdr = "$A$2:$B$3" 'с таким диапазоном работает
 
    Set rngX = ActiveSheet.Range(sAdr)
    rngX.Value = 1
 
    ActiveSheet.Cells(1, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(1, 1), Address:="", _
    SubAddress:="", TextToDisplay:="Ссылка"
 
'если на следующей строчке поставить прерывание, то код выполнится без ошибки
    Application.Wait Now + TimeValue("00:00:01")
    Set rngX = ActiveSheet.Range(sAdr).Offset(6)
    rngX.Value = 1
     
End Sub
 
 
 
#19
26.11.2018 12:17:17
StoTisteg, у меня также вываливается с ошибкой Ваш код, как и код ТСа. Я ставил задержку 10 сек - тоже самое.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#20
26.11.2018 12:28:48
Значит, моя догадка была неверной или не там задержка... А на чём вываливается-то?
 
 
 
#21
26.11.2018 12:31:24
Попробуйте Do Events применить, перед строкой, где останавливается.
 
 
 
#22
26.11.2018 12:43:39
Цитата
Wiss написал:
затронуты какие-то механизмы работы Excel о существовании которых я пока не знаю
Трудно поставить диагноз при различной работе макроса на различных конфигурациях (см. #3, #4). Что касается отладчика, то у него, по-видимому, непростые отношения с гиперссылками - попробуйте поотлаживать макрос onmouse из интересного примера Михаила (БМВ). На моих конфигурациях оператор Stop, например, в этом макросе игнорируется.
Владимир
 
 
 
#23
26.11.2018 12:52:48
StoTisteg, на этом. Ошибка 1004.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#24
26.11.2018 12:54:40
Цитата
Михаил С. написал: Попробуйте Do Events
Пробовал. Не помогло.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#25
26.11.2018 13:11:27
Нашёл комп, где не работает. Посмотрел. Дело во втором Set'е. Так работает:
Код
Sub ProverkaProtocols()
    Dim sAdr
    Dim rngX

    ActiveSheet.UsedRange.Clear
   
    sAdr = "$A$2:$B$3,$C$4"
'    sAdr = "$A$2:$B$3" 'с таким диапазоном работает

    Set rngX = Range(sAdr)
    rngX.Value = 1


    ActiveSheet.Cells(1, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(1, 1), Address:="", _
    SubAddress:="", TextToDisplay:="Ссылка"

'если на следующей строчке поставить прерывание, то код выполнится без ошибки
    rngX.Offset(6).Value = 1
End Sub
Смотрим дальше...
 
 
 
#26
26.11.2018 13:15:37
Уточняю. Проблема в переменной sAdr, так
Код
Sub ProverkaProtocols()
    Dim sAdr
    Dim rngX

    ActiveSheet.UsedRange.Clear
   
    sAdr = "$A$2:$B$3,$C$4"
'    sAdr = "$A$2:$B$3" 'с таким диапазоном работает

    Set rngX = Range(sAdr)
    rngX.Value = 1


    ActiveSheet.Cells(1, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(1, 1), Address:="", _
    SubAddress:="", TextToDisplay:="Ссылка"

'если на следующей строчке поставить прерывание, то код выполнится без ошибки
    Set rngX = rngX.Offset(6)
    rngX.Value = 1
End Sub
тоже работает.
 
 
 
#27
26.11.2018 13:23:55
Я всегда знал, что лишние переменные — зло.
 
 
 
#28
26.11.2018 13:27:51
Замена избавляет от ошибки
Код
 'Set rngX = ActiveSheet.Range(sAdr).Offset(6)
    Set rngX = rngX.Offset(6)
но не решает проблему. Проблема не rngX.  Такое ощущение, что приложение оформляет гиперссылку и на это время  Range(sAdr) не доступен.
Изменено: БМВ - 26.11.2018 13:29:12
По вопросам из тем форума, личку не читаю.
 
 
 
#29
26.11.2018 13:29:12
Цитата
StoTisteg написал:
pplication.Wait спасло отца русской демократии.
Не помогло

Цитата
Михаил С. написал:
Попробуйте Do Events
Не помогло

Цитата
sokol92 написал:
попробуйте поотлаживать макрос onmouse из интересного  примера  Михаила ( БМВ )
Посмотрел на макрос Михаила ( БМВ ). Он супер. При отладке Stop не работает.
Я не волшебник, я только учусь.
 
 
 
Страницы: 1
Наверх