Создать список клиентов для фирмы - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Создать список клиентов для фирмы - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Создать список клиентов для фирмы (Сводные таблицы/Pivot Table)

Создать список клиентов для фирмы

Дата: Пятница, 17.04.2015, 18:08 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.
Для компании требуется создать определенно построенный список клиентов с их данными в таблице excel. Собственно сам список уже имеется и мы знаем, как он должен выглядеть. Вопрос заключается в следующем - можно ли как-то создать такой список автоматически? Нужно облегчить работу менеджеру, чтобы он не вбивал все данные в каждую ячейку вручную, так как клиентов порядка 8000. Я просто не очень хорошо знакома с функциями excel и сказала менеджеру, что такой функции просто не существует). То есть по сути сейчас работа эта выглядит так - берем из одного файла название клиента, копируем в новый список в определенный столбец.

Файл пример прилагаю, вопрос заключается в автоматическом создании списка. В примере уже готовый вариант списка, как все данные автоматически разместить в этом списке?

К сообщению приложен файл: 8276241.xlsx (82.2 Kb)

Сообщение отредактировал fotomodel - Пятница, 17.04.2015, 18:12

Ответить

Дата: Пятница, 17.04.2015, 18:41 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1130 ±

Замечаний: 0% ±

Excel 2003

Исходный список на каком листе?

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Пятница, 17.04.2015, 19:31 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата AlexM, 17.04.2015 в 18:41, в сообщении № 2

Исходный список на каком листе?

Исходный список в отдельном файле excel

Ответить

Дата: Пятница, 17.04.2015, 20:29 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1130 ±

Замечаний: 0% ±

Excel 2003

Вы дали один файл с двумя листами. Исходный список на каком листе?

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Пятница, 17.04.2015, 22:45 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Не удается прикрепить файл с двумя листами информации из-за превышенного размера.
Создала два отдельных файла - база клиентов (как должно быть) и исходный список данных (откуда надо взять информацию для базы клиентов).

К сообщению приложен файл: 3911925.xlsx (81.2 Kb) · 3076318.xls (28.0 Kb)

Ответить

Дата: Пятница, 17.04.2015, 23:36 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2643

Репутация: 739 ±

Замечаний: 0% ±

2010

Посмотрите вариант с доп. столбцами.

К сообщению приложен файл: fotomodel.xlsx (29.1 Kb)

ЯД-41001506838083

Ответить

Дата: Суббота, 18.04.2015, 00:03 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Так, примерно поняла. А теперь, если можно, вкратце опишите действия с этим файлом, чтобы правильно понять.

Ответить

Дата: Суббота, 18.04.2015, 00:43 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2643

Репутация: 739 ±

Замечаний: 0% ±

2010

Вставляете данные 8000 клиентов на Лист2 в столбец А, на листе 1 и Листе1(а) в таблицу разносятся данные. Конечно формулы на Листе1 и Листе1(а), придется протянуть вниз на 8000 строк. И увеличить при необходимости именованный диапазон. На Листе2 тоже придется формулы в доп. столбцах (В:Е), протянуть вниз до конца списка клиентов.

ЯД-41001506838083

Ответить

Дата: Суббота, 18.04.2015, 01:15 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 715

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

В файл 3076318.xls вставьте Лист1
В модуль Листа2 скопируйте макрос
[vba]

Код

Sub Klient()
Dim i As Long
Dim j As Long
Dim iLastRow
     iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
     With Worksheets("Лист1")
         .Cells.Clear
         .Range("A1:G1") = Array("Название компании", "Адрес", "Руководитель", "Телефон", "Факс", _
                    "Направление деятельности", "Собственность")
       j = 1
       For i = 1 To iLastRow
         If Not IsEmpty(Cells(i, 1)) Then
          If InStr(1, Cells(i, 1), ":") = 0 Then
            j = j + 1
            .Cells(j, 1) = Cells(i, 1)
          Else
            Select Case Split(Cells(i, 1), ":")(0)
               Case "Адрес"
                 .Cells(j, 2) = Split(Cells(i, 1), ":")(1)
               Case "Руководитель"
                 .Cells(j, 3) = Split(Cells(i, 1), ":")(1)
               Case "Телефон"
                 .Cells(j, 4) = Split(Cells(i, 1), ":")(1)
               Case "Факс"
                 .Cells(j, 5) = Split(Cells(i, 1), ":")(1)
               Case "Направление деятельности"
                 .Cells(j, 6) = Split(Cells(i, 1), ":")(1)
               Case "Собственность"
                 .Cells(j, 7) = Split(Cells(i, 1), ":")(1)
            End Select
          End If
         End If
         Next
     End With
End Sub

[/vba]
Находясь на Листе2 запустите макрос Klient, результат на Листе1

В файл 3076318.xls вставьте Лист1
В модуль Листа2 скопируйте макрос
[vba]

Код

