В таблице распечатке телефонных вызовов по номеру абонента определить число его исходящих звонков

@BROOKLYN01 · Регистрация: 07.12.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер! Вопрос жизни и смерти! Не могу справиться с макросом. Нужно в таблице распечатке телефонных вызовов по номеру абонента определить: число его исходящих звонков, общую продолжительность разговоров и среднюю продолжительность разговора. Заранее спасибо!

Скрипт · 07.12.2012, 21:03

BROOKLYN01, выложите книгу Excel с примерными данными и поясните, что нужно сделать.

@BROOKLYN01 · 07.12.2012, 21:33 **[ТС]**

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

Скрипт · 07.12.2012, 21:53

BROOKLYN01, а алгоритм какой:

пользователь нажимает кнопку на Панели инструментов;
появляется диалоговое окно;
пользователь вводит номер телефона;
нажимает кнопку "OK";
программа выдаёт сообщение с результатом.

Так?

@BROOKLYN01 · 07.12.2012, 21:55 **[ТС]**

Да да

Скрипт · 07.12.2012, 22:07

BROOKLYN01, данные берутся из столбцов B, C, D, E.

Код:

Кликните здесь для просмотра всего текста

Visual Basic

Sub Procedure_1()
 
    Dim sNumber As String
    Dim dData(1 To 3) As Double
    Dim i As Long
    
    'Здесь в переменную "sNumber" помещаем номер телефона.
    sNumber = InputBox("Укажите номер телефона.")
    
    'В цикле с "i" двигаемся по столбцу "B".
    For i = 1 To 8 Step 1
    
        'Если номер телефона в столбце "B"
        'совпадает с введённым номером телефона,
        'то помещаем данные в массив.
        
        If CStr(Cells(i, "B").Value) = sNumber Then
        
            dData(1) = dData(1) + Cells(i, "C").Value
            dData(2) = dData(2) + Cells(i, "D").Value
            dData(3) = dData(3) + Cells(i, "E").Value
            
        End If
        
    Next i
    
    'Выводим результат.
    MsgBox "Пункт 1: " & dData(1) & vbCr & _
        "Пункт 2: " & dData(2) & vbCr & _
        "Пункт 3: " & dData(3)
 
End Sub

@BROOKLYN01 · 07.12.2012, 22:51 **[ТС]**

Огромное спасибо! А еще такой вопрос а как сделать так чтобы кликнуть к пример на фамилию или номер и также выдавало бы.

Скрипт · 07.12.2012, 22:59

BROOKLYN01, в сообщении #7, в коде, строки 7 и 8 замените на эти:

Visual Basic

1 2	'Здесь в переменную "sNumber" помещаем номер телефона из активной ячейки. sNumber = CStr(ActiveCell.Value)

Перед запуском кода нужно сделать активной ячейку с номером телефона, по которому нужно получить информацию.

@BROOKLYN01 · 07.12.2012, 23:13 **[ТС]**

Еще раз огромное спасибо вы меня спасли!

Добавлено через 6 минут
Огромное спасибо еще раз!

@BROOKLYN01 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 11
		1
	В таблице распечатке телефонных вызовов по номеру абонента определить число его исходящих звонков 07.12.2012, 20:47. Показов 2632. Ответов 8 Метки нет (Все метки) Добрый вечер! Вопрос жизни и смерти! Не могу справиться с макросом. Нужно в таблице распечатке телефонных вызовов по номеру абонента определить: число его исходящих звонков, общую продолжительность разговоров и среднюю продолжительность разговора. Заранее спасибо! 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	07.12.2012, 21:03	2
	BROOKLYN01, выложите книгу Excel с примерными данными и поясните, что нужно сделать. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	07.12.2012, 21:53	4
	BROOKLYN01, а алгоритм какой: пользователь нажимает кнопку на Панели инструментов; появляется диалоговое окно; пользователь вводит номер телефона; нажимает кнопку "OK"; программа выдаёт сообщение с результатом. Так? 0

@BROOKLYN01 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 11
	07.12.2012, 21:55 [ТС]	5
	Да да 0

@BROOKLYN01 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 11
	07.12.2012, 22:51 [ТС]	7
	Огромное спасибо! А еще такой вопрос а как сделать так чтобы кликнуть к пример на фамилию или номер и также выдавало бы. 0

@BROOKLYN01 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 11
	07.12.2012, 23:13 [ТС]	9
	Еще раз огромное спасибо вы меня спасли! Добавлено через 6 минут Огромное спасибо еще раз! 0