Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставка формулы макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка формулы макросом (Макросы/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
 
Ответить
СообщениеДобрый вечер уважаемые форумчане!
Прошу Вашей помощи в написании макроса.
Есть пользовательская форма которая вносит данные в ячейки
необходимо еще и вносить формулу

[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

Автор - rty
Дата добавления - 23.02.2019 в 22:23
skais Дата: Суббота, 23.02.2019, 22:38 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 186
Репутация: 25 ±
Замечаний: 60% ±

Excel 2010
В таком случае может лучше ее протягивать?
 
Ответить
СообщениеВ таком случае может лучше ее протягивать?

Автор - skais
Дата добавления - 23.02.2019 в 22:38
vikttur Дата: Суббота, 23.02.2019, 22:39 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2921
Репутация: 525 ±
Замечаний: 0% ±

[vba]
Код
Cells(iLastRow, 6).Formula = "=(RC[-5]/RC[-3])*100"
[/vba]
 
Ответить
Сообщение[vba]
Код
Cells(iLastRow, 6).Formula = "=(RC[-5]/RC[-3])*100"
[/vba]

Автор - vikttur
Дата добавления - 23.02.2019 в 22:39
rty Дата: Воскресенье, 24.02.2019, 19:35 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
vikttur, Спасибо
 
Ответить
Сообщениеvikttur, Спасибо

Автор - rty
Дата добавления - 24.02.2019 в 19:35
rty Дата: Воскресенье, 24.02.2019, 19:36 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - rty
Дата добавления - 24.02.2019 в 19:36
vikttur Дата: Воскресенье, 24.02.2019, 20:00 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2921
Репутация: 525 ±
Замечаний: 0% ±

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

У меня другой вопрос: зачем формула? Можно ведь записать результат:
[vba]
Код
Cells(iLastRow, 6).Formula = Cells(iLastRow, 1)/Cells(iLastRow, 3))*100
[/vba]
или значения TextBox вместо ячеек.


Сообщение отредактировал vikttur - Воскресенье, 24.02.2019, 20:05
 
Ответить
СообщениеКак я понял, данные вставляются за один раз в одну строку. Протягивать нечего.

У меня другой вопрос: зачем формула? Можно ведь записать результат:
[vba]
Код
Cells(iLastRow, 6).Formula = Cells(iLastRow, 1)/Cells(iLastRow, 3))*100
[/vba]
или значения TextBox вместо ячеек.

Автор - vikttur
Дата добавления - 24.02.2019 в 20:00
rty Дата: Воскресенье, 24.02.2019, 20:21 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
vikttur, Идеально, то что нужно
Спасибо
 
Ответить
Сообщениеvikttur, Идеально, то что нужно
Спасибо

Автор - rty
Дата добавления - 24.02.2019 в 20:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка формулы макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!