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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет количества значения в книге (Макросы/Sub)
Подсчет количества значения в книге
Anis625 Дата: Вторник, 09.03.2021, 09:38 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 518
Репутация: 27 ±
Замечаний: 0% ±

Excel 2013
Добрый день, всем участникам форума и с прошедшим праздником прекрасной женской ее половине (а какая на самом деле доля женской "половины" на форуме? может и не половине вовсе :D а больше)!
Подпилил (почти) под свою задачку найденный в просторах интернета макрос который считает по всей книге количество указанного в коде значения (в моем случае "текст5"). В указанном диапазоне активного листа работает, а по всей книге когда указываю
[vba]
Код
Dim wb As Workbook
With wb.Sheets
Set Найдено = .Find(What:="текст5", LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
[/vba]
Ругается на .Find. Подскажите, пожалуйста, где ошибаюсь?
К сообщению приложен файл: VBA_find.xlsm(19.6 Kb)
 
Ответить
СообщениеДобрый день, всем участникам форума и с прошедшим праздником прекрасной женской ее половине (а какая на самом деле доля женской "половины" на форуме? может и не половине вовсе :D а больше)!
Подпилил (почти) под свою задачку найденный в просторах интернета макрос который считает по всей книге количество указанного в коде значения (в моем случае "текст5"). В указанном диапазоне активного листа работает, а по всей книге когда указываю
[vba]
Код
Dim wb As Workbook
With wb.Sheets
Set Найдено = .Find(What:="текст5", LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
[/vba]
Ругается на .Find. Подскажите, пожалуйста, где ошибаюсь?

Автор - Anis625
Дата добавления - 09.03.2021 в 09:38
Pelena Дата: Вторник, 09.03.2021, 09:50 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17442
Репутация: 3876 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Спасибо за поздравления)
Видимо, надо делать цикл по листам


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Спасибо за поздравления)
Видимо, надо делать цикл по листам

Автор - Pelena
Дата добавления - 09.03.2021 в 09:50
Anis625 Дата: Вторник, 09.03.2021, 09:53 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 518
Репутация: 27 ±
Замечаний: 0% ±

Excel 2013
Pelena,
Решение нашел в таком коде:
[vba]
Код
For i = 1 To Sheets.Count
       With Sheets(i).UsedRange
[/vba]
Но сообщение выводит после перебора каждого листа. А не после отработки всей книги =(
К сообщению приложен файл: 9584883.xlsm(21.8 Kb)
 
Ответить
СообщениеPelena,
Решение нашел в таком коде:
[vba]
Код
For i = 1 To Sheets.Count
       With Sheets(i).UsedRange
[/vba]
Но сообщение выводит после перебора каждого листа. А не после отработки всей книги =(

Автор - Anis625
Дата добавления - 09.03.2021 в 09:53
Pelena Дата: Вторник, 09.03.2021, 09:59 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 17442
Репутация: 3876 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Ну, перенесите MsgBox после Next


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеНу, перенесите MsgBox после Next

Автор - Pelena
Дата добавления - 09.03.2021 в 09:59
Anis625 Дата: Вторник, 09.03.2021, 10:00 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 518
Репутация: 27 ±
Замечаний: 0% ±

Excel 2013
Pelena,
Не там поставил (перед Next)
[vba]
Код
MsgBox Счётчик & " значений найдено"
[/vba]
А надо после Next =)
 
Ответить
СообщениеPelena,
Не там поставил (перед Next)
[vba]
Код
MsgBox Счётчик & " значений найдено"
[/vba]
А надо после Next =)

Автор - Anis625
Дата добавления - 09.03.2021 в 10:00
Anis625 Дата: Вторник, 09.03.2021, 10:03 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 518
Репутация: 27 ±
Замечаний: 0% ±

Excel 2013
Pelena,
Тоже нашел эту ошибку. Спасибо Вам большое Вам и всем участникам форума кто помогает в решении житейских задач. Благодаря Вам понемногу осваиваю VBA на практике =)
 
Ответить
СообщениеPelena,
Тоже нашел эту ошибку. Спасибо Вам большое Вам и всем участникам форума кто помогает в решении житейских задач. Благодаря Вам понемногу осваиваю VBA на практике =)

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

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