Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сохранение форматирования при переносе массива на новый лист
 
#1
25.02.2015 14:09:34
Добрый день. С помощью кода данные вставляются на новый лист(добавляется при изменении значения комбобокса на форме).Подскажите пожалуста,что нужно добавить в код,чтобы переносились не только значения, но и все форматирование т.е ширина столбцов,высота строк,УФ.
Спасибо.
Код:
Код
a = Sheets("Îøèáêè".[a1].CurrentRegion.Value
ReDim d(1 To UBound(a), 1 To 5)
 Sheets(Me.ComboBox1.Value).[a1].Resize(UBound(a), 5) = a
Sheets(Me.ComboBox1.Value).Select
 
 
 
#2
25.02.2015 16:14:08
Код
Sheets("Îøèáêè".[a1].CurrentRegion.Copy Destination:=Sheets(Me.ComboBox1.Value).[a1]
 
 
 
#3
26.02.2015 08:20:58
Dima S,Спасибо за помощь,но получается немного не то,что хотелось.В приложенном файле Лист1 как должно быть,Лист2 как получается перенос по Вашему коду.Наверно придется отказаться от переноса массива,а просто копировать и вставлять через специальную всавку(что не очень хотелось).
 
 
 
Страницы: 1
Наверх