Вставка формул при введении числа в ячейку

@leaHome · Регистрация: 27.03.2019

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

Добрый день!

Есть файл в Excel, в котором главная ячейка (A1) и зависимые от нее (B1:E1).
В A1 вводится число, макрос подхватывает изменение этой ячейки если она становится >0 и запускает макрос.
Макрос раскладывает число из А1 в ячейках B1:E1 на равные части с помощью функции.
(В перспективе: макрос сработает и при вводе числа в B1,C1,... и оно также разложится на равные части справа).

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

Прошу доработать код в прилагаемом примере.

@Vlad999 · 09.04.2019, 10:57

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C1")) Is Nothing Then ' если изменяемая ячейка принадлежит диапазону "A1:C1" то...
    If Target > 0 Then
        Application.EnableEvents = False 'отключаем отслеживание событий т.к. данные заносятся в проверяемые ячейки
        Macros2
        Application.EnableEvents = True 'включаем отслеживание событий
    End If
End If
End Sub

вставку формулы обязательно в отдельный макрос выводить?

@leaHome · 09.04.2019, 11:09 **[ТС]**

Нет, не обязательно. Просто иначе надо прописать условие в одном макросе для каждой ячейки - A1, B1, C1,...

@Vlad999 · 09.04.2019, 11:28

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

прописать условие в одном макросе для каждой ячейки

И какие это условия?

Добавлено через 6 минут
ваш макрос можно записать в одну строчку

Visual Basic
1
2
3
4
если в первом макросе то так
Target.Offset(0, 1).Resize(1, 4).FormulaR1C1 = "=MIN(RC[1],RC1/COLUMN(R[4]C[-1]))"
если в Macros2 то так
Range("B1:E1").FormulaR1C1 = "=MIN(RC[1],RC1/COLUMN(R[4]C[-1]))"

@leaHome · 10.04.2019, 10:10 **[ТС]**

Спасибо, код работает. Только если вручную очистить 2 и более ячейки строки выходит ошибка. Можно ли это как-то побороть?

Насчёт условия. В конечном итоге планировал сделать так:
вводим число в A1 - оно раскладывается по формуле в B1:E1;
вводим число в B1 - оно раскладывается по формуле в C1:E1;
вводим число в C1 - оно раскладывается по формуле в D1:E1.
Одновременно в ячейках A1:C1 не будет находиться более 1 числа.

Прошу рассмотреть мою задачу.

@Vlad999 · 10.04.2019, 11:47

как я понял:
вводим число в А1 получаем значение справа, потом вводим в С1 число получаем значение справа и очищаем А1 и В1? так?

Добавлено через 22 минуты

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C1")) Is Nothing Then ' если изменяемая ячейка принадлежит диапазону "A1:C1" то...
If Target.Count > 1 Then Exit Sub
    If Target > 0 Then
    R = Target.Value
        Application.EnableEvents = False 'отключаем отслеживание событий т.к. данные заносятся в проверяемые ячейки
        Range("A1:G1").ClearContents
        Target = R
        Target.Offset(0, 1).Resize(1, 4) = R / 4
        Application.EnableEvents = True 'включаем отслеживание событий
    End If
End If
End Sub

@leaHome · 10.04.2019, 12:15 **[ТС]**

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

вводим число в А1 получаем значение справа, потом вводим в С1 число получаем значение справа и очищаем А1 и В1? так?

Можно и без очистки, это уже так скажем бонус)
Диапазон фиксированный, т.е. он не увеличивается на одну ячейку справа как сейчас, а остаётся фиксированным.

P.S. Количество ячеек в строке будет равным 12 (по количеству месяцев в году) и вводя допустим в одну из них
сумму долга - программа разбивает этот долг в оставшиеся месяцы, в данном случае справа. Задумка вот такая.

@Vlad999 · 10.04.2019, 13:20

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

Количество ячеек в строке будет равным 12

и число будет вписываться в любую из 12-ти?

Добавлено через 9 минут
9 строку предыдущего кода замените на

Visual Basic
1
Target.Offset(0, 1).Resize(1, 5 - Target.Column) = R / (5 - Target.Column)

и проверяйте так ли.

@leaHome · 10.04.2019, 16:36 **[ТС]**

Да, всё верно, число будет вписываться в любой из 12 месяцев.

Доработал ваш код для 12-ти ячеек изменив строки 2,7 и 9 (с учётом последней корректировки).
Теперь всё работает отлично!

Vlad999, благодарю за терпение и вашу работу. Чувствуется ваш интерес к программированию. Спасибо.

Новые блоги и статьи Все статьи Все блоги /
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 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

Вставка формул при введении числа в ячейку

Решение

Решение

@leaHome 0 / 0 / 0 Регистрация: 27.03.2019 Сообщений: 5
	09.04.2019, 11:09 [ТС]
	Нет, не обязательно. Просто иначе надо прописать условие в одном макросе для каждой ячейки - A1, B1, C1,... 0

@leaHome 0 / 0 / 0 Регистрация: 27.03.2019 Сообщений: 5
	10.04.2019, 10:10 [ТС]
	Спасибо, код работает. Только если вручную очистить 2 и более ячейки строки выходит ошибка. Можно ли это как-то побороть? Насчёт условия. В конечном итоге планировал сделать так: вводим число в A1 - оно раскладывается по формуле в B1:E1; вводим число в B1 - оно раскладывается по формуле в C1:E1; вводим число в C1 - оно раскладывается по формуле в D1:E1. Одновременно в ячейках A1:C1 не будет находиться более 1 числа. Прошу рассмотреть мою задачу. 0

@leaHome 0 / 0 / 0 Регистрация: 27.03.2019 Сообщений: 5
	10.04.2019, 16:36 [ТС]
	Да, всё верно, число будет вписываться в любой из 12 месяцев. Доработал ваш код для 12-ти ячеек изменив строки 2,7 и 9 (с учётом последней корректировки). Теперь всё работает отлично! Vlad999, благодарю за терпение и вашу работу. Чувствуется ваш интерес к программированию. Спасибо. 0