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

Вход

Регистрация

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

 

= Мир MS Excel/доработка макроса по вставке данных из одного файла в другой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
доработка макроса по вставке данных из одного файла в другой
NICK31 Дата: Среда, 16.05.2012, 08:25 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 112
Репутация: 0 ±
Замечаний: 0% ±

при нажатии макроса в файле "1 документ" из файла "черновик" происходит копирование нужных столбцов в файл "списание" всё хорошо, но одно но! почему то происходит зануление на конце счета! все цифры на конце меняются на ноль! я так понимаю, что из моей программы в файле "черновик" данные с числами выгружаются, как текстовый формат, переделать мы не можем!
К сообщению приложен файл: 4994563.rar (35.9 Kb)
 
Ответить
Сообщениепри нажатии макроса в файле "1 документ" из файла "черновик" происходит копирование нужных столбцов в файл "списание" всё хорошо, но одно но! почему то происходит зануление на конце счета! все цифры на конце меняются на ноль! я так понимаю, что из моей программы в файле "черновик" данные с числами выгружаются, как текстовый формат, переделать мы не можем!

Автор - NICK31
Дата добавления - 16.05.2012 в 08:25
_Boroda_ Дата: Среда, 16.05.2012, 10:06 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16715
Репутация: 6504 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Замените цикл в макросе на
Code
For i = 10 To 28
     c0_ = Workbooks(sp_).Sheets(1).Cells(1, i)
     cn_ = WorksheetFunction.Match(c0_, Workbooks(he_).Sheets(1).Range("1:1"), 0)
     Workbooks(he_).Sheets(1).Columns(cn_).Copy Workbooks(sp_).Sheets(1).Columns(i)
Next i


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЗамените цикл в макросе на
Code
For i = 10 To 28
     c0_ = Workbooks(sp_).Sheets(1).Cells(1, i)
     cn_ = WorksheetFunction.Match(c0_, Workbooks(he_).Sheets(1).Range("1:1"), 0)
     Workbooks(he_).Sheets(1).Columns(cn_).Copy Workbooks(sp_).Sheets(1).Columns(i)
Next i

Автор - _Boroda_
Дата добавления - 16.05.2012 в 10:06
NICK31 Дата: Среда, 16.05.2012, 14:13 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 112
Репутация: 0 ±
Замечаний: 0% ±

не срабатывает макрос такой
К сообщению приложен файл: 9913640.rar (35.8 Kb)
 
Ответить
Сообщениене срабатывает макрос такой

Автор - NICK31
Дата добавления - 16.05.2012 в 14:13
Hugo Дата: Среда, 16.05.2012, 16:46 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Я на другом форуме 6 часов назад предложил очищать не всё, а только значения. И сперва вручную или кодом задать нужным столбцам текстовый формат.
Но ТС молчит - вероятно пока все форумы ещё не проверил... Или уже и забыл, где закидывал... Нехорошо.


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеЯ на другом форуме 6 часов назад предложил очищать не всё, а только значения. И сперва вручную или кодом задать нужным столбцам текстовый формат.
Но ТС молчит - вероятно пока все форумы ещё не проверил... Или уже и забыл, где закидывал... Нехорошо.

Автор - Hugo
Дата добавления - 16.05.2012 в 16:46
  • Страница 1 из 1
  • 1
Поиск:

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