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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматическое добавление строки в счёте - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматическое добавление строки в счёте (Формулы/Formulas)
Автоматическое добавление строки в счёте
lookerr Дата: Воскресенье, 28.02.2016, 01:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - lookerr
Дата добавления - 28.02.2016 в 01:07
StoTisteg Дата: Воскресенье, 28.02.2016, 01:36 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеИМХО, это только макросом...

Автор - StoTisteg
Дата добавления - 28.02.2016 в 01:36
lookerr Дата: Понедельник, 29.02.2016, 00:56 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Макросом - так макросом. А нет ли у кого такого макроса?
 
Ответить
СообщениеМакросом - так макросом. А нет ли у кого такого макроса?

Автор - lookerr
Дата добавления - 29.02.2016 в 00:56
StoTisteg Дата: Понедельник, 29.02.2016, 01:03 | Сообщение № 4
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеМакрос Сумма прописью есть, а для добавления строки именно в Ваш счёт — писать надо.

Автор - StoTisteg
Дата добавления - 29.02.2016 в 01:03
Wasilich Дата: Понедельник, 29.02.2016, 10:11 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 858
Репутация: 220 ±
Замечаний: 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(39Kb)


Сообщение отредактировал Wasilic - Понедельник, 29.02.2016, 10:14
 
Ответить
СообщениеТак пойдет?
[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]В модуль листа. Только снимите объединение ячеек в строке прописью. Иначе работать не будет.

Автор - Wasilich
Дата добавления - 29.02.2016 в 10:11
lookerr Дата: Вторник, 01.03.2016, 23:41 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Так пойдет?


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


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

Автор - lookerr
Дата добавления - 01.03.2016 в 23:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматическое добавление строки в счёте (Формулы/Formulas)
Страница 1 из 11
Поиск:

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