Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Два одинаковых по сути макроса - один работает второй нет.(( - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Два одинаковых по сути макроса - один работает второй нет.(( (Макрос работает только через столбец таблицы)
Два одинаковых по сути макроса - один работает второй нет.((
JK Дата: Понедельник, 02.04.2018, 11:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте уважаемые форумчане!
Сделал простые макросы скрыть/показать строки и отсортировать по увеличению значений и вот сюрприз - один работает, а второй выдает ошибку (точнее первый в коде с ошибкой - выделено красным, а второй рабочий). В программировании не очень разбираюсь. Сравнил просто коды двух макросов - явных отличий не заметил. Помогите пожалуйста разобраться. Заранее благодарю.
Вот какую ошибку выдает:


И вот на что указывает (кстати второй макрос похожий и ошибок нет):


[vba]
Код

Sub макрос1()
'
' макрос1 Макрос
'

'
Columns("N:AG").Select
Selection.EntireColumn.Hidden = False
Columns("S:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Clear
[color=red]ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Add Key:=Range("Таблица24[[#All],[¦ MACD]]"), SortOn:=xlSortOnValues _
, Order:=xlAscending, DataOption:=xlSortNormal[/color]
With ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub макрос2()
'
' макрос2 Макрос
'

'
Columns("N:AG").Select
Selection.EntireColumn.Hidden = False
Columns("U:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Clear
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Add Key:=Range("Таблица24[[#All],[MACD -1]]"), SortOn:=xlSortOnValues _
, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
[/vba]


Сообщение отредактировал JK - Понедельник, 02.04.2018, 18:45
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане!
Сделал простые макросы скрыть/показать строки и отсортировать по увеличению значений и вот сюрприз - один работает, а второй выдает ошибку (точнее первый в коде с ошибкой - выделено красным, а второй рабочий). В программировании не очень разбираюсь. Сравнил просто коды двух макросов - явных отличий не заметил. Помогите пожалуйста разобраться. Заранее благодарю.
Вот какую ошибку выдает:


И вот на что указывает (кстати второй макрос похожий и ошибок нет):


[vba]
Код

Sub макрос1()
'
' макрос1 Макрос
'

'
Columns("N:AG").Select
Selection.EntireColumn.Hidden = False
Columns("S:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Clear
[color=red]ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Add Key:=Range("Таблица24[[#All],[¦ MACD]]"), SortOn:=xlSortOnValues _
, Order:=xlAscending, DataOption:=xlSortNormal[/color]
With ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub макрос2()
'
' макрос2 Макрос
'

'
Columns("N:AG").Select
Selection.EntireColumn.Hidden = False
Columns("U:AF").Select
Selection.EntireColumn.Hidden = True
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Clear
ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort.SortFields _
.Add Key:=Range("Таблица24[[#All],[MACD -1]]"), SortOn:=xlSortOnValues _
, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Анализ SL").ListObjects("Таблица24").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
[/vba]

Автор - JK
Дата добавления - 02.04.2018 в 11:37
китин Дата: Понедельник, 02.04.2018, 11:47 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4774
Репутация: 763 ±
Замечаний: 0% ±

Excel 2007;Excel 2010


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение Как оформлять сообщения?

Автор - китин
Дата добавления - 02.04.2018 в 11:47
JK Дата: Понедельник, 02.04.2018, 12:27 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо! Подправил. Только цвет в коде не выделяется визуально нужным цветом как в txt формате((
 
Ответить
СообщениеСпасибо! Подправил. Только цвет в коде не выделяется визуально нужным цветом как в txt формате((

Автор - JK
Дата добавления - 02.04.2018 в 12:27
SLAVICK Дата: Понедельник, 02.04.2018, 12:46 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2183
Репутация: 735 ±
Замечаний: 0% ±

2007,2010,2013,2016
Судя по всему баг в названии столбца:[¦ MACD] - какое-то странное название.
а так сложно без примера говорить.


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеСудя по всему баг в названии столбца:[¦ MACD] - какое-то странное название.
а так сложно без примера говорить.

Автор - SLAVICK
Дата добавления - 02.04.2018 в 12:46
JK Дата: Понедельник, 02.04.2018, 18:31 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
SLAVICK, К сожалению дело не в названии. С таким же названием похожий макрос работает.
 
Ответить
СообщениеSLAVICK, К сожалению дело не в названии. С таким же названием похожий макрос работает.

Автор - JK
Дата добавления - 02.04.2018 в 18:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Два одинаковых по сути макроса - один работает второй нет.(( (Макрос работает только через столбец таблицы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!