Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Создание отчета EXEL Добавлено: 21.04.10 14:39  

Автор вопроса:  Andrey
Помогите пожалуйста с создание отчета я програмист на 1с а тут чтото не разберусь написал макрос но мне надо сделать кнопку чтобы по принципу макроса заполнялась форма ежедневка помогите пожалуйста

Sub ежедневка2()
'
' ежедневка2 Макрос
' Макрос записан 07.04.2010 (Minutka15)
'

'
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[10]C[-13]"
    ActiveCell.Offset(3, -12).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[25]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[25]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[25]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("ежедневка").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[25]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[25]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[25]"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[29]"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[30]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[30]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[30]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[30]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[30]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[30]"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[14]"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[14]"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[14]"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[14]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[14]"
    ActiveCell.Offset(-5, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[29]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[29]"
    ActiveCell.Offset(-5, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[34]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[34]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[34]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[34]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[34]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[34]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveCell.Offset(-6, 4).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.1!R[7]C[15]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.2!R[6]C[15]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.3!R[5]C[15]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.4!R[4]C[15]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.5!R[3]C[15]"
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Пт.6!R[2]C[15]"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

http://depositfiles.com/files/fkfx43sa7

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #1 		Добавлено: 21.04.10 16:01
в раздел VBA!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам