ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод отчет
25 сообщений из 70, страница 1 из 3
  1  все
Вывод отчет
    #38622995
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Имееться файл Excel. В нем есть 12 листов. 13лист это главное меню. На главном меню есть кнопка отчет. При нажатии на нее появляется форма. Пользователь заполняет пустые ComboBox(их 2) и CheckBox(их2). Нажимает кнопку ок и создается лист с нужной ему информацией.
...
Рейтинг: 0 / 0
23.04.2014, 13:46
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623003
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton1_Click()
  Set wsh = Worksheets.Add
  wsh.Name = UserForm3.ComboBox1 & "_" & UserForm3.ComboBox2
  With Worksheets(UserForm3.ComboBox2)
.Rows(1).Copy Cells(1, 1): r2 = 2
    For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
      If .Cells(r1, 10) = UserForm3.ComboBox1 Then .Rows(r1).Copy Cells(r2, 1):  r2 = r2 + 1
    Next
  End With
End Sub


Модератор: Учимся использовать тэги оформления кода - FAQ


создает и переименновывет лист и выдает ошибку
...
Рейтинг: 0 / 0
23.04.2014, 13:49
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623073
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
а) приложите файл
б) задайте вопрос
...
Рейтинг: 0 / 0
23.04.2014, 14:26
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623103
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
...
Рейтинг: 0 / 0
23.04.2014, 14:39
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623110
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
так у меня заполнены 12 листов.
...
Рейтинг: 0 / 0
23.04.2014, 14:41
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623113
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
когда пользователь нажимает кнопку отчет.выходит эта форма
...
Рейтинг: 0 / 0
23.04.2014, 14:43
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623121
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
он заполняет их.нажимает кнопку и создается лист отдельный и с данной информацией.
...
Рейтинг: 0 / 0
23.04.2014, 14:46
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623124
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
вопрос.почему не работает моя херня.может надо прописать отдельно на все объекты прогу
...
Рейтинг: 0 / 0
23.04.2014, 14:47
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623131
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, может я что то не то делаю
...
Рейтинг: 0 / 0
23.04.2014, 14:50
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623134
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя!

1) приложите файл (ну зачем нам ваши картинки, как мы их загрузим в эксель? или вы хотите, чтобы мы с ваших картинок заново создали файл, заполнили его вручную, создали форму и посмотрели, наконец, что за ошибка, про которую вы не изволите ни текст дать, ни сказать, на какой она строке)
...
Рейтинг: 0 / 0
23.04.2014, 14:52
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623146
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
аааааааааааа
...
Рейтинг: 0 / 0
23.04.2014, 14:56
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623151
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,ну не так поняла я Вас
...
Рейтинг: 0 / 0
23.04.2014, 14:57
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623155
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя БеловаНа главном меню есть кнопка отчет. При нажатии на нее появляется форма.и где это все?
...
Рейтинг: 0 / 0
23.04.2014, 14:59
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623160
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
файл весит больше и не загружает
...
Рейтинг: 0 / 0
23.04.2014, 15:03
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623165
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
воооот
...
Рейтинг: 0 / 0
23.04.2014, 15:05
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623215
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
индексу в Worksheets нужно передавать либо индекс, либо имя листа, а никак не комбобокс. То есть, например UserForm3.ComboBox2.Text
...
Рейтинг: 0 / 0
23.04.2014, 15:24
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623278
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,т.е надо проставить везде text &
...
Рейтинг: 0 / 0
23.04.2014, 15:48
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623321
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
по хорошему - да, хотя к ошибке это приведет только в одном месте
...
Рейтинг: 0 / 0
23.04.2014, 16:07
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623328
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton1_Click()
  Set wsh = Worksheets.Add
  wsh.Name = UserForm3.ComboBox1.Text & "_" & UserForm3.ComboBox2.Text
  With Worksheets(UserForm3.ComboBox2.Text)
.Rows(1).Copy Cells(1, 1): r2 = 2
    For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
      If .Cells(r1, 10) = UserForm3.ComboBox1.Text Then .Rows(r1).Copy Cells(r2, 1):  r2 = r2 + 1
    Next
  End With
End Sub


так же?
ошибка вылазивает так же
...
Рейтинг: 0 / 0
23.04.2014, 16:11
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623337
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, сделала так,но.у мен копирует только шапку.а данные нет

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub CommandButton1_Click()
  Set wsh = Worksheets.Add
  wsh.Name = UserForm3.ComboBox1.Text & "_" & UserForm3.ComboBox2.Text
  With Worksheets(UserForm3.ComboBox1.Text)
.Rows(1).Copy Cells(1, 1): r2 = 2
    For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
      If .Cells(r1, 10) = UserForm3.ComboBox2.Text Then .Rows(r1).Copy Cells(r2, 1):  r2 = r2 + 1
    Next
  End With
End Sub
...
Рейтинг: 0 / 0
23.04.2014, 16:14
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623343
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что конкретно вы вбиваете в форму?
...
Рейтинг: 0 / 0
23.04.2014, 16:16
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623351
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, пользователь может ставить сразу и две галочка.а может одну
...
Рейтинг: 0 / 0
23.04.2014, 16:20
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623417
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
При таком заполнении программа вообще не работает и работать не может, потому что обращается к несуществующему листу. Пришлите тот файл, где у вас это работает
...
Рейтинг: 0 / 0
23.04.2014, 16:52
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623443
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, я нашла другой код программы.но проблема всё тоже. копирует только шапку
...
Рейтинг: 0 / 0
23.04.2014, 17:04
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623468
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ничего и не должно копироваться, так как на листе Март не встречается фамилия Байкова:
Код: vbnet
1.
If CStr(.Cells(lngRow1, "J")) = strFamilyName Then
...
Рейтинг: 0 / 0
23.04.2014, 17:16
| Ответить | Цитировать | Написать  
25 сообщений из 70, страница 1 из 3
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод отчет
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38623113&tid=2156393]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 285ms
total:  424ms
созд. / загр.: 424ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]