Макрос подсчета количества одинаковых значений из двух книг

@Arthu · Регистрация: 08.02.2018

Author24 — интернет-сервис помощи студентам

Подскажите, как правильно написать код поиска из двух таблиц, необходимо из столбца В взять индекс и вычислить количество повторяющихся значений данного индекса в другой таблице, в столбце Т и данное значение проставить в первой таблице в столбце С.

Приблизительно набросал код, но результат отрицательный

Visual Basic

     Dim i_BEL As Long
        Dim x_BEL As Excel.Range
        Dim resultatBEL, resultatBEL2 As Integer
 
    With objXslx.Worksheets("exportSD").Range("T:T")
        For i_BEL = 1 To .Cells(.Rows.Count).End(xlUp).Row
          Set x_BEL = Worksheets("Лист1").Range("B10:B54").Find(.Cells(i_BEL), LookIn:=xlValues, LookAt:=xlWhole)
 
            If Not x_BEL Is Nothing Then
 
'                 resultatBEL = resultatBEL + 1
'
'                    Worksheets("Лист1").Cells(1, 8).Value = resultatBEL
 
                    Worksheets("Лист1").Cells().Value = ObjExcel.Application.WorksheetFunction.CountIf(ObjExcel.Range("T:T"), x_BEL)
 
 
              '  Worksheets("Лист1").Cells(i_BEL, 9) = resultatBEL
 
 
                End If
 
            Next i_BEL
 
    End With

@Hugo121 · 14.09.2018, 15:29

СЧЁТЕСЛИ() не срабатывает?

@Arthu · 14.09.2018, 15:32 **[ТС]**

Срабатывает, но нужно именно через VBA

@Hugo121 · 14.09.2018, 15:34

Так запишите в макрос весь процесс, делов то...

@Arthu · 14.09.2018, 15:41 **[ТС]**

Я попробовал.

Visual Basic

1	ActiveCell.FormulaR1C1 = "=COUNTIF([12.xlsx]exportSD!C20,RC[-1])"

- это при записи макроса выходит. Я не знаю как обезличить наименование файла.

@Hugo121 · 14.09.2018, 16:32

Visual Basic

1	ActiveCell.FormulaR1C1 = "=COUNTIF([" & objXslx.name & "]exportSD!C20,RC[-1])"

@Arthu · 17.09.2018, 08:13 **[ТС]**

Сделал как вы написали, но почему то не работает. Я думаю из-за того, что прописывается полный путь к файлу. Подскажи, как можно сократить?

@Hugo121 · 17.09.2018, 08:18

Я вижу что прописывается 12.xlsx, откуда берётся остальное - Вам виднее.
Да и не должен полный путь мешать - если книга закрыта, то он и нужен, только синтаксис вероятно чуть другой будет, хотя на память не помню...

@Arthu · 17.09.2018, 08:20 **[ТС]**

При нажатии Собрать данные, я выбираю файл 12.xlsx, и получается, что вот так встает формула, а если я просто открою файл, формула встает нормально.

@Hugo121 · 17.09.2018, 08:22

Это вопрос к автору всего макроса

@Arthu · 17.09.2018, 11:05 **[ТС]**

Сделал так.

Visual Basic

Dim p As Long, Countid As Long
    
    For p = 10 To 54
    
    Worksheets("Лист1").Cells(p, 3).Select
    Countid = ObjExcel.Application.WorksheetFunction.CountIf(ObjExcel.Range("T:T"), Cells(p, 2).Value)
    ActiveCell.Value = Countid
    
    
    Next p

Новые блоги и статьи Все статьи Все блоги /
Микросервис с нуля на Go с Kafka stackoverflow 12.02.2025 Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .	Микросервис с нуля на C# с RabbitMQ stackoverflow 12.02.2025 Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .	Docker для начинающих stackoverflow 12.02.2025 В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .	Создание бота для Телеграм на C# stackoverflow 12.02.2025 В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .	Операторы сравнения (== и ===) в JavaScript hw_wired 12.02.2025 JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован hw_wired 12.02.2025 Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .	Объединение нескольких коммитов Git в один hw_wired 12.02.2025 Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .	Как добавить локальную ветку в удалённый репозиторий Git hw_wired 12.02.2025 Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .	Статическое отражение в C++ stackoverflow 12.02.2025 Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .	C++ в 21 веке - Бьярне Страуструп stackoverflow 12.02.2025 В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .

@Hugo121 6991 / 2890 / 554 Регистрация: 19.10.2012 Сообщений: 8,789
	14.09.2018, 15:29	2
	СЧЁТЕСЛИ() не срабатывает? 0

@Arthu 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 6
	14.09.2018, 15:32 [ТС]	3
	Срабатывает, но нужно именно через VBA 0

@Hugo121 6991 / 2890 / 554 Регистрация: 19.10.2012 Сообщений: 8,789
	14.09.2018, 15:34	4
	Так запишите в макрос весь процесс, делов то... 0

@Arthu 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 6
	17.09.2018, 08:13 [ТС]	7
	Сделал как вы написали, но почему то не работает. Я думаю из-за того, что прописывается полный путь к файлу. Подскажи, как можно сократить? Миниатюры 0

@Hugo121 6991 / 2890 / 554 Регистрация: 19.10.2012 Сообщений: 8,789
	17.09.2018, 08:18	8
	Я вижу что прописывается 12.xlsx, откуда берётся остальное - Вам виднее. Да и не должен полный путь мешать - если книга закрыта, то он и нужен, только синтаксис вероятно чуть другой будет, хотя на память не помню... 0

@Arthu 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 6
	17.09.2018, 08:20 [ТС]	9
	При нажатии Собрать данные, я выбираю файл 12.xlsx, и получается, что вот так встает формула, а если я просто открою файл, формула встает нормально. 0

@Hugo121 6991 / 2890 / 554 Регистрация: 19.10.2012 Сообщений: 8,789
	17.09.2018, 08:22	10
	Это вопрос к автору всего макроса 0

	14.09.2018, 13:06

	17.09.2018, 11:05

Опции темы