по событию изм ячейки вставка формулы и значения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » по событию изм ячейки вставка формулы и значения (Макросы/Sub)

micholap_denis

Дата: Четверг, 15.04.2021, 18:20 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

здравствуйте, помогите пожалуйста. требуется доработать макрос что бы при изменении любой ячейки вместо в ст Отметка вставлялась "1" а в ст Формула 1 вставляется формула допустим [@7]*[@8]
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:G1000, I3:J1000")) Is Nothing Then Cells(Target.Row, 9) = 1

End Sub

[/vba]

К сообщению приложен файл: 9708528.xlsb (17.2 Kb)

Сообщение отредактировал micholap_denis - Четверг, 15.04.2021, 18:21

Ответить

Pelena

Дата: Четверг, 15.04.2021, 19:43 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Так? Столбец Отметка не нашла
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:G1000, I3:J1000")) Is Nothing Then Cells(Target.Row, 9).FormulaR1C1 = "=[@7]*[@8]"
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

micholap_denis

Дата: Четверг, 15.04.2021, 19:50 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

а как будет если нужно чтоб в ст 9 вставилась формула а в ст 5 к примеру "1"

Сообщение отредактировал micholap_denis - Четверг, 15.04.2021, 19:59

Ответить

Pelena

Дата: Четверг, 15.04.2021, 20:02 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:G1000, I3:J1000")) Is Nothing Then
        Cells(Target.Row, 9).FormulaR1C1 = "=[@7]*[@8]"
        Cells(Target.Row, 5) = 1
    End If
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

micholap_denis

Дата: Четверг, 15.04.2021, 20:02 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

спасибо!!!хорошего вечера вам

Ответить

micholap_denis

Дата: Четверг, 15.04.2021, 20:17 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Pelena, подскажите как в макросе прописать формулу

Код

=ОКРУГЛ(ЕСЛИ(Баланс[@[Приход/расход]]="Приход";1;-1)*Баланс[@Количество]*Баланс[@[Цена]]*ЕСЛИ(И(Баланс[@Валюта]="BYR";Баланс[@[Дата платежа]]<ДАТА(2016;7;1));0,0001;1);4)