Вопрос по макросу

Ир

Гость

03.08.2009 10:28:29

Добрый день! Я написала макрос при помощи рекордера. Суть макроса оч проста. Макрос копирует заданный столбец в буфер обмена, вставляет из буфера обменв в другое место и затем идет разбивка на колонки. В процессе исполнения макроса эксель выдает информационное сообщение с приведенными ниже вопросами, на которые я должна ответить. Подскажите пож-та как мне прописать ответ в самом макросе, чтобы эти сообщение не появлялись.
1. There is a large amount of info on the Clipboard. Do you want to be able to paste this info into another program later? ОТВЕТ – NO
2. Do you want to replace the contents of the destination cells? ОТВЕТ – YES
Заранее спасибо

ИР

Гость

03.08.2009 11:07:37

Спасибо, первая часть сработала отлично, а вот вторая часть не работает.. странно макрос подсвечивает желтым второй абзац, указанный ниже... Я попробовала вставить фразу Application.DisplayAlerts = True до этого куска, после и перед Энд Саб, только все равно не работает... не знаете, в чем моя ошибка?

Columns("J:J").Select

Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="@", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Ир Гость	#3 03.08.2009 11:31:47 У меня 2007 эксель, не знаю правильно ли я выбрала формат для макрососодержащего файла... Прикрепленные файлы post_54058.xlsm (29.88 КБ)

Ир Гость	#4 03.08.2009 11:34:30 или вот так? Прикрепленные файлы post_54059.xls (239 КБ)

Ир Гость	#5 03.08.2009 11:36:10 TextToColumns Macro

Ир

Гость

03.08.2009 12:05:20

Все прекрасно работает, большое спасибо
а команда Application.ScreenUpdating = False означает что все операции он делает у себя в уме а мне на экран только итог выводит? а то в результате нововведений я перестала видеть что происходит, а только финальный вариант))))

Ир Гость	#7 03.08.2009 12:08:56 Спасибо

Читают тему