ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод отчет
70 сообщений из 70, показаны все 3 страниц
  все  
Вывод отчет
    #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
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623476
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, но у меня же не только есть фамилия Байкова.и другие тоже
...
Рейтинг: 0 / 0
23.04.2014, 17:19
| Ответить | Цитировать | Написать  
Вывод отчет
    #38623478
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Настя Белова,
поменяла J на I

Код: vbnet
1.
  If CStr(.Cells(lngRow1, "I")) = strFamilyName Then

и кажеться вывел отчет
...
Рейтинг: 0 / 0
23.04.2014, 17:21
| Ответить | Цитировать | Написать  
Вывод отчет
    #38624047
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
а почему у меня CheckBox не делают свою работу.мне надо что бы один отображал пустые ячейки P,Q,S,U. А другие наоборот заполненные ячейки P,Q,S,U
...
Рейтинг: 0 / 0
24.04.2014, 10:12
| Ответить | Цитировать | Написать  
Вывод отчет
    #38624064
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя, ну плохо совсем с телепатией. Какой чекбокс? Почему он должен делать какую-то работу? Что вы делаете конкретно, что ожидаете, что получается?
...
Рейтинг: 0 / 0
24.04.2014, 10:23
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625020
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
я не так выразилась навернео.где и что мне прописать чтобы при нажатии этих галочек в отчете показывали в каких заполненый ячейки(т.е есть документы все),а какие пустые(т.е не все документы)
...
Рейтинг: 0 / 0
24.04.2014, 18:02
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625054
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя, ну хоть читайте, что вы пишете. Разве это можно понять человеку, который с вашими отчетами никогда дела не имел.

