0 / 0 / 0
Регистрация: 07.01.2016
Сообщений: 6
1

Как создать телефонную книгу (вытащить данные из нескольких листов на один), телефонная книга

25.07.2017, 17:59. Показов 823. Ответов 1
Метки нет (Все метки)

В файле есть 50 листов с именами, фамилиями сотрудников и другой инфой.

Нужно:

1 - создать телефонную книгу, на один лист вытащить все имена и телефоны сотрудников.

2 - в случае появления нового сотрудника (в одном из 50 листов), телефонная книга автоматически пополнялась.

Помогите, ребята.

Спасибо.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: xlsx пример.xlsx (9.0 Кб, 8 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.07.2017, 17:59
Ответы с готовыми решениями:

Выбрать данные из нескольких листов на один лист
Приветствую всех. предистория: на одном листе есть несколько диапазонов ячеек с данными по 2...

Собрать данные из нескольких листов Excel на один лист
Добрый день! Подскажите как решить следующую задачку: Нужно собрать данные с листов Эксель,...

Используя массив, создать телефонную книгу
используя массив создать тел книгу,вводим имя и должен выйти телефон....на С++ если получитсЯ то...

Телефонная книга: Добавить данные о новом абоненте, удалить о выбывшем
Требуется создать автоматизированную версию телефонной книги, нужны поля: фамилия, имя, отчество,...

1
1051 / 498 / 134
Регистрация: 27.02.2013
Сообщений: 1,439
25.07.2017, 20:05 2
carlito666, создайте новый лист и вставьте код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    
    Range(Cells(2, 1), Cells(Rows.Count, 3).End(xlUp)).ClearContents
    For r = 2 To Sheets.Count
    For Each sh In Sheets
        If Not sh Is ActiveSheet Then
            With sh.Range(sh.Cells(2, 1), sh.Cells(Rows.Count, 1).End(xlUp))
                Cells(r, 1).Resize(.Count).Value = .Value
               
            End With
            With sh.Range(sh.Cells(2, 2), sh.Cells(Rows.Count, 2).End(xlUp))
                Cells(r, 2).Resize(.Count).Value = .Value
              
            End With
            With sh.Range(sh.Cells(2, 3), sh.Cells(Rows.Count, 3).End(xlUp))
                Cells(r, 3).Resize(.Count).Value = .Value
                r = r + .Count
            End With
        End If
    Next
    Next
    Application.ScreenUpdating = True
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.07.2017, 20:05

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как соединить данные с двух листов в один?
Здравствуйте. Есть 2 листа. Лист 1 : А В С ...

Как импортировать(а именно вырезать и вставлять) строки соответствующие заданному условию из нескольких листов в один?
Доброго всем времени суток!!!!Срочно нужна помощь!Как импортировать(а именно вырезать и вставлять)...

Как vcf файлы перенести в телефонную книгу?
Переносил контакты с простого телефона на смартфон (Xiaomi Redmi Note 4x). Скинул контакты на...

Объединение нескольких листов в один
Всем, добрый день. Возник довольно известный вопрос, но решения не удалось найти, перепробовал...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.