ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не могу содать цикл обращения к листам
20 сообщений из 20, страница 1 из 1
Не могу содать цикл обращения к листам
    #34618767
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Добрый день! У меня возникла проблема, которую я не могу решить, поскольку слабо разбираюсь в программировании, а начальник требует…

Суть проблемы в том, что мне надо склеить данные со всех ЛИСТОВ , в один лист4. Купила несколько книг и не могу разобраться, да и здесь на форуме есть несколько примеров, но для начинающей очень сложные.


Вот до чего дошла(научилась находить последнюю ячейку и копировать туда), выглядит кривовато, но работает:

Private Sub CommandButton1_Click()

[A1].CurrentRegion.Select 'выделение диапазона
Selection.End(xlDown).Select 'нахождение последней строки
Range("A1:B1").Copy
ActiveCell.Offset(1).Select 'сдвиг относительно последней ячейки на 1
ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, Transpose:=False 'вставка

End Sub

Я не могу справиться с циклами обращения ко всем листам, может кто скинет макрос-пример обращения ко всем листам и копирование в лист4. Для вас наверное это просто будет: в трех листах в столбце А находится информация, и эту информацию собираем в листе 4. Заранее благодарна.

Ну очень надо!!!!
...
Рейтинг: 0 / 0
25.06.2007, 22:25:21
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34618785
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Public Sub SheetsCopy()
    Const DESTINATION_SHEET As String = "Лист4"
        Dim iSheet As Worksheet, wsDestination As Worksheet
    Application.ScreenUpdating = False
    Set wsDestination = ThisWorkbook.Worksheets(DESTINATION_SHEET)
    For Each iSheet In ThisWorkbook.Worksheets
        If Not iSheet Is wsDestination Then
            iSheet.Activate
            Range("A1", Range("A1").End(xlDown)).Copy
            wsDestination.Activate
            If Range("A1").Value = vbNullString Then
                Range("A1").PasteSpecial xlPasteAll
            Else
                Range("A1").End(xlDown).Offset( 1 ,  0 ).PasteSpecial xlPasteAll
            End If
        End If
    Next iSheet
    Application.ScreenUpdating = True
    Application.CutCopyMode = False

End Sub
...
Рейтинг: 0 / 0
25.06.2007, 22:43:49
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34618811
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Спасибо, завтра на работе попробую, а если не получиться подскажете еще варианты? а то я пока не сильно все тут понимаю, книги читаю, но книги не все поясняют...загляните завтра в эту тему пожалуйста...
...
Рейтинг: 0 / 0
25.06.2007, 23:21:52
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34618815
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Ок.
Юлиия.... поскольку слабо разбираюсь в программировании, а начальник требует…

Нафига он требует если слабо разбираешься ?
...
Рейтинг: 0 / 0
25.06.2007, 23:28:29
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34618818
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
big-dukeОк.
Юлиия.... поскольку слабо разбираюсь в программировании, а начальник требует…

Нафига он требует если слабо разбираешься ? значит где-то засветилась:) признавайся.
...
Рейтинг: 0 / 0
25.06.2007, 23:37:43
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34621457
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Добрый вечер, да нигде не засветилась, просто молодой и активный специалист, вот и наехал на испытательном сроке...На программиста не училась, но навыки малые имею, а VBA очень не похож на другие языки...Попробовала вчерашний код, а он не подходит...эх что-то я не допоняла...Может посмотрите,что не правильно? С трех листов из столбца А не перекачивается на лист4, может подправите? Прилагаю пример, может подскажете почему не копирует?
...
Рейтинг: 0 / 0
26.06.2007, 20:57:50
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34621460
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Пример может посмотрите? Для кнопки подставила код, а он не работает...Извините, что так долго не отвечаю, инет только дома, имею возможность только вечером общаться...не бросайте мою тему пожалуйста
...
Рейтинг: 0 / 0
26.06.2007, 21:00:07
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34621493
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
вот так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub CommandButton1_Click()

    Const DESTINATION_SHEET As String = "Ëèñò4"
    Dim iSheet As Worksheet, wsDestination As Worksheet
    Application.ScreenUpdating = False
    Set wsDestination = ThisWorkbook.Worksheets(DESTINATION_SHEET)
    For Each iSheet In ThisWorkbook.Worksheets
        If Not iSheet Is wsDestination Then
            iSheet.Select
            iSheet.Range("A1", iSheet.Range("A1").End(xlDown)).Copy
            wsDestination.Activate
            If Range("A1").Value = vbNullString Then
                Range("A1").PasteSpecial xlPasteAll
            Else
                Range("A1").End(xlDown).Offset( 1 ,  0 ).PasteSpecial xlPasteAll
            End If
        End If
    Next iSheet
    Application.ScreenUpdating = True
    Application.CutCopyMode = False