Sub Klient()
Dim i As Long
Dim j As Long
Dim iLastRow
     iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
     With Worksheets("Лист1")
         .Cells.Clear
         .Range("A1:G1") = Array("Название компании", "Адрес", "Руководитель", "Телефон", "Факс", _
                    "Направление деятельности", "Собственность")
       j = 1
       For i = 1 To iLastRow
         If Not IsEmpty(Cells(i, 1)) Then
          If InStr(1, Cells(i, 1), ":") = 0 Then
            j = j + 1
            .Cells(j, 1) = Cells(i, 1)
          Else
            Select Case Split(Cells(i, 1), ":")(0)
               Case "Адрес"
                 .Cells(j, 2) = Split(Cells(i, 1), ":")(1)
               Case "Руководитель"
                 .Cells(j, 3) = Split(Cells(i, 1), ":")(1)
               Case "Телефон"
                 .Cells(j, 4) = Split(Cells(i, 1), ":")(1)
               Case "Факс"
                 .Cells(j, 5) = Split(Cells(i, 1), ":")(1)
               Case "Направление деятельности"
                 .Cells(j, 6) = Split(Cells(i, 1), ":")(1)
               Case "Собственность"
                 .Cells(j, 7) = Split(Cells(i, 1), ":")(1)
            End Select
          End If
         End If
         Next
     End With
End Sub

[/vba]
Находясь на Листе2 запустите макрос Klient, результат на Листе1Kuzmich

Ответить

СообщениеВ файл 3076318.xls вставьте Лист1
В модуль Листа2 скопируйте макрос
[vba]

Код

Sub Klient()
Dim i As Long
Dim j As Long
Dim iLastRow
     iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
     With Worksheets("Лист1")
         .Cells.Clear
         .Range("A1:G1") = Array("Название компании", "Адрес", "Руководитель", "Телефон", "Факс", _
                    "Направление деятельности", "Собственность")
       j = 1
       For i = 1 To iLastRow
         If Not IsEmpty(Cells(i, 1)) Then
          If InStr(1, Cells(i, 1), ":") = 0 Then
            j = j + 1
            .Cells(j, 1) = Cells(i, 1)
          Else
            Select Case Split(Cells(i, 1), ":")(0)
               Case "Адрес"
                 .Cells(j, 2) = Split(Cells(i, 1), ":")(1)
               Case "Руководитель"
                 .Cells(j, 3) = Split(Cells(i, 1), ":")(1)
               Case "Телефон"
                 .Cells(j, 4) = Split(Cells(i, 1), ":")(1)
               Case "Факс"
                 .Cells(j, 5) = Split(Cells(i, 1), ":")(1)
               Case "Направление деятельности"
                 .Cells(j, 6) = Split(Cells(i, 1), ":")(1)
               Case "Собственность"
                 .Cells(j, 7) = Split(Cells(i, 1), ":")(1)
            End Select
          End If
         End If
         Next
     End With
End Sub

[/vba]
Находясь на Листе2 запустите макрос Klient, результат на Листе1

Автор - Kuzmich
Дата добавления - 18.04.2015 в 01:15

Дата: Суббота, 18.04.2015, 11:04 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2643

Репутация: 739 ±

Замечаний: 0% ±

2010

Пересмотрел свой файл, формирует таблицу не правильно. Руководители распределились не верно. ~~Требуется дороботка файла.~~
Немного изменил формулу и добавил макрос как написал Kuzmich.

К сообщению приложен файл: fotomodel.xlsm (38.3 Kb)

ЯД-41001506838083

Сообщение отредактировал gling - Суббота, 18.04.2015, 11:16

Ответить

Дата: Суббота, 18.04.2015, 12:02 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Все получилось! Подскажите, еще пожалуйста, у меня в файле получается 4 листа. Данные взяты из Листа 2, конечные данные на Листе 1. Их я понятное дело сохраняю. Есть еще Лист 11 и Лист 1а, можно ли удалить последние два листа? Или все нужно сохранить как есть?

Ответить

Дата: Суббота, 18.04.2015, 12:13 | Сообщение № 12

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2643

Репутация: 739 ±

Замечаний: 0% ±

2010

Если таблицу формируете макросом, Лист11 и Лист1(а) можно удалить и на Листе2 формулы в дополнительных столбцах (В:Е), тоже можно удалить.

ЯД-41001506838083

Ответить

Дата: Суббота, 18.04.2015, 12:31 | Сообщение № 13

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Огромное вам всем спасибо, вы мне очень помогли.

Вопрос не совсем в тему - человеку, практически не знакомому с excel с чего лучше начать обучение (это я про себя))?

Ответить

Дата: Суббота, 18.04.2015, 14:31 | Сообщение № 14

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Цитата

с чего лучше начать обучение

почитайте Джона Уокенбаха

Ответить

Дата: Суббота, 18.04.2015, 15:20 | Сообщение № 15

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата buchlotnik, 18.04.2015 в 14:31, в сообщении № 14

почитайте Джона Уокенбаха

Обязательно почитаю! Спасибо большое!

Ответить

Дата: Воскресенье, 19.04.2015, 01:56 | Сообщение № 16

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

еще вариант с использованием надстройки Power Query (для работы запроса в файле она должна быть установлена)
Свой исходный список вставляете в первый столбец Таблицы1, жмете Ctrl+Alt+F5 и в после выполнения запроса в таблице Список (справа) появляется сформированный список

К сообщению приложен файл: 9833490.xls (71.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Создать список клиентов для фирмы (Сводные таблицы/Pivot Table)

Страница 1 из 1
1

© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!