Макрос добавления в конец таблицы для кнопки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос добавления в конец таблицы для кнопки (Формулы/Formulas)

KrosTj

Дата: Суббота, 08.09.2018, 12:04 | Сообщение № 1

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

Ранг: Участник

Сообщений: 74

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

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

Excel 2016

Добрый день. Нужна помошь в написании простого макроса для извлечения данных их формы, их вставления в конец необходимой таблицы и очищения формы. Вставлять нужно все данных из формы, а очищать только те переменные, которые я залил зелёным. Хотелось бы, чтобы получилось без лишних элементов на листах, вроде создания доп. строк ниже и тп. Я хочу присвоить его к созданной в файле кнопке "done". Таблица для добавления находится во вкладке Data, а форма в Lesson Hold. Помогите, пожалуйста, кто может. Не особо в этом ещё разбираюсь.

К сообщению приложен файл: The_new_tracker.xlsx (20.6 Kb)

Ответить

Nic70y

Дата: Суббота, 08.09.2018, 12:37 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

[vba]

Код

Sub U_721()
    u = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("Data").Range("a" & u) = Sheets("Lesson hold").Range("D4")
    Sheets("Data").Range("b" & u) = Sheets("Lesson hold").Range("D5")
    Sheets("Data").Range("c" & u) = Sheets("Lesson hold").Range("D6")
    Sheets("Data").Range("d" & u) = Sheets("Lesson hold").Range("D7")
    Sheets("Data").Range("e" & u) = Sheets("Lesson hold").Range("D8")
    Sheets("Data").Range("f" & u) = Sheets("Lesson hold").Range("D9")
    Range("d6:d9").ClearContents
End Sub

[/vba]

К сообщению приложен файл: The_new_tracker.xlsm (23.7 Kb)

ЮMoney 41001841029809

Ответить

KrosTj

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

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

Ранг: Участник

Сообщений: 74

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

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

Excel 2016

Nic70y, Благодарю. А можно ещё маленькую просьбу. Можно ли сделать так, чтобы перед добавлением была проверка на то, что во всех полях есть значения, чтобы не создавались пустые строки в таблице?

Ответить

Nic70y

Дата: Суббота, 08.09.2018, 14:08 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

в том же стиле, без наворотов
[vba]

Код

Sub U_721()
    If [d4] <> "" And [d5] <> "" And [d6] <> "" And [d7] <> "" And [d8] <> "" And [d9] <> "" Then
    u = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("Data").Range("a" & u) = Sheets("Lesson hold").Range("D4")
    Sheets("Data").Range("b" & u) = Sheets("Lesson hold").Range("D5")
    Sheets("Data").Range("c" & u) = Sheets("Lesson hold").Range("D6")
    Sheets("Data").Range("d" & u) = Sheets("Lesson hold").Range("D7")
    Sheets("Data").Range("e" & u) = Sheets("Lesson hold").Range("D8")
    Sheets("Data").Range("f" & u) = Sheets("Lesson hold").Range("D9")
    Range("d6:d9").ClearContents
    Else
    MsgBox "Че жмем то?" & Chr(10) & "А заполнять кто будет?"
    End If
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

KrosTj

Дата: Суббота, 08.09.2018, 15:28 | Сообщение № 5

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

Ранг: Участник

Сообщений: 74

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

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

Excel 2016

Nic70y, Спасибо. Я тут посмотрел, что если первая таблица изначально пустая, то введённая информация уже будет находиться на второй строке, а первая останется пустой. Ты не мог бы здесь тоже сделать некую проверку?

Ответить

Nic70y

Дата: Суббота, 08.09.2018, 15:38 | Сообщение № 6

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

Ранг: Экселист

Сообщений: 8759

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

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

Excel 2010

[vba]

Код

u = Application.Match("яя", Sheets("Data").Range("a:a"), 1) + 1

[/vba]таки да бывают такие случаи

ЮMoney 41001841029809

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос добавления в конец таблицы для кнопки (Формулы/Formulas)

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