Автоматическое добавление строки в счёте

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

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

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

lookerr

Дата: Воскресенье, 28.02.2016, 01:07 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 8

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

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

Добрый день всем.
Очень редко нуждаюсь в какой-то автоматизации процессов в Excel, но тут припёрло уже...
Прошерстил поиском по форуму и нашёл 11 тем с такими же названиями, но без " в счёте" в конце названия.
Проблема такая: делаю счёт и нужно, чтобы автоматически добавлялась новая строка снизу, при нажатии Enter в любой из трёх последних ячеек заполняемой строки.
Также, последняя ячейка заполненной строки должна автоматически учитываться в сумме ИТОГО. Ну и напоследок - сумма ИТОГО должна появиться в прописном виде в ячейке с серым фоном.
Прилагаю файл, сделанный в Excel 2016
Спасибо всем, кто отзовётся.

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

Сообщение отредактировал lookerr - Воскресенье, 28.02.2016, 01:10

Ответить

StoTisteg

Дата: Воскресенье, 28.02.2016, 01:36 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

ИМХО, это только макросом...

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

lookerr

Дата: Понедельник, 29.02.2016, 00:56 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 8

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

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

Макросом - так макросом. А нет ли у кого такого макроса?

Ответить

StoTisteg

Дата: Понедельник, 29.02.2016, 01:03 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Макрос Сумма прописью есть, а для добавления строки именно в Ваш счёт — писать надо.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Wasilich

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

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Так пойдет?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim S&, R&
   If Target.Count > 1 Then Exit Sub
   Application.EnableEvents = False
   S = Range("F" & Rows.Count).End(xlUp).Row + 1
   R = Target.Row
   If Not Application.Intersect(Range("F3:G" & S), Target) Is Nothing Then
      If Cells(R, 6) > 0 And Cells(R, 7) > 0 Then
         Rows(R + 1).Insert Shift:=xlDown
      End If
   End If
   Application.EnableEvents = True
End Sub

[/vba]В модуль листа. Только снимите объединение ячеек в строке прописью. Иначе работать не будет.

К сообщению приложен файл: 2859793.xls (39.0 Kb)

Сообщение отредактировал Wasilic - Понедельник, 29.02.2016, 10:14

Ответить

lookerr

Дата: Вторник, 01.03.2016, 23:41 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 8

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

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

Цитата Wasilic, 29.02.2016 в 10:11, в сообщении № 5

Так пойдет?

Спасибо большое!
А с добавлением строки никак?

Ответить

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

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