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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Подсчет количества значения в книге
Anis625 Дата: Вторник, 09.03.2021, 09:38 | Сообщение № 1
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

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
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

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


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

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

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
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

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


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

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

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
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

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

Автор - Anis625
Дата добавления - 09.03.2021 в 10:03
  • Страница 1 из 1
  • 1
Поиск:

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