End Sub

...
Рейтинг: 0 / 0
26.06.2007, 21:33:17
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34621624
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Завтра попробую, тема пока не закрыта...мальчики если что еще подскажете? Я конечно всех достала..., но надеюсь что здесь новичков не бросают...
...
Рейтинг: 0 / 0
27.06.2007, 00:13:54
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34621634
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
А дома проверить никак ?
...
Рейтинг: 0 / 0
27.06.2007, 00:23:42
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34622384
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Дома брат к компьютеру не подпускает надолго, у него сейчас защита диплома...

Большое спасибо, в обработке события с кнопки работает, а вот как макрос не хочет запускаться!!!

Я записываю автоматически макрос и в него вставляю ЛИСТИНГ, а он не РАБОТАЕТ!!!!

Что нужно там сделать, чтоб как макрос заработал?



С уважением, ЮЛИИЯ
...
Рейтинг: 0 / 0
27.06.2007, 11:32:58
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34622543
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Юлиия
Я записываю автоматически макрос и в него вставляю ЛИСТИНГ, а он не РАБОТАЕТ!!!!

Что нужно там сделать, чтоб как макрос заработал?
С уважением, ЮЛИИЯ
что за макрос записываешь ?
...
Рейтинг: 0 / 0
27.06.2007, 12:05:05
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34622572
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Я догадалась!!! УРА!!! ЧТОБЫ МАКРОС РАБОТАЛ НАДО СДЕЛАТЬ, ЧТОБЫ ССЫЛКА БЫЛА НА АКТИВНУЮ КНИГУ!!!

ВМЕСТО:

Set wsDestination = ThisWorkbook.Worksheets(DESTINATION_SHEET)
For Each iSheet In ThisWorkbook.Worksheets

НАДО:

Set wsDestination = ActiveWorkbook.Worksheets(DESTINATION_SHEET)
For Each iSheet In ActiveWorkbook.Worksheets


ОГРОМНОЕ СПАСИБО big-duke за помощь!!!


ЭТУ ТЕМУ МОЖНО СЧИТАТЬ ЗАКРЫТОЙ
...
Рейтинг: 0 / 0
27.06.2007, 12:10:42
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34622613
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
По поводу макроса не ответила: хотела, чтобы програмка склейки листов запускалась как макрос с "настраиваемой кнопки", а поскольку я еще мало чего умею, я брала автоматически записывала любой макрос в Exсel стирала ненужный листинг и вставляла ЛИСТИНГ СКЛЕЙКИ ЛИСТОВ, а он не запускался... а там обращаться к активной книге надо!!!


Еще раз ОГРОМНОЕ спасибо, за внимание и терпение проявленное к моей проблеме
...
Рейтинг: 0 / 0
27.06.2007, 12:17:46
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34622647
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Удачи Юля, ты бы нас своей фоткой что-ли порадовала ....
...
Рейтинг: 0 / 0
27.06.2007, 12:22:43
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34624933
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
big-dukeУдачи Юля, ты бы нас своей фоткой что-ли порадовала ....


Чё слабо, да?
...
Рейтинг: 0 / 0
28.06.2007, 00:25:39
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34631868
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
Да нет, не слабо в принципе...просто куда выложить?
...
Рейтинг: 0 / 0
02.07.2007, 12:52:34
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34631896
Фотография Юлиия
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Юлиия
Участник
В профиль?
...
Рейтинг: 0 / 0
02.07.2007, 13:00:59
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34632074
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ЮлиияДа нет, не слабо в принципе...просто куда выложить?

Можно сюда прикрепить так же как и файл, только ограничение на 100 кб стоит!
...
Рейтинг: 0 / 0
02.07.2007, 13:53:38
| Ответить | Цитировать | Написать  
Не могу содать цикл обращения к листам
    #34632141
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
ЮлиияВ профиль?
Можно и в профиль, можно и в личку.
...
Рейтинг: 0 / 0
02.07.2007, 14:09:20
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не могу содать цикл обращения к листам
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34618785&tid=2182673]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 1ms
others: 197ms
total:  347ms
созд. / загр.: 347ms
x
x
Закрыть


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