Подсчет количества раз

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет количества раз (Макросы/Sub)

ant6729

Дата: Четверг, 05.04.2018, 14:54 | Сообщение № 1

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

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

Сообщений: 533

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

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

Excel 2010

Всем привет, хочу подсчитать номер раза.

Есть цикл ищет условимся 3

[vba]

Код

Sub inpvfut()

Dim m As Integer

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lr

If Cells(i, 1).Value = 3 Then MsgBox "Вася"

Next i

End Sub

[/vba]

Хочу понять, как сделать. чтобы
Когда первый раз выводится в MsgBox Вася, то внизу ставится 1
Когда второй раз выводится в MsgBox Вася, то внизу ставится 2
И так далее

То есть подписывается раз совпадения.

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

Прошу подсказать, как этого достичь
Спасибо.

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

Ответить

nilem

Дата: Четверг, 05.04.2018, 15:09 | Сообщение № 2

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

ant6729, привет
как-то так, наверное
[vba]

Код

Sub inpvfut()
Dim lr As Integer, i%, cnt%

lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
    If Cells(i, 1).Value = 3 Then
        cnt = cnt + 1
        MsgBox "Вася " & cnt
    End If
Next i
MsgBox "Всего Васей: " & cnt, 64
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Mikael

Дата: Четверг, 05.04.2018, 15:09 | Сообщение № 3

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

Ранг: Участник

Сообщений: 80

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

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

Excel 2010

ant6729, добрый день
Так хотели?
[vba]

Код

Sub inpvfut()

Dim m As Integer, lCntr&

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lr

If Cells(i, 1).Value = 3 Then lCntr = lCntr + 1: MsgBox "Вася" & vbLf & lCntr

Next i

End Sub

[/vba]

Ответить

ant6729

Дата: Четверг, 05.04.2018, 15:31 | Сообщение № 4

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

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

Сообщений: 533

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

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

Excel 2010

Всем спасибо, оказывается "counter" надо было так прописать...
А его между фор и иф ставил...
Недоработал.. сегодня спешу...
Воспользовался советом Михаила
Всем спасибо!!!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет количества раз (Макросы/Sub)

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