Вывод отчета в Excel - Microsoft Office Excel

Настя Белова · 14.04.2014, 16:34

Имеет 2 кнопки .Отчет по должникам и отчет по месяцу. Проблема такова. У меня 12 листов на них имеются данные
И так. Пользователь нажимает на кнопку чтобы создать отчет. Выбирает из списка Исполнителя и Месяц. Выбирает все то что ему необходима. Значит программа должна просмотреть все 12 листов и смотрит месяц и исполнителя и смотри какие столбца заполнены а какие пусты в таблице и выводит на новый лист с такими же столбцами

IgorGO · 14.04.2014, 16:51

этот

Код:

Private Sub CommandButton1_Click()
  Set wsh = Worksheets.Add
  wsh.Name = UserForm1.ComboBox1 & ":" & UserForm1.ComboBox2
  With Worksheets(UserForm1.ComboBox2)
    .Rows(1).Copy Cells(1, 1): r2 = 2
    For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
      If .Cells(r1, 10) = UserForm1.ComboBox1 Then .Rows(r1).Copy Cells(r2, 1):  r2 = r2 + 1
    Next
  End With
End Sub

в модуль формы.
(имена Комбоксов и Баттонов вымышленны, подставте нужные)

Настя Белова · 16.04.2014, 09:40

чот вылезло ввввв.jpg

Hugo121 · 16.04.2014, 09:57

Там ведь всё ясно написано.

Настя Белова · 16.04.2014, 10:53

а я маленько туповата

Настя Белова · 23.04.2014, 11:17

не получается у меня(( создает только лист и всё

Hugo121 · 23.04.2014, 12:42

Код:

& ":" &

замените на например

Код:

& "_" &

Настя Белова · 23.04.2014, 13:03

теперь выходить другая ошибка.но лист переименовывает.это очень хорошо.но надо же чтобы он из всех 12 листов скопировал нужную пользователю информацию.

Hugo121 · 23.04.2014, 13:13

Уверен что пример очень ускорил бы решение вопроса. Ещё неделю назад.

Настя Белова · 23.04.2014, 13:21

да блин. ну не врубаюсь я что делать. мне надо расжувать и в рот положить

14.04.2014, 16:51	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	этот Код: `Private Sub CommandButton1_Click() Set wsh = Worksheets.Add wsh.Name = UserForm1.ComboBox1 & ":" & UserForm1.ComboBox2 With Worksheets(UserForm1.ComboBox2) .Rows(1).Copy Cells(1, 1): r2 = 2 For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(r1, 10) = UserForm1.ComboBox1 Then .Rows(r1).Copy Cells(r2, 1): r2 = r2 + 1 Next End With End Sub` в модуль формы. (имена Комбоксов и Баттонов вымышленны, подставте нужные) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 14.04.2014 в 19:52.

16.04.2014, 09:57	#4
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	Там ведь всё ясно написано. webmoney: E265281470651 Z422237915069 R418926282008

23.04.2014, 12:42	#7
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	Код: `& ":" &` замените на например Код: `& "_" &` webmoney: E265281470651 Z422237915069 R418926282008

23.04.2014, 13:13	#9
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,170	Уверен что пример очень ускорил бы решение вопроса. Ещё неделю назад. webmoney: E265281470651 Z422237915069 R418926282008

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вывод отчета в Эксель	Azrael2155	БД в Delphi	6	20.11.2013 17:05
Создание отчета в excel из БД	Tanzor69	БД в Delphi	5	08.11.2013 15:07
вывод всех возможных значений в примечании отчета	Natasha63	Microsoft Office Access	1	16.12.2012 17:23
Вывод отчета в Word. Bulder	Марат05	C++ Builder	9	16.05.2012 14:38
Формирование отчета в Excel из Delphi	Chals	Общие вопросы Delphi	1	04.06.2007 19:25

16.04.2014, 09:40	#3
Настя Белова Пользователь Регистрация: 28.03.2014 Сообщений: 29	чот вылезло ввввв.jpg

16.04.2014, 10:53	#5
Настя Белова Пользователь Регистрация: 28.03.2014 Сообщений: 29	а я маленько туповата

23.04.2014, 11:17	#6
Настя Белова Пользователь Регистрация: 28.03.2014 Сообщений: 29	не получается у меня(( создает только лист и всё

23.04.2014, 13:03	#8
Настя Белова Пользователь Регистрация: 28.03.2014 Сообщений: 29	теперь выходить другая ошибка.но лист переименовывает.это очень хорошо.но надо же чтобы он из всех 12 листов скопировал нужную пользователю информацию.

23.04.2014, 13:21	#10
Настя Белова Пользователь Регистрация: 28.03.2014 Сообщений: 29	да блин. ну не врубаюсь я что делать. мне надо расжувать и в рот положить