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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка в конец листа данных по адресу из отчёта - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка в конец листа данных по адресу из отчёта (Формулы/Formulas)
Вставка в конец листа данных по адресу из отчёта
DrMini Дата: Понедельник, 03.04.2017, 10:39 | Сообщение № 1
Группа: Модераторы
Ранг: Старожил
Сообщений: 2043
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Доброго времени суток.
Помогите пожалуйста с созданием таблицы в конце листов (40 лет Победы,94;40 лет Победы,94А;40 лет Победы,96) выделена(жёлтым). Адрес указан (например на листе 40 лет Победы,94 в ячейке B6 и в соответствии с этим адресом должна заполняться таблица в конце листа с листа ОТЧЁТ. В конце ячейки "Наименование статей расходов" должен дописываться месяц в котором были произведены работы (с листа ОТЧЁТ столбец G. И в самом конце листа длжна создаваться строка "Итого расходов".
P.S. эта тема в продолжение http://www.excelworld.ru/forum/2-32434-1
Формулами фигня выходит. А вот в макросах я полный НОЛЬ.
Извиняюсь. торопился забыл файл приаттачить.
К сообщению приложен файл: 20170403.xlsm (76.3 Kb)


Сообщение отредактировал DrMini - Понедельник, 03.04.2017, 11:45
 
Ответить
СообщениеДоброго времени суток.
Помогите пожалуйста с созданием таблицы в конце листов (40 лет Победы,94;40 лет Победы,94А;40 лет Победы,96) выделена(жёлтым). Адрес указан (например на листе 40 лет Победы,94 в ячейке B6 и в соответствии с этим адресом должна заполняться таблица в конце листа с листа ОТЧЁТ. В конце ячейки "Наименование статей расходов" должен дописываться месяц в котором были произведены работы (с листа ОТЧЁТ столбец G. И в самом конце листа длжна создаваться строка "Итого расходов".
P.S. эта тема в продолжение http://www.excelworld.ru/forum/2-32434-1
Формулами фигня выходит. А вот в макросах я полный НОЛЬ.
Извиняюсь. торопился забыл файл приаттачить.
Автор - DrMini
Дата добавления - 03.04.2017 в 10:39
китин Дата: Понедельник, 03.04.2017, 10:41 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
и какой файл брать из темы по ссылке?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеи какой файл брать из темы по ссылке?
Автор - китин
Дата добавления - 03.04.2017 в 10:41
Wasilich Дата: Вторник, 04.04.2017, 07:25 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
А у меня фай не открывается! В смысле, даже конвертером. :)


Сообщение отредактировал Wasilich - Вторник, 04.04.2017, 07:28
 
Ответить
СообщениеА у меня фай не открывается! В смысле, даже конвертером. :)
Автор - Wasilich
Дата добавления - 04.04.2017 в 07:25
DrMini Дата: Вторник, 04.04.2017, 08:21 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2043
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Wasilich, 04.04.2017 в 07:25, в сообщении № 3 ()
А у меня фай не открывается!

Высылаю переконвертированный в .xls в архиве zip. Сроки терпят до сентября. Экономисты пока через буфер обмена будут вставлять. При конвертации excel написал кучу предупреждений.
P.S. Спасибо за то, что Вы откликнулись.
К сообщению приложен файл: 20170403.zip (32.8 Kb)
 
Ответить
Сообщение
Цитата Wasilich, 04.04.2017 в 07:25, в сообщении № 3 ()
А у меня фай не открывается!

Высылаю переконвертированный в .xls в архиве zip. Сроки терпят до сентября. Экономисты пока через буфер обмена будут вставлять. При конвертации excel написал кучу предупреждений.
P.S. Спасибо за то, что Вы откликнулись.
Автор - DrMini
Дата добавления - 04.04.2017 в 08:21
Wasilich Дата: Среда, 05.04.2017, 00:21 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Надеюсь что так.
К сообщению приложен файл: DrMINI-4.rar (24.0 Kb)
 
Ответить
СообщениеНадеюсь что так.
Автор - Wasilich
Дата добавления - 05.04.2017 в 00:21
DrMini Дата: Среда, 05.04.2017, 06:54 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2043
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Wasilich, 05.04.2017 в 00:21, в сообщении № 5 ()
Надеюсь, что так.

Сегодня буду тестировать. Но на вскидку то, что надо. СПАСИБО!
P.S. Вы сделали волшебство.
 
Ответить
Сообщение
Цитата Wasilich, 05.04.2017 в 00:21, в сообщении № 5 ()
Надеюсь, что так.

Сегодня буду тестировать. Но на вскидку то, что надо. СПАСИБО!
P.S. Вы сделали волшебство.
Автор - DrMini
Дата добавления - 05.04.2017 в 06:54
DrMini Дата: Среда, 05.04.2017, 08:30 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2043
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Можно ли сделать чтобы автоматически создавались границы ячеек? пример заполнения на листе 40 лет победы, 94А.
К сообщению приложен файл: 1601876.rar (24.5 Kb)
 
Ответить
СообщениеМожно ли сделать чтобы автоматически создавались границы ячеек? пример заполнения на листе 40 лет победы, 94А.
Автор - DrMini
Дата добавления - 05.04.2017 в 08:30
DrMini Дата: Среда, 05.04.2017, 09:15 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2043
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата DrMini, 05.04.2017 в 08:30, в сообщении № 7 ()
Можно ли сделать чтобы автоматически создавались границы ячеек?

Сделал через УФ но макросом как-то посерьёзнее будет.
 
Ответить
Сообщение
Цитата DrMini, 05.04.2017 в 08:30, в сообщении № 7 ()
Можно ли сделать чтобы автоматически создавались границы ячеек?

Сделал через УФ но макросом как-то посерьёзнее будет.
Автор - DrMini
Дата добавления - 05.04.2017 в 09:15
Wasilich Дата: Среда, 05.04.2017, 09:44 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Надеюсь, заменить макрос, сможете.
[vba]
Код
Sub СтатьиРасходов()
  Dim ul$, nd, r&, n&, i&, it#
  ul = Range("B1")
  nd = Range("C1")
  With Sheets("ОТЧЁТ")
    r = Range("A" & Rows.Count).End(xlUp).Row + 1
    n = r
    For i = 3 To .Range("B" & Rows.Count).End(xlUp).Row
      If .Cells(i, "B") = ul And .Cells(i, "C") = nd Then
         Cells(r, "A") = .Cells(i, "K")
         Cells(r, "B") = .Cells(i, "I")
         it = it + .Cells(i, "I")
         r = r + 1
      End If
    Next
   Cells(r, "A") = "Итого расходов"
   Cells(r, "B") = it
   Range("A" & n & ":B" & r).Borders.Weight = xlThin
  End With
End Sub
[/vba]
 
Ответить
СообщениеНадеюсь, заменить макрос, сможете.
[vba]
Код
Sub СтатьиРасходов()
  Dim ul$, nd, r&, n&, i&, it#
  ul = Range("B1")
  nd = Range("C1")
  With Sheets("ОТЧЁТ")
    r = Range("A" & Rows.Count).End(xlUp).Row + 1
    n = r
    For i = 3 To .Range("B" & Rows.Count).End(xlUp).Row
      If .Cells(i, "B") = ul And .Cells(i, "C") = nd Then
         Cells(r, "A") = .Cells(i, "K")
         Cells(r, "B") = .Cells(i, "I")
         it = it + .Cells(i, "I")
         r = r + 1
      End If
    Next
   Cells(r, "A") = "Итого расходов"
   Cells(r, "B") = it
   Range("A" & n & ":B" & r).Borders.Weight = xlThin
  End With
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 05.04.2017 в 09:44
DrMini Дата: Среда, 05.04.2017, 11:01 | Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2043
Репутация: 316 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
СПАСИБО! hands Всё работает, как надо.
Всех Вам благ.
 
Ответить
СообщениеСПАСИБО! hands Всё работает, как надо.
Всех Вам благ.
Автор - DrMini
Дата добавления - 05.04.2017 в 11:01
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка в конец листа данных по адресу из отчёта (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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