VBA СЧЕТЕСЛИ() в динамическом диапазоне

@0mega · Регистрация: 05.11.2013

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

всем добрый день

массив В3:В99 содержит некий список.
как прописать код в VBA
СЧЁТЕСЛИ(B5:$B$11;$B$11)
при условии что конечный адрес должен быть не конкретным , а динамическим ?

*в файле пример и более подробная информация

@pashulka · 12.11.2019, 13:07

Если правильно понял задачу, то так (можно обойтись и без переменной)

Visual Basic
1
2
3
Dim a$
a = Application.ConvertFormula(Range("F3"), xlA1, xlA1, 1)
Range("D3:D11").Formula = "=COUNTIF(B3:" & a & ",$B$11)"

Visual Basic
1
2
3
Dim a$
a = Range(Range("F3")).Address(1, 1) ', xlA1)
Range("D3:D11").Formula = "=COUNTIF(B3:" & a & ",$B$11)"

P.S. Что ищем оставил в виде константы, т.к. в вопросе этот момент был проигнорирован.

@0mega · 13.11.2019, 14:15 **[ТС]**

Сообщение от pashulka

Address(1, 1) ', xlA1)

1) а почему мы обращаемся по адресу 1, 1 если ячейка А1 нигде и никак не фигурирует в задании ?

2) xlA1 - в данном случае пояснение, А вообще - что это такое ?

@pashulka · 13.11.2019, 14:59

напишите так и оставьте в покое третий и необязательный аргумент, который Вы приняли за комментарий(пояснение)

Visual Basic
1
Address(True, True)

а ещё лучше прочитайте справку, касательно свойства Address, и тогда Вы сможете вообще не использовать аргументы и просто напишите

Visual Basic
1
a = Range(Range("F3")).Address

@0mega · 13.11.2019, 16:19 **[ТС]**

pashulka, спасибо за уделенное время

@pashulka · 13.11.2019, 16:49

0mega, Без обид, но справка действительно лучше моих об'яснений.

Но если вкратце, то в формуле нам нужна абсолютная ссылка на ячейку, а в ячейке - относительная.

Поэтому, либо самописное преобразование, либо конвертация [1], либо адрес [2]
Т.к. при использовании свойства .Address можно указать нужна ли абсолютная ссылка на строку, столбец и указать стиль ссылки(нотацию) я просто перестраховался и написал .Адрес(СтрокаАбсолютная:=Истина, СтолбецАбсолютный:=Истина, СтильСсылки:=xlA1), где вместо True написал 1, исключительно для ускорения времени. А сейчас вспомнил, что всё это нафиг не нужно и можно использовать просто .Address

@0mega · 14.11.2019, 10:10 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 310
	13.11.2019, 16:19 [ТС]
	pashulka, спасибо за уделенное время 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	13.11.2019, 16:49
	0mega, Без обид, но справка действительно лучше моих об'яснений. Но если вкратце, то в формуле нам нужна абсолютная ссылка на ячейку, а в ячейке - относительная. Поэтому, либо самописное преобразование, либо конвертация [1], либо адрес [2] Т.к. при использовании свойства .Address можно указать нужна ли абсолютная ссылка на строку, столбец и указать стиль ссылки(нотацию) я просто перестраховался и написал .Адрес(СтрокаАбсолютная:=Истина, СтолбецАбсолютный:=Истина, СтильСсылки:=xlA1), где вместо True написал 1, исключительно для ускорения времени. А сейчас вспомнил, что всё это нафиг не нужно и можно использовать просто .Address 0

@0mega 6 / 7 / 1 Регистрация: 05.11.2013 Сообщений: 310
	14.11.2019, 10:10 [ТС]
	Почему Вы решили что с стороны могут быть какие-то обиды?! Я периодически обращаюсь сюда с вопросами и всегда получаю нужную информацию.. Ваш ник на слуху и Вы часто присутствуете среди отвечающих на мои вопросы. Спасибо за уделенное время. Сейчас как раз читаю Help 0