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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос добавления в конец таблицы для кнопки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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)
 
Ответить
СообщениеДобрый день. Нужна помошь в написании простого макроса для извлечения данных их формы, их вставления в конец необходимой таблицы и очищения формы. Вставлять нужно все данных из формы, а очищать только те переменные, которые я залил зелёным. Хотелось бы, чтобы получилось без лишних элементов на листах, вроде создания доп. строк ниже и тп. Я хочу присвоить его к созданной в файле кнопке "done". Таблица для добавления находится во вкладке Data, а форма в Lesson Hold. Помогите, пожалуйста, кто может. Не особо в этом ещё разбираюсь.

Автор - KrosTj
Дата добавления - 08.09.2018 в 12:04
Nic70y Дата: Суббота, 08.09.2018, 12:37 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4882
Репутация: 1059 ±
Замечаний: 0% ±

Excel 2013
[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)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 08.09.2018 в 12:37
KrosTj Дата: Суббота, 08.09.2018, 13:39 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - KrosTj
Дата добавления - 08.09.2018 в 13:39
Nic70y Дата: Суббота, 08.09.2018, 14:08 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4882
Репутация: 1059 ±
Замечаний: 0% ±

Excel 2013
в том же стиле, без наворотов
[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]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениев том же стиле, без наворотов
[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]

Автор - Nic70y
Дата добавления - 08.09.2018 в 14:08
KrosTj Дата: Суббота, 08.09.2018, 15:28 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 74
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - KrosTj
Дата добавления - 08.09.2018 в 15:28
Nic70y Дата: Суббота, 08.09.2018, 15:38 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4882
Репутация: 1059 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
    u = Application.Match("яя", Sheets("Data").Range("a:a"), 1) + 1
[/vba]таки да бывают такие случаи


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение[vba]
Код
    u = Application.Match("яя", Sheets("Data").Range("a:a"), 1) + 1
[/vba]таки да бывают такие случаи

Автор - Nic70y
Дата добавления - 08.09.2018 в 15:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос добавления в конец таблицы для кнопки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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