При запуске выдаёт "OverFlow" ... . Почти окончательный вариант состряпал, запустил.. и всё. Побовал менять переменные на double, single, long ... все равно ошибка не пропадает. Что делать ? Без "галочек" весь смысл проподает =(
При запуске выдаёт "OverFlow" ... . Почти окончательный вариант состряпал, запустил.. и всё. Побовал менять переменные на double, single, long ... все равно ошибка не пропадает. Что делать ? Без "галочек" весь смысл проподает =(QwertyBoss
QwertyBoss, Не разбирался толком что именно делает Ваш макрос. Но если Вам не нужны лишние срабатывания события, поиграйтесь с Application.EnableEvents. Но сама проблема с
я думаю вызвана большим кол-вом ячеек, которые у Вас выделяеются при контрл+A. Поэтому необходимо вначале события выделения поставить условие выхода из процедуры, при превышении определённого количества выделенных ячеек: [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim b As Long If Target.Rows.Count > 1 Then Exit Sub If Target.Column = 9 And Target.Row > 1 Then ' Application.EnableEvents = False Target = IIf(Target = "", "a", "") Target.Next.Select ' Application.EnableEvents = True End If End If End Sub
[/vba]
QwertyBoss, Не разбирался толком что именно делает Ваш макрос. Но если Вам не нужны лишние срабатывания события, поиграйтесь с Application.EnableEvents. Но сама проблема с
я думаю вызвана большим кол-вом ячеек, которые у Вас выделяеются при контрл+A. Поэтому необходимо вначале события выделения поставить условие выхода из процедуры, при превышении определённого количества выделенных ячеек: [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim b As Long If Target.Rows.Count > 1 Then Exit Sub If Target.Column = 9 And Target.Row > 1 Then ' Application.EnableEvents = False Target = IIf(Target = "", "a", "") Target.Next.Select ' Application.EnableEvents = True End If End If End Sub
Почитайте детально тут. Когда-то давно - когда на листа было макс. 65тыс строк и всего 255 столбцов - был придуман метод Count, и его хватало с головой (2,147,483,647) Но с появлением нового формата листа нужно уже 17,179,869,184 вот и приходит на помощь новый Countlarge
Почитайте детально тут. Когда-то давно - когда на листа было макс. 65тыс строк и всего 255 столбцов - был придуман метод Count, и его хватало с головой (2,147,483,647) Но с появлением нового формата листа нужно уже 17,179,869,184 вот и приходит на помощь новый CountlargeSLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Пятница, 04.12.2015, 10:42
Оффтоп: Нет - просто на сайт захожу(и на моем телефоне - жутко не удобно) - вчера увидел Ваш код и он меня натолкнул на мысль, что где-то в коде присутствует Target.Count - как оказалось угадал Пока из того что я видел для андроида - бесплатные проги макросы не показывают будем ждать
Оффтоп: Нет - просто на сайт захожу(и на моем телефоне - жутко не удобно) - вчера увидел Ваш код и он меня натолкнул на мысль, что где-то в коде присутствует Target.Count - как оказалось угадал Пока из того что я видел для андроида - бесплатные проги макросы не показывают будем ждатьSLAVICK