Множество условий для автозаполнения ячеек

@EugeneMogush · Регистрация: 10.04.2017

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

Добрый вечер. Имеется большая таблица, в не

Добавлено через 14 минут
Извините, писал быстро и случайно нажал на enter.
Добрый вечер.

Имеется большая таблица, в ней порядка 3000 строк, 100 столбцов.
Имеется столбец №3, в нем заполнены физические объемы работы за год.
Имеется 12 месяцев, в котором заполнены плановые стоимости.

Понятное дело, что в одном заказе не могут быть заполнены стоимости в каждом месяце, однако могут быть заполнены в одном или двух кварталах, причем могут быть заполнены по 2, а то и 3 месяца в квартале.

Смысл таков: Необходимо определить, в какой месяц необходимо заполнить физические объемы работ (физические объемы не могут быть в двух месяцах, только в одном).
- Сначала необходимо определить, в каком ближайшем квартале есть плановые стоимости, если есть во втором и четвертом, значит физика будет во втором.
- Далее, определив квартал, определяем последний месяц, в котором есть плановые стоимости. Например, есть заказ (то есть пусть будет первая строчка в таблице), деньги стоят в январе, феврале (1 квартал) и в мае, июне (2 квартал), ближайший квартал - 1-й, последний месяц, в котором есть деньги, февраль, значит физический объем будет стоять в феврале.

Для того, чтобы определить, в какой месяц нужно ставить деньги, составил формулу, которая отлично работает, как часы: =ЕСЛИ(ИЛИ(J29>0;R29>0;Z29>0);ЕСЛИ(Z29>0; "Март";ЕСЛИ(R29>0;"Февраль";ЕСЛИ(J29>0;" Январь")));ЕСЛИ(ИЛИ(AH29>0;AP29>0;AX29>0 );ЕСЛИ(AX29>0;"Июнь";ЕСЛИ(AP29>0;"Май";Е СЛИ(AH29>0;"Апрель")));ЕСЛИ(ИЛИ(BF29>0;B N29>0;BV29>0);ЕСЛИ(BV29>0;"Сентябрь";ЕСЛ И(BN29>0;"Август";ЕСЛИ(BF29>0;"Июль"))); ЕСЛИ(ИЛИ(CD29>0;CL29>0;CT29>0);ЕСЛИ(CT29 >0;"Декабрь";ЕСЛИ(CL29>0;"Ноябрь";ЕСЛИ(C D29>0;"Октябрь")))))))
Далее, чтобы не заполнять руками, фильтровать, я сделал макрос:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub replace()
Dim ws As Worksheet
Dim i As Integer
Dim answer As Integer
 
    answer = MsgBox("Вы хотите разнести по месяцам плановые физические объемы?", vbYesNo + vbQuestion, "Разнесение физики")
    If answer = vbYes Then
        For i = 29 To 2814
            Cells(i, 6) = ""
            Cells(i, 14) = ""
            Cells(i, 22) = ""
            Cells(i, 30) = ""
            Cells(i, 38) = ""
            Cells(i, 46) = ""
            Cells(i, 54) = ""
            Cells(i, 62) = ""
            Cells(i, 70) = ""
            Cells(i, 78) = ""
            Cells(i, 86) = ""
            Cells(i, 94) = ""
             'обнуляю физику в каждом месяце             
            If Cells(i, 2) = "Январь" Then Cells(i, 6) = Cells(i, 3)
            If Cells(i, 2) = "Февраль" Then Cells(i, 14) = Cells(i, 3)
            If Cells(i, 2) = "Март" Then Cells(i, 22) = Cells(i, 3)
            If Cells(i, 2) = "Апрель" Then Cells(i, 30) = Cells(i, 3)
            If Cells(i, 2) = "Май" Then Cells(i, 38) = Cells(i, 3)
            If Cells(i, 2) = "Июнь" Then Cells(i, 46) = Cells(i, 3)
            If Cells(i, 2) = "Июль" Then Cells(i, 54) = Cells(i, 3)
            If Cells(i, 2) = "Август" Then Cells(i, 62) = Cells(i, 3)
            If Cells(i, 2) = "Сентябрь" Then Cells(i, 70) = Cells(i, 3)
            If Cells(i, 2) = "Октябрь" Then Cells(i, 78) = Cells(i, 3)
            If Cells(i, 2) = "Ноябрь" Then Cells(i, 86) = Cells(i, 3)
            If Cells(i, 2) = "Декабрь" Then Cells(i, 94) = Cells(i, 3)
        Next
    MsgBox "Операция закончена!"
    Else
        'do nothing
    End If
End Sub

Все отлично работает, как надо, никаких проблем. Но вот я хочу избавиться от заполнения в ячейке формулы этой, а сразу сделать макрос, но очень много условий, пытался, и не получалось, бред получался. Помогите, наведите в верное русло!

@EugeneMogush · 02.03.2020, 18:49 **[ТС]**

Прикладываю фрагмент файла, сами понимаете, файл очень тяжелый, изначально вообще было 700 столбцов и 3000 строк, сократил сколько мог

@Narimanych · 02.03.2020, 18:59

EugeneMogush,
Этот кусок

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Cells(i, 6) = ""
 Cells(i, 14) = ""
 Cells(i, 22) = ""
 Cells(i, 30) = ""
 Cells(i, 38) = ""
 Cells(i, 46) = ""
 Cells(i, 54) = ""
 Cells(i, 62) = ""
 Cells(i, 70) = ""
 Cells(i, 78) = ""
 Cells(i, 86) = ""
 Cells(i, 94) = ""

можно поменять на

Visual Basic
1
2
3
for j=6 to 94 step  8
 Cells(i, j) = ""
next j

@EugeneMogush · 06.03.2020, 19:22 **[ТС]**

Спасибо, оптимизировал. А так же разобрался, как написать код)

Новые блоги и статьи Все статьи Все блоги /
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. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@EugeneMogush 0 / 0 / 0 Регистрация: 10.04.2017 Сообщений: 10
	06.03.2020, 19:22 [ТС]
	Спасибо, оптимизировал. А так же разобрался, как написать код) 0