Вставка формулы макросом

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

Вставка формулы макросом (Макросы/Sub)

rty

Дата: Суббота, 23.02.2019, 22:23 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

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

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

Excel 2013

Добрый вечер уважаемые форумчане!
Прошу Вашей помощи в написании макроса.
Есть пользовательская форма которая вносит данные в ячейки
необходимо еще и вносить формулу

[vba]

Код

Private Sub CommandButton1_Click()

Dim iLastRow As Long
    iLastRow = Cells(Rows.Count, 4).End(xlUp).Row + 1
    Cells(iLastRow, 1) = Me.TextBox1
    Cells(iLastRow, 2) = Me.TextBox2
    Cells(iLastRow, 3) = Me.TextBox3
    Cells(iLastRow, 4) = Me.TextBox4

    Cells(iLastRow, 6).Formula = "=(A1/C1)*100"
End Sub

[/vba]

Необходимо что бы при переходе от строчки до строчки менялось A1/C1
для второй A2/C2, для третей A3/C3

Ответить

skais

Дата: Суббота, 23.02.2019, 22:38 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

В таком случае может лучше ее протягивать?

Ответить

vikttur

Дата: Суббота, 23.02.2019, 22:39 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

[vba]

Код

Cells(iLastRow, 6).Formula = "=(RC[-5]/RC[-3])*100"

[/vba]

Ответить

rty

Дата: Воскресенье, 24.02.2019, 19:35 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

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

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

Excel 2013

vikttur, Спасибо

Ответить

rty

Дата: Воскресенье, 24.02.2019, 19:36 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

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

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

Excel 2013

skais, [sup]В таком случае может лучше ее протягивать?
Как прописать это макросом?

Ответить

vikttur

Дата: Воскресенье, 24.02.2019, 20:00 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

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

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

Как я понял, данные вставляются за один раз в одну строку. Протягивать нечего.

У меня другой вопрос: зачем формула? Можно ведь записать результат:
[vba]

Код

Cells(iLastRow, 6).Formula = Cells(iLastRow, 1)/Cells(iLastRow, 3))*100

[/vba]
или значения TextBox вместо ячеек.

Сообщение отредактировал vikttur - Воскресенье, 24.02.2019, 20:05

Ответить

rty

Дата: Воскресенье, 24.02.2019, 20:21 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

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

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

Excel 2013

vikttur, Идеально, то что нужно
Спасибо

Ответить

Вставка формулы макросом (Макросы/Sub)

Страница 1 из 1
1