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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос переноса таблицы в таком же формате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Макрос переноса таблицы в таком же формате
Роберт Дата: Понедельник, 21.01.2013, 17:10 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Доброго времени суток!
Нужен макрос переноса таблицы в таком же формате, со всеми данными, значениями по клику кнопки. Я новичок в макросах, создал такую функцию, но не знаю как задать чтобы переносил такой же формат. Был бы Вам очень признателен, если Вы поделились знаниями...
Спасибо..
К сообщению приложен файл: Book1.xls (53.5 Kb)
 
Ответить
СообщениеДоброго времени суток!
Нужен макрос переноса таблицы в таком же формате, со всеми данными, значениями по клику кнопки. Я новичок в макросах, создал такую функцию, но не знаю как задать чтобы переносил такой же формат. Был бы Вам очень признателен, если Вы поделились знаниями...
Спасибо..

Автор - Роберт
Дата добавления - 21.01.2013 в 17:10
KuklP Дата: Вторник, 22.01.2013, 00:18 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А вы не копируйте таблицу. Копируйте лист. Потом, за ненадобностью удаляйте. А то у Вас на всех листах таблицы разные, хлопотно каждый раз копировать все со всеми форматами, потом очищать все это.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеА вы не копируйте таблицу. Копируйте лист. Потом, за ненадобностью удаляйте. А то у Вас на всех листах таблицы разные, хлопотно каждый раз копировать все со всеми форматами, потом очищать все это.

Автор - KuklP
Дата добавления - 22.01.2013 в 00:18
Роберт Дата: Вторник, 22.01.2013, 10:32 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

KuklP, спасибо Вам за совет, подскажите пожалуйста как можно сделать согласно Вашему совету, т.е. весь лист. Я новичок в этом деле, был бы очень признателен за Вашу помощь. Заранее благодарю..
 
Ответить
СообщениеKuklP, спасибо Вам за совет, подскажите пожалуйста как можно сделать согласно Вашему совету, т.е. весь лист. Я новичок в этом деле, был бы очень признателен за Вашу помощь. Заранее благодарю..

Автор - Роберт
Дата добавления - 22.01.2013 в 10:32
Serge_007 Дата: Вторник, 22.01.2013, 10:48 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Так можно (см. вложение)
К сообщению приложен файл: Robert.xls (54.5 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеТак можно (см. вложение)

Автор - Serge_007
Дата добавления - 22.01.2013 в 10:48
RAN Дата: Вторник, 22.01.2013, 11:39 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Серж, не давай вредных советов. smile

[vba]
Код
Sub qqq()
     Sheets("1").Copy After:=Sheets(Sheets.Count) ' последний
     Sheets("1").Copy Before:=Sheets(1)  ' первый
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСерж, не давай вредных советов. smile

[vba]
Код
Sub qqq()
     Sheets("1").Copy After:=Sheets(Sheets.Count) ' последний
     Sheets("1").Copy Before:=Sheets(1)  ' первый
End Sub
[/vba]

Автор - RAN
Дата добавления - 22.01.2013 в 11:39
Роберт Дата: Вторник, 22.01.2013, 20:43 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Огромное спасибо Вам за помощь, все работает....Потратил пару дней, но благодаря Вам нашел то, что нужно..Спасибо
 
Ответить
СообщениеОгромное спасибо Вам за помощь, все работает....Потратил пару дней, но благодаря Вам нашел то, что нужно..Спасибо

Автор - Роберт
Дата добавления - 22.01.2013 в 20:43
  • Страница 1 из 1
  • 1
Поиск:

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