Замена в макросе ячейки на диапазон ячеек

@alkhimik · Регистрация: 06.09.2018

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

Добрый день!
У меня имеется макрос:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Public Sub Counter()
Dim CounterCell As Range, i As Long, r As Range, dest As Range
Set CounterCell = ActiveSheet.Range("A1")
CounterCell.Value = 0
 
Application.ScreenUpdating = False
 
i = 9
Do While CounterCell.Value < 200#
    CounterCell.Value = CounterCell.Value + 0.01
    If [bn6] > 2 Then
    Cells(i, 1) = [A1]
    i = i + 1
    Else
    If [ef6] > 2 Then
    Cells(i, 1) = [A1]
    End If
    End If
Loop
 
Application.ScreenUpdating = True
 
End Sub

В этом макросе указано, что если в ячейке "BN6" занчение больше 2 то в первом столбце записывается значение ячейки "А1". А как прописать, что если хотя бы в одной ячейке столбца BN, записывается значение "А1"?

@Казанский · 28.09.2018, 21:20

alkhimik, во всем столбце 1048576 ячеек - наверно не надо все проверять? Для столбца из 10 ячеек

Visual Basic
1
If [MAX(BN1:BN10)] > 2 Then

@alkhimik · 28.09.2018, 22:21 **[ТС]**

Спасибо огромное! Конечно я лопухнулся с диапазоном. Но огромное спасибо!

Добавлено через 16 минут
Извините, но макрос отказывается работать. Ругается что-то типа Run-time error 13. Type mismath. Может я что-то не так определил в начале?

Добавлено через 1 минуту
А нет, еще раз извините, сам допустил лшибку и не поставил ) в одном месте.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@alkhimik 1 / 1 / 0 Регистрация: 06.09.2018 Сообщений: 17
	28.09.2018, 22:21 [ТС]
	Спасибо огромное! Конечно я лопухнулся с диапазоном. Но огромное спасибо! Добавлено через 16 минут Извините, но макрос отказывается работать. Ругается что-то типа Run-time error 13. Type mismath. Может я что-то не так определил в начале? Добавлено через 1 минуту А нет, еще раз извините, сам допустил лшибку и не поставил ) в одном месте. 0

Замена в макросе ячейки на диапазон ячеек

Решение