Макрорекордер - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макрорекордер (Как исправить ошибки)

Макрорекордер

light26

Дата: Пятница, 16.03.2012, 17:52 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Всем привет.
Пока макросы пишу только макрорекордером )))
но не всегда получается без ошибок. Вот и сейчас выдает ошибку. Помогите исправить.

К сообщению приложен файл: disp_okna_.xls (62.0 Kb)

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Пятница, 16.03.2012, 17:54

Ответить

light26

Дата: Пятница, 16.03.2012, 18:41 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Привет, Саш.
Рад тебя "видеть" )
В двух словах пояснить не получится.
Есть такая программа АСУ, может слышал. Так вот. Она формирует отчеты и экспортирует из в Excel. Но экспортирует коряво.
Вот я и записал макрорекордером все действия по приведению в "божеский вид" таблицы.
1. удаление нескольких столбцов
2. изменение ширины столбцов по значениям
3. ввод в 1 строку значения "Ведомость" и объединение ячеек в ширину таблицы с выравниванием по середине
4. ввод в 3 строку значений "за период", потом формула =СЕГОДНЯ()-7, затем "по", далее формула =СЕГОДНЯ()-1
Это вкратце, без тонкостей

Ты, в принципе, выполни макрос. VBA сам выругается в нужном месте smile

[vba]

Code

Selection.Delete Shift:=xlToLeft

[/vba]

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Пятница, 16.03.2012, 18:48

Ответить

Hugo

Дата: Пятница, 16.03.2012, 18:50 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Попробуйте
[vba]

Code

Range("C:C,G:G,I:I,K:K,M:M,Q:Q,U:U,W:W,Y:Y,AA:AA,AD:AD").Delete Shift:=xlToLeft

[/vba]Остальное вроде прошло... Только у меня нет "Лист1", но ничего, я на 2 поменял...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

_Boroda_

Дата: Пятница, 16.03.2012, 18:57 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16956

Репутация: 6631 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Quote

Ты, в принципе, выполни макрос. VBA сам выругается в нужном месте
Selection.Delete Shift:=xlToLeft

Если дело только в этом и тебе не нужно все писать в нормальном виде, то замени
[vba]

Code

Range("C:C,G:G,I:I,K:K,M:M,Q:Q,U:U,W:W,Y:Y,AA:AA,AD:AD").Select
Range("AD1").Activate
Selection.Delete Shift:=xlToLeft

[/vba]на
[vba]

Code

Range("C:C,G:G,I:I,K:K,M:M,Q:Q,U:U,W:W,Y:Y,AA:AA,AD:AD").Delete Shift:=xlToLeft

[/vba]

о! Вот и Hugo уважаемый то же самое написал. А то, что что-то поудалял макрос твой - так что ты ему написал, то он и сделал

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995