Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 07.02.2018
Сообщений: 92
1
Excel

Распределение звонков по городам

08.11.2018, 16:13. Просмотров 998. Ответов 3
Метки нет (Все метки)

Всем привет, уважаемые знатоки vba. Помогите написать макрос, пожалуйста.
Есть огромный справочник с расшифровкой по телефонным звонкам. кусок файла прилагаю (Лист1 в книги эксель)
Нужно разбить звонки по городам. То что должно получиться - Лист2 в книги эксель)
Помогите плиз написать макрос для обработки этого списка. Что бы данные брать с листа 1, нажимать на кнопку, и на листе 2 образовывался итог.
В идеале я хочу, что бы это работало так:
есть книга, при открытии запускается форма с текстовым полем и двумя кнопками.
Пользователь выбирает файл, который нужно обработать, нажимает на кнопку и на выходе получается уже готовый экселевский файл с разбивкой по звонкам.

Помогите пожалуйста осуществить. Заранее огромное спасибо.
0
Вложения
Тип файла: xlsx Телефония.xlsx (13.1 Кб, 8 просмотров)
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2018, 16:13
Ответы с готовыми решениями:

Подсчитать распределение числа покупателей по городам
Привет всем.Необходимо сделать запрос: Определить распределение числа покупателей по городам в 2005...

Запрос по государствам и городам
Здравствуйте! Мне нужна ваша помощь! Дело в том, что у меня есть несколько таблиц. Місто (код...

Инстаграмм аккаунты по городам
Всем привет, друзья! :) Может кто работал и имеет представление по средствам чего можно найти...

Поддомены сайта по городам
Есть такой сайт https://gorko.ru Там для каждого города есть свой поддомен, вот интересно они...

3
3190 / 944 / 217
Регистрация: 29.05.2010
Сообщений: 2,054
08.11.2018, 21:45 2
А сводная таблица не подойдет
1
Вложения
Тип файла: xlsx Телефония.xlsx (19.1 Кб, 4 просмотров)
0 / 0 / 1
Регистрация: 07.02.2018
Сообщений: 92
09.11.2018, 09:03  [ТС] 3
toiai, Спасибо, тоже интересный вариант.
Но хотелось бы все таки макросом.
0
14940 / 6339 / 1724
Регистрация: 24.09.2011
Сообщений: 9,977
11.11.2018, 13:01 4
Лучший ответ Сообщение было отмечено _Zigzag_ как решение

Решение

_Zigzag_,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Zi()
  With Range("A3", Cells(Rows.Count, "F").End(xlUp))
    With .Columns(1)
      .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
      .Value = .Value
    End With
    .Sort .Columns(4), xlAscending, Header:=xlYes
    .Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(5, 6), _
      Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    With .Resize(.Rows.Count + 2)
      With .Columns(5).Resize(, 2)
        .Value = .Value
      End With
      .Borders.Weight = xlThin
      .RemoveSubtotal
    End With
  End With
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2018, 13:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Распределение расходов по видам деятельности для УСН в Бухгалтерии 2.0 (распределение зарплаты)
Добрый день. Бухгалтерия предприятия, редакция 2.0 (2.0.64.20). При закрытии месяца март 2015 г....

Составьте таблицу распределение и найдите функцию распределение числа появлений цифры
Монету бросают, пока не выпадет герб. Составьте таблицу распределение и найдите функцию...

Двумерное нормальное распределение (Гаусса). Распределение значений в матрице
Здравствуйте. Для реализации алгоритма внедрения водяного знака мне нужно сделать распределение...

Поиск кратчайшего пути по городам
Посредством random задается симметричная матрица размерностью n (n - количество городов). По...

Реализация навигации курсов по городам и направлениям
Заказчик попросил сделать так чтобы показывались курсы по направлениям и городам. (см. вложение...

"Конаково", - ранжирование по 1250 городам России
Первоисточник от 22.12.2009 года, 18:30, опубликовано по адресу:...


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

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

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