Предполагаю, что вы может быть имеете ввиду две галочки на форме "Отчет". Но они в формировании отчета никак не задействованы. А как они должны быть задействованы, из ваших объяснений пока непонятно.
...
Рейтинг: 0 / 0
24.04.2014, 18:46
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625113
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, первая галочка (незакрыт(без документов) показывала что ячейки P или S или u пустые.(т.е данные не вбитые,у специалиста нету документов), вторая галочка(закрыт(все документы есть) показывает что P или S или u заполненые
...
Рейтинг: 0 / 0
24.04.2014, 20:16
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625155
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну а нужно-то что? Чтобы какие-то строки копировались, а какие-то нет? Что я из вас все вытягиваю?
...
Рейтинг: 0 / 0
24.04.2014, 21:31
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625192
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,дааа копировались..как только нажимаешь кнопку отчет
...
Рейтинг: 0 / 0
24.04.2014, 22:35
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625199
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Так, одно слово вытянул, поехали дальше.
Опишите принцип, как копируемые строки должны зависеть от галочек
...
Рейтинг: 0 / 0
24.04.2014, 22:44
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625460
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,если пользователь нажал галочку закрыты то на новом листе создается отчет Байкова март например.и показывает что все ячейки заполены(т.е сданы все документы). а если галочку не зыкрыт (наоборот,пустые ячейки)
...
Рейтинг: 0 / 0
25.04.2014, 10:17
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625465
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя Беловаи показываеткто показывает, где показывает и как показывает? раскрашивает что ли?
...
Рейтинг: 0 / 0
25.04.2014, 10:21
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625501
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, так хотелось бы
...
Рейтинг: 0 / 0
25.04.2014, 10:55
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625558
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя Беловатакна что конкретно смотреть?
...
Рейтинг: 0 / 0
25.04.2014, 11:50
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625562
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,там есть два листа(закрыт и не закрыт) так должно быть после нажатии на кнопку отчет
...
Рейтинг: 0 / 0
25.04.2014, 11:57
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625569
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Настя Белова,


я вам где-то отвечала

у вас сдвиг в столбиках i-j в разных листах
...
Рейтинг: 0 / 0
25.04.2014, 12:03
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625575
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Настя Белова,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Private Sub CommandButton1_Click()
    Dim wsh As Worksheet, strMonthName$, strFamilyName$, lngRow1&, lngRow2&
    
    strMonthName = ComboBox1.Value
    strFamilyName = ComboBox2.Value
    
    'Application.ScreenUpdating = False
    
    Set wsh = Worksheets.Add
    wsh.Name = strMonthName & Format(Now(), " dd/mm/yy hh.nn.ss")
    'Имя листа не должно превышать 31 символа
    
    With Worksheets(strMonthName)
         .Rows(1).Copy wsh.Cells(1, "A")
         lngRow2 = 2
        J2 = .Cells(.Rows.Count, "A").End(xlUp).Row
         For lngRow1 = 2 To J2
         Debug.Print CStr(.Cells(lngRow1, "J")), CStr(.Cells(lngRow1, "I"))
         
     ''''''''''''''''''''''''''''''СДВИГ '''''''''''''''''''''''
             If CStr(.Cells(lngRow1, "I")) = strFamilyName Then
                .Rows(lngRow1).Copy wsh.Cells(lngRow2, "A")
                 lngRow2 = lngRow2 + 1
             End If
         Next
    End With
    
    'Application.ScreenUpdating = True
End Sub
...
Рейтинг: 0 / 0
25.04.2014, 12:05
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625587
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
ПЕНСИОНЕРКА, я убрала сдвиг.
...
Рейтинг: 0 / 0
25.04.2014, 12:21
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625589
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
ПЕНСИОНЕРКА, просто скопировалось неправильно.
...
Рейтинг: 0 / 0
25.04.2014, 12:22
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625637
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
так что мне делать то с этими галочками.
...
Рейтинг: 0 / 0
25.04.2014, 12:57
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625647
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя Беловатак что мне делать то с этими галочками.Рассказать, чем отличаются (как формируются) листы "не закрыт" и "закрыт"
...
Рейтинг: 0 / 0
25.04.2014, 13:03
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625773
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, они одинаковые почти . заголовок тот же.просто отличаться будут исполнитель и месяц.и в одном отчете заполнены все ячейки а в другом пустые.
...
Рейтинг: 0 / 0
25.04.2014, 14:23
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625787
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
То есть надо в случае выбора галочки "не закрыт" стереть в получившемся отчете информацию из столбцов P,Q,S,U?
...
Рейтинг: 0 / 0
25.04.2014, 14:31
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625801
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Или нужно каким-то образом отобрать строки, которые должны копироваться в новый лист?
...
Рейтинг: 0 / 0
25.04.2014, 14:41
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625865
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Shocker.Pro,

а ты упорный :)

 
а настя белова не сестра нашего белова случаем? :))
...
Рейтинг: 0 / 0
25.04.2014, 15:21
| Ответить | Цитировать | Написать  
Вывод отчет
    #38625871
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Antonariyа ты упорный :)да вроде ж задача-то несложная, надо только добиться от автора, чего хочет
 
Antonariyа настя белова не сестра нашего белова случаем? :))
вряд ли, скорее девичья фамилия Ципихович
...
Рейтинг: 0 / 0
25.04.2014, 15:24
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626551
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Antonariy,что простите?
...
Рейтинг: 0 / 0
26.04.2014, 15:14
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626552
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,галочка не закрыта копирует на новый лист не заполненые ячейки а не очищает.зачем их очищать если они и так не заполнены
...
Рейтинг: 0 / 0
26.04.2014, 15:15
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626555
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
просто копирует строчку.везде заполненные ячейки будут A-I,остальные ячейки в течении месяца заполняются данными. И необходимо чтобы галочки эти показали в отчете где заполнены ячейки,а где нет. Т.е. скопировали на новый лист. все так же как и я сделала правда у меня копирует все сразу.
...
Рейтинг: 0 / 0
26.04.2014, 15:19
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626556
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, и какая нахрен Ципихович!?
...
Рейтинг: 0 / 0
26.04.2014, 15:20
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626563
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя Беловакопирует на новый лист не заполненые ячейкиЗачем копировать незаполненные ячейки, если они не заполнены? копировать пустоту?

Я уже примерно предположил из ваших туманных объяснений, что на новый лист надо копировать строки по определенному принципу, но принцип этот вы упорно не хотите назвать. Ответьте же, наконец, на вопросы:
1) какие строки надо копировать, если включена первая галочка
2) какие строки надо копировать, если включена вторая галочка
...
Рейтинг: 0 / 0
26.04.2014, 15:32
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626577
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,если ячейки от J до X не заполнены то галочка первая
если ячейки заполнены от J до X то галочка вторая



зачем зачем копировать.чтобы пользователю было видно кто не сдал какие документы
...
Рейтинг: 0 / 0
26.04.2014, 15:56
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626612
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя БеловаShocker.Pro,если ячейки от J до X не заполнены то галочка первая
если ячейки заполнены от J до X то галочка втораятак, уже ближе к теме, уже можно что-то делать.

Однако, хочу уяснить еще один момент - как тогда понимать ваш пример? Как на листе "закрыт", так и на листе "не закрыт" с одинаковым успехом встречаются ячейки от J до X как заполненные, так и не заполненные. Поясните этот момент пожалуйста.

 
Настя Беловазачем зачем копировать.чтобы пользователю было видно кто не сдал какие документы
для этого (в вашем документе) надо копировать строки , а не ячейки (вы улавливаете разницу?)
...
Рейтинг: 0 / 0
26.04.2014, 17:18
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626637
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, ну да строи копировать.
строка от J до X заполняется постепенно.
Сейчас объясню весь алгоритм обработка.

Проходит проверка в образовательных учреждениях. для того что оповестить ОУ высылают приказ.(значит специалисту подают копию приказа,он должен ввести код и дату регистрации),во время проверки составляют акт(так же спустя 7дней специалист подают копию акта он вбивает номер и дату),потом составляется предписание(так же фиксируется номер внутренний и регистрационный номер и дату и срок исполнения(срок исполнения и то время до какого периода должны быть сданы ВСЕ документы)) и такими темпами в диапазоне от J до X заполняются. Бывают такие специалист (их называют должниками) они могут сдать 2-3документа и месяцев 5-6 не появляться. Вот таких людей необходимо выводит с галочкой НЕ ЗАКРЫТ. А бывает что сдают все документы,кроме документов в ячейках P,S.. и и тоже нужно вывести.
надеюсь всё четко и понятно вам объяснила.
иначи я просто не знаю как ещё.
...
Рейтинг: 0 / 0
26.04.2014, 18:13
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626646
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Не нужно объяснять, что у вас там происходит в организации, кто куда с какими документами бегает, и как называются у вас там сотрудники. Нужно всего лишь объяснить, по каким принципам отбираются строки для каждой из галочек.

Раз вы не в состоянии описать сразу обе галочки, попробуем по одной:
Видимо, вы хотели сказать:
"Если включена галочка "не закрыт", то нужно отобрать те строки, хотя бы одна из ячеек от J до X не заполнена"

правильно?
...
Рейтинг: 0 / 0
26.04.2014, 18:30
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626647
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,да
...
Рейтинг: 0 / 0
26.04.2014, 18:32
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626650
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Теперь аналогично нужно написать для второй галки:

"Если включена галочка "закрыт", то нужно отобрать те строки, где....

(минимум слов!!!! только про ячейки, а не про бумажки в бухгалтерских шкафах)
...
Рейтинг: 0 / 0
26.04.2014, 18:36
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626651
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, заполнена вся
...
Рейтинг: 0 / 0
26.04.2014, 18:38
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626653
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя БеловаShocker.Pro, заполнена всяТЬФУ!!!!

кто такая вся????

"Если включена галочка "закрыт", то нужно отобрать те строки, где заполнены все ячейки от A до Х"

так?
...
Рейтинг: 0 / 0
26.04.2014, 18:40
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626656
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro,да.только от J до X
...
Рейтинг: 0 / 0
26.04.2014, 18:47
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626673
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя Беловада.только от J до Xвот видите, вы все время отвечаете разное и никогда - однозначно, поэтому сложно понять, что вы хотите.

ок, итого:
"Если включена галочка "не закрыт", то нужно отобрать те строки, хотя бы одна из ячеек от J до X не заполнена"
"Если включена галочка "закрыт", то нужно отобрать те строки, где заполнены все ячейки от J до Х"

возвращаемся к вопросу: почему в вашем файле-образце на листе "закрыт" присутствуют строки, где ячейка L не заполнена?
...
Рейтинг: 0 / 0
26.04.2014, 19:28
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626696
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, заполняется тоже
...
Рейтинг: 0 / 0
26.04.2014, 21:02
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626698
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
а тот я кинула вам тишь.показать наглядно.не нужно на него всё время опираться
...
Рейтинг: 0 / 0
26.04.2014, 21:03
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626781
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Настя Беловатак хотелось быНастя Беловане нужно на него всё время опиратьсяБраво, Настя, браво, бурные продолжительные аплодисменты!!! Сознайтесь - вы ведь блондинка, несомненно! Выложить заведомо неверный образец, чтобы проиллюстрировать, что вам требуется!

Вот ваша модифицированная процедура формирования отчета. Дальше сами.
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
Private Sub CommandButton1_Click()
    Dim wsh As Worksheet, strMonthName$, strFamilyName$, lngRow1&, lngRow2&
    Dim i As Long
    
    strMonthName = ComboBox1.Value
    strFamilyName = ComboBox2.Value
    
    'Application.ScreenUpdating = False
    
    Set wsh = Worksheets.Add
    wsh.Name = strMonthName & Format(Now(), " dd/mm/yy hh.nn.ss")
    'Имя листа не должно превышать 31 символа
    
    With Worksheets(strMonthName)
       .Rows(1).Copy wsh.Cells(1, "A"): lngRow2 = 2
         
       If Me.CheckBox1 Or Me.CheckBox2 Then
         For lngRow1 = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            If Trim(CStr(.Cells(lngRow1, "I"))) = strFamilyName Then
                If Me.CheckBox1 Then
                  For i = 10 To 24
                    If Trim(CStr(.Cells(lngRow1, i))) = "" Then
                        .Rows(lngRow1).Copy wsh.Cells(lngRow2, "A"): lngRow2 = lngRow2 + 1
                        Exit For
                    End If
                  Next
                Else
                  For i = 10 To 24
                    If Trim(CStr(.Cells(lngRow1, i))) = "" Then Exit For
                  Next
                  If i = 25 Then .Rows(lngRow1).Copy wsh.Cells(lngRow2, "A"): lngRow2 = lngRow2 + 1
                End If
            End If
         Next
       End If
    End With
    
    'Application.ScreenUpdating = True
End Sub


...
Рейтинг: 0 / 0
26.04.2014, 22:35
| Ответить | Цитировать | Написать  
Вывод отчет
    #38626794
Настя Белова
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настя Белова
Участник
Shocker.Pro, ну спасибо
...
Рейтинг: 0 / 0
26.04.2014, 22:54
| Ответить | Цитировать | Написать  
70 сообщений из 70, показаны все 3 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод отчет
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2156393]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 60ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 85ms
get tp. blocked users:
 1ms
others: 288ms
total:  479ms
созд. / загр.: 479ms
x
x
Закрыть


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