Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2013, 15:57   #1
Stem79
Пользователь
 
Регистрация: 29.01.2013
Сообщений: 43
Лампочка Написать макрофункцию подсчета количетсва?

Здравствуйте!

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

Пример:

Выпадающий список:
Вася
Коля
Маша
Витя
Оля

Значения столбца А:А
Вася
Вася
Коля
Маша
Витя
Витя
Витя
Оля

Результат As Long: Вася = 2 + Коля = 1 + Маша = 1 + Витя = 3 + Оля = 1 ==== 8

Cпасибо!

Последний раз редактировалось Stem79; 12.02.2013 в 17:24.
Stem79 вне форума Ответить с цитированием
Старый 12.02.2013, 16:02   #2
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Ловите
Код:
Sub m()
    Dim myCol As Collection
    Set myCol = New Collection
    For i = 1 To [a1].End(xlDown).Row
        t = 1
        On Error Resume Next
        t = Val(Split(myCol(Cells(i, 1)), "=")(1)) + 1
        myCol.Remove (Cells(i, 1))
        On Error GoTo 0
        myCol.Add Cells(i, 1) & "=" & t, Cells(i, 1)
    Next
    
    For i = 1 To myCol.Count
        Range("C" & i) = myCol(i)
    Next
End Sub
Заказать макрос можно на сайте http://excel4you.ru/

Последний раз редактировалось Watcher_1; 12.02.2013 в 16:08.
Watcher_1 вне форума Ответить с цитированием
Старый 12.02.2013, 16:37   #3
Stem79
Пользователь
 
Регистрация: 29.01.2013
Сообщений: 43
По умолчанию

Цитата:
Сообщение от Watcher_1 Посмотреть сообщение
Ловите
Код:
Sub m()
    Dim myCol As Collection
    Set myCol = New Collection
    For i = 1 To [a1].End(xlDown).Row
        t = 1
        On Error Resume Next
        t = Val(Split(myCol(Cells(i, 1)), "=")(1)) + 1
        myCol.Remove (Cells(i, 1))
        On Error GoTo 0
        myCol.Add Cells(i, 1) & "=" & t, Cells(i, 1)
    Next
    
    For i = 1 To myCol.Count
        Range("C" & i) = myCol(i)
    Next
End Sub
Спасибо, а как переделать на макрофункцию? Входные параметры - это диапазон (столбец) и список c текстовыми значениями, возвращает значение суммы, как As Long

Последний раз редактировалось Stem79; 12.02.2013 в 16:40.
Stem79 вне форума Ответить с цитированием
Старый 12.02.2013, 17:15   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

см. вложение. так?
Вложения
Тип файла: rar КниГА.rar (6.0 Кб, 11 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.02.2013, 17:21   #5
Stem79
Пользователь
 
Регистрация: 29.01.2013
Сообщений: 43
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
см. вложение. так?
Выпадающий список значений на вход поступает с текстовыми значениями.По всему списку нужно пробежаться, а диапазон столбца А:А, да именно такой. Извините, что забыл упомянуть выпадающий список значений.

Последний раз редактировалось Stem79; 12.02.2013 в 17:23.
Stem79 вне форума Ответить с цитированием
Старый 12.02.2013, 20:15   #6
Stem79
Пользователь
 
Регистрация: 29.01.2013
Сообщений: 43
По умолчанию

Спасибо парни, разобрался с этим вопросом.
Stem79 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать функцию подсчета суммы битов в байте abc1234 Помощь студентам 5 16.01.2013 15:38
Программа подсчета arnold Паскаль, Turbo Pascal, PascalABC.NET 6 03.01.2013 14:57
Программа для подсчета PaladinRus Помощь студентам 1 17.07.2010 07:11
Подсчета суммы. Delphi Damer Помощь студентам 2 31.03.2010 17:17
Помогите написать формулу подсчета komar73 Microsoft Office Excel 5 27.03.2009 23:40