Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подсчет количества раз - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет количества раз (Макросы/Sub)
Подсчет количества раз
ant6729 Дата: Четверг, 05.04.2018, 14:54 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 434
Репутация: -6 ±
Замечаний: 60% ±

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)
 
Ответить
СообщениеВсем привет, хочу подсчитать номер раза.

Есть цикл ищет условимся 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 ом - но он считает количество просматриваемых ячеек и словил себя на мысли, что разы-то я считать и не умею...

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

Автор - ant6729
Дата добавления - 05.04.2018 в 14:54
nilem Дата: Четверг, 05.04.2018, 15:09 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1447
Репутация: 511 ±
Замечаний: 0% ±

Excel 2013
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
 
Ответить
Сообщение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]

Автор - nilem
Дата добавления - 05.04.2018 в 15:09
Mikael Дата: Четверг, 05.04.2018, 15:09 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация: 24 ±
Замечаний: 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, добрый день
Так хотели?
[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]

Автор - Mikael
Дата добавления - 05.04.2018 в 15:09
ant6729 Дата: Четверг, 05.04.2018, 15:31 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 434
Репутация: -6 ±
Замечаний: 60% ±

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

Автор - ant6729
Дата добавления - 05.04.2018 в 15:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет количества раз (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!