Запись данных в умную таблицу через форму - Мир MS Excel

Регистрация

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

= Мир MS Excel/Запись данных в умную таблицу через форму - Мир MS Excel

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

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

Запись данных в умную таблицу через форму (Формулы/Formulas)

Запись данных в умную таблицу через форму

Дата: Пятница, 13.12.2024, 11:06 | Сообщение № 1

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

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

Сообщений: 13

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

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

2019

Добрый день. Подскажите как из формы записать данные в умную таблицу. Не хотелось сразу задавать большой диапазон у таблицы, нужно чтобы строки постепенно добавлялись выше строки итогов.

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

Ответить

Дата: Пятница, 13.12.2024, 11:37 | Сообщение № 2

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

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

Сообщений: 9025

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

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

Excel 2010

как-то так
[vba]

Код

Private Sub Cb_zapis_zakaza_Click()
    a = Range("Заказы_tb[#Totals]").Row
    c = a - 1
    b = Sheets("Заказы").Range("a" & c).Value
    If b <> "" Then
        Sheets("Заказы").ListObjects("Заказы_tb").Resize Range("a2:f" & a + 1)
        c = a
    End If
    Sheets("Заказы").Range("a" & c) = Tb_Nomer_zak.Value
    Sheets("Заказы").Range("b" & c) = Tb_Data_zak.Value
    Sheets("Заказы").Range("c" & c) = Tb_Kontr_zak.Value
    Sheets("Заказы").Range("d" & c) = Tb_sum_zak.Value
    Sheets("Заказы").Range("e" & c) = Tb_Data_got_zak.Value
    Sheets("Заказы").Range("f" & c) = Tb_izd_v_zak.Value
End Sub

[/vba]для начала

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

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 13.12.2024, 11:38

Ответить

Дата: Пятница, 13.12.2024, 12:12 | Сообщение № 3

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

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

Сообщений: 13

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

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

2019

Да это то что надо!!! Спасибо большое!!! Прошу прощения но можно ещё объяснить как из одной умной таблицы на Листе1 скопировать последнюю строку (но не строку итогов) в другую умную таблицу на Листе2
Применительно к моему случаю нужно чтобы при нажатии на кнопку записать данные на форме после того как на лист Заказы в умную таблицу записались данные всю вновь записанную строчку скопировать и записать в умную таблицу на листе Сводная

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

Ответить

Дата: Пятница, 13.12.2024, 12:14 | Сообщение № 4

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

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

Сообщений: 13

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

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

2019

Точнее конкретные ячейки вновь записанной строки умной таблицы на листе Заказы записать в конкретные ячейки умной таблицы на листе Сводная

Ответить

Дата: Пятница, 13.12.2024, 12:58 | Сообщение № 5

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

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

Сообщений: 9025

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

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

Excel 2010

Цитата Weter53, 13.12.2024 в 12:14, в сообщении № 4 (

)

Точнее конкретные ячейки

опишите подробнее в чем конкретно проблема.
я так понимаю в отгрузке?
на листе Сводная нет умной таблицы

ЮMoney 41001841029809

Ответить

Дата: Пятница, 13.12.2024, 14:04 | Сообщение № 6

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

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

Сообщений: 13

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

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

2019

Прошу прощения, запутался уже совсем. На листе "Сводная" обычная таблица и мне нужно чтобы в нее автоматически записывались данные из умных таблиц на листах "Заказы" и "Отгрузка" . При этом при записи данных о заказе, данные из ячеек умной таблицы с листа "Заказы" записывались в соответствующие ячейки в таблицу на листе "Сводная". По записям с листа "Отгрузки" немного другая ситуация, там помимо записи из формы в умную таблицу на листе "Отгрузки" необходимо выполнить сравнение номера отгрузки из умной таблице на листе "Отгрузки" и номера заказа в таблице на листе "Сводная", если они частично совпадают то добавить строку под строкой с совпавшим номером заказа в соответствующие ячейки. С обычными таблицами вроде как задачу получилось решить а вот как с умными таблицами это проделать не знаю. Как то так.

Ответить

Дата: Пятница, 13.12.2024, 15:33 | Сообщение № 7

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

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

Сообщений: 9025

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

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

Excel 2010

проверяйте

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

ЮMoney 41001841029809

Ответить

Дата: Понедельник, 16.12.2024, 07:41 | Сообщение № 8

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

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

Сообщений: 13

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

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

2019

Доброе утро! Спасибо большое, это то что нужно!!!!

Ответить

Дата: Понедельник, 16.12.2024, 10:50 | Сообщение № 9

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

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

Сообщений: 13

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

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

2019

Nic70y не могу понять почему при записи отгрузки по последнему заказу на лист "Сводная" данные добавляются на строчку выше записи о заказе. В других случаях работает безотказно.

Ответить

Дата: Понедельник, 16.12.2024, 11:39 | Сообщение № 10

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

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

Сообщений: 2806

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

НА ЗАМЕТКУ. Если что, в Excel существует встроенная форма ввода данных в организованные таблицы (не требующая никакого проектирования и программирования). Чтобы ею воспользоваться, нужно ее вначале "достать" из списка "Команды не на ленте" (см. прилагаемые картинки).

К сообщению приложен файл: 1443441.png (131.8 Kb) · 7470972.png (117.7 Kb)

МОИ: Ник, Tip box: 41001663842605

Ответить

Дата: Вторник, 17.12.2024, 08:23 | Сообщение № 11

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

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

Сообщений: 13

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

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

2019

Gustav спасибо за подсказку, не совсем то что мне нужно. Подскажите как мне сделать чтобы при вставке данных когда создается новая строка в умной таблице на листе "Сводная" сохранялись формулы и форматирование в ячейках?

Ответить

Дата: Вторник, 17.12.2024, 08:52 | Сообщение № 12

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

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

Сообщений: 9025

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

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

Excel 2010

Цитата Weter53, 16.12.2024 в 10:50, в сообщении № 9 (

)

по последнему заказу

[vba]

Код

e = Cells(Rows.Count, "a").End(xlUp).Row + 1

[/vba]единичку забыл

апдэйт
и лучше наверно ссылаться на столбец C
[vba]

Код

e = Cells(Rows.Count, "c").End(xlUp).Row + 1

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 17.12.2024, 08:56

Ответить

Дата: Вторник, 17.12.2024, 09:45 | Сообщение № 13

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

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

Сообщений: 13

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

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

2019

Nic70y спасибо, ссылку на столбец вчера поправил. А как сделать чтобы при вставке подтягивались формулы и форматирование в ячейках? Сейчас когда добавляются данные на лист "Сводная" в умную таблицу "Сводная_tb" приходится в ручную форматирование делать и формулы протягивать.

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

Ответить

Дата: Вторник, 17.12.2024, 11:19 | Сообщение № 14

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

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

Сообщений: 9025

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

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

Excel 2010

ну раз таблица поумнела* и у нее есть итоговая строка, то +1 не нужно
+ формулы

[p.s.]недолюбливаю умные таблицы[/p.s.]

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

ЮMoney 41001841029809

Ответить

Дата: Среда, 18.12.2024, 09:36 | Сообщение № 15

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

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

Сообщений: 13

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

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

2019

Nic70y добрый день, вы написали + формулы, не совсем понял. Это про что?

Ответить

Дата: Среда, 18.12.2024, 09:51 | Сообщение № 16

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

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

Сообщений: 13

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

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

2019

Как сделать чтобы при записи данных в добавленной строке автоматически вставлялись формулы и форматирование, причём формулы были смещёнными на 1 по ячейкам?

Ответить

Дата: Среда, 18.12.2024, 10:02 | Сообщение № 17

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

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

Сообщений: 9025

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

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

Excel 2010

Weter53, вы смотрели формулы в файле из сооб№ 14?
добавляли в него данные?

ЮMoney 41001841029809

Ответить

Дата: Среда, 18.12.2024, 11:45 | Сообщение № 18

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

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

Сообщений: 13

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

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

2019

Прошу прощения, сегодня обратил внимание, погонял немного вроде бы работает так как надо!!! Спасибо!!!

Ответить

Запись данных в умную таблицу через форму (Формулы/Formulas)

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

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