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

Вход

Регистрация

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

 

= Мир MS Excel/Расчет кол-ва совпадений и поиск по имени листа - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Расчет кол-ва совпадений и поиск по имени листа (Макросы/Sub)
Расчет кол-ва совпадений и поиск по имени листа
ArkaIIIa Дата: Понедельник, 12.10.2020, 10:53 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Уважаемые друзья, всем здравствуйте!

Кладу голову на плаху. До сих пор не освоил даже азы VBA, по этому вновь вынужден обращаться к вам за помощью)
Суть задачи:
На итоговом листе есть список компаний и их ИНН, а так же несколько столбцов по которым необходимо делать проверку.
В файле есть n листов, эти листы называются аналогично столбцам итогового листа.
На этих листа, всегда - в столбце D, содержится ключ (ИНН) по которому необходимо осуществить проверку и в случае наличия совпадения поставить цифру на итоговый лист.

По сути, макрос должен работать как функция СЧЕТЕСЛИ, только сам проверять названия столбцов и делать поиск на листах с аналогичным названием.

Заранее большое всем спасибо.
 
Ответить
СообщениеУважаемые друзья, всем здравствуйте!

Кладу голову на плаху. До сих пор не освоил даже азы VBA, по этому вновь вынужден обращаться к вам за помощью)
Суть задачи:
На итоговом листе есть список компаний и их ИНН, а так же несколько столбцов по которым необходимо делать проверку.
В файле есть n листов, эти листы называются аналогично столбцам итогового листа.
На этих листа, всегда - в столбце D, содержится ключ (ИНН) по которому необходимо осуществить проверку и в случае наличия совпадения поставить цифру на итоговый лист.

По сути, макрос должен работать как функция СЧЕТЕСЛИ, только сам проверять названия столбцов и делать поиск на листах с аналогичным названием.

Заранее большое всем спасибо.

Автор - ArkaIIIa
Дата добавления - 12.10.2020 в 10:53
Pelena Дата: Понедельник, 12.10.2020, 11:03 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16641
Репутация: 3598 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Файл покажете?


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

Автор - Pelena
Дата добавления - 12.10.2020 в 11:03
ArkaIIIa Дата: Понедельник, 12.10.2020, 11:34 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Извиняюсь, был абсолютно уверен, что вложил файл.
К сообщению приложен файл: Example.xlsx(11.3 Kb)
 
Ответить
СообщениеИзвиняюсь, был абсолютно уверен, что вложил файл.

Автор - ArkaIIIa
Дата добавления - 12.10.2020 в 11:34
gling Дата: Понедельник, 12.10.2020, 12:40 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2184
Репутация: 544 ±
Замечаний: 0% ±

2010
Здравствуйте.
А формула в В3 и растянуть по таблице не устроит?
Код
=СЧЁТЕСЛИ(ДВССЫЛ("'"&B$1&"'!D:D");Свод!$A3)


ЯД-41001506838083
 
Ответить
СообщениеЗдравствуйте.
А формула в В3 и растянуть по таблице не устроит?
Код
=СЧЁТЕСЛИ(ДВССЫЛ("'"&B$1&"'!D:D");Свод!$A3)

Автор - gling
Дата добавления - 12.10.2020 в 12:40
ArkaIIIa Дата: Понедельник, 12.10.2020, 13:02 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
gling
Добрый день!
Формулой я уже реализовал. Но на больших массивах файл дико зависает, да еще и обновляться начинает, когда не надо (постоянно переключать флажок автообновления не хочется).
Мне кажется макрос более адекватно будет работать. Кнопку ткнул - он один раз отработал, вставил значения и все, можно дальше спокойно работать с файлом.
 
Ответить
Сообщениеgling
Добрый день!
Формулой я уже реализовал. Но на больших массивах файл дико зависает, да еще и обновляться начинает, когда не надо (постоянно переключать флажок автообновления не хочется).
Мне кажется макрос более адекватно будет работать. Кнопку ткнул - он один раз отработал, вставил значения и все, можно дальше спокойно работать с файлом.

Автор - ArkaIIIa
Дата добавления - 12.10.2020 в 13:02
gling Дата: Понедельник, 12.10.2020, 18:49 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2184
Репутация: 544 ±
Замечаний: 0% ±

2010
на больших массивах файл дико зависает
Попробуйте такую конструкцию
[vba]
Код
Sub Svod()
Dim i As Long, j As Long, Rw As Long, Cl As Long
Dim a As String
Application.ScreenUpdating = False
With Sheets("Свод")
Rw = .Cells(Rows.Count, 1).End(xlUp).Row
Cl = .Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 3 To Rw
        For j = 2 To Cl
            a = .Cells(1, j)
            .Cells(i, j) = Application.CountIf(Sheets(a).Range("D:D"), .Cells(i, 1).Value)
        Next
    Next
End With
Application.ScreenUpdating = True
End Sub
[/vba]


ЯД-41001506838083
 
Ответить
Сообщение
на больших массивах файл дико зависает
Попробуйте такую конструкцию
[vba]
Код
Sub Svod()
Dim i As Long, j As Long, Rw As Long, Cl As Long
Dim a As String
Application.ScreenUpdating = False
With Sheets("Свод")
Rw = .Cells(Rows.Count, 1).End(xlUp).Row
Cl = .Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 3 To Rw
        For j = 2 To Cl
            a = .Cells(1, j)
            .Cells(i, j) = Application.CountIf(Sheets(a).Range("D:D"), .Cells(i, 1).Value)
        Next
    Next
End With
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - gling
Дата добавления - 12.10.2020 в 18:49
ArkaIIIa Дата: Среда, 14.10.2020, 12:10 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
gling
Благодарю. То что нужно.
 
Ответить
Сообщениеgling
Благодарю. То что нужно.

Автор - ArkaIIIa
Дата добавления - 14.10.2020 в 12:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Расчет кол-ва совпадений и поиск по имени листа (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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