Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 08.04.2009, 03:06   #1
Dimati87
Пользователь
 
Регистрация: 04.03.2009
Сообщений: 44
По умолчанию счетчик

помогите написать счетчик. когда запускаем макрос, он создает новый лист. в этом листе выдается сумма по фамилиям, а как сделать чтоб он выдавал еще и количество фамилий
Вложения
Тип файла: rar пример_3_comments.rar (9.8 Кб, 13 просмотров)
Dimati87 вне форума Ответить с цитированием
Старый 08.04.2009, 03:41   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,165
По умолчанию

А куда помещать это значение? Пусть, например, в ячейку "C1". Тогда последней строкой кода добавьте
Код:
[C1] = x.Count
SAS888 вне форума Ответить с цитированием
Старый 09.04.2009, 08:06   #3
Dimati87
Пользователь
 
Регистрация: 04.03.2009
Сообщений: 44
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
А куда помещать это значение? Пусть, например, в ячейку "C1". Тогда последней строкой кода добавьте
Код:
[C1] = x.Count
допустим в С1 но нужно чтоб выводил колличество пертовых, иванновых,
......, на против фамилии
Dimati87 вне форума Ответить с цитированием
Старый 09.04.2009, 09:02   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,165
По умолчанию

В Вашем макросе, фрагмент кода
Код:
With Sheets("Лист1")
        For i = 1 To UBound(b)
            b(i) = Application.SumIf(.Columns("A"), x(i), .Columns("B"))
            'Выводим в новый лист в столбец "A" - элементы коллекции,
            'в столбец "B" - суммы
            Cells(i, "A") = x(i): Cells(i, "B") = b(i)
        Next
    End With
Замените на
Код:
With Sheets("Лист1")
        For i = 1 To x.Count
            Cells(i, "A") = x(i)
            Cells(i, "B") = Application.SumIf(.Columns("A"), x(i), .Columns("B"))
            Cells(i, "C") = Application.CountIf(.Columns("A"), x(i))
        Next
    End With
SAS888 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Счетчик посещений Рустам PHP 7 21.10.2009 08:38
счетчик страниц Bogood Помощь студентам 2 07.03.2009 21:44
счетчик на ПХП! inetexer Помощь студентам 4 08.05.2008 16:18
Счетчик трафика Black DeviL Работа с сетью в Delphi 2 04.02.2008 18:00


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS