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

Вход

Регистрация

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

 

= Мир MS Excel/Вставить подпись в документ - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вставить подпись в документ
Ocharovashka666 Дата: Воскресенье, 03.03.2024, 15:35 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Добрый день.
Прошу помочь в написании макроса, который будет вставлять подписи в определенных ячейках.
Есть выгрузка файла из 1С, в файле более 50 страниц... (количество страниц всегда разное)
Ежемесячно приходится ставить по две подписи на каждом листе..
И что самое муторное-таких файлов по 8 штук ежемесячно (с разных точек)
Возможно ли сделать какой нибудь макрос, который поставит подписи в нужных ячейках, (например над словом подпись)
Ячейки всегда могут быть разными, в зависимости от движения ден.ср-в, но столбики не меняются..
Пример с подписью во вложении
Заранее спасибо
К сообщению приложен файл: vygruzka_1s.xls (195.5 Kb)


Рада нашему знакомству
 
Ответить
СообщениеДобрый день.
Прошу помочь в написании макроса, который будет вставлять подписи в определенных ячейках.
Есть выгрузка файла из 1С, в файле более 50 страниц... (количество страниц всегда разное)
Ежемесячно приходится ставить по две подписи на каждом листе..
И что самое муторное-таких файлов по 8 штук ежемесячно (с разных точек)
Возможно ли сделать какой нибудь макрос, который поставит подписи в нужных ячейках, (например над словом подпись)
Ячейки всегда могут быть разными, в зависимости от движения ден.ср-в, но столбики не меняются..
Пример с подписью во вложении
Заранее спасибо

Автор - Ocharovashka666
Дата добавления - 03.03.2024 в 15:35
Serge_007 Дата: Воскресенье, 03.03.2024, 17:36 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте

Почему Вам не подходит VBA?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

Почему Вам не подходит VBA?

Автор - Serge_007
Дата добавления - 03.03.2024 в 17:36
Ocharovashka666 Дата: Воскресенье, 03.03.2024, 20:42 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Serge_007,
Мне подходит любое действие, если это позволит упрастить мне работу)))
Готова на все yes


Рада нашему знакомству
 
Ответить
СообщениеSerge_007,
Мне подходит любое действие, если это позволит упрастить мне работу)))
Готова на все yes

Автор - Ocharovashka666
Дата добавления - 03.03.2024 в 20:42
Ocharovashka666 Дата: Воскресенье, 03.03.2024, 20:45 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Скорей всего не в том разделе тему создала?! :'(


Рада нашему знакомству
 
Ответить
СообщениеСкорей всего не в том разделе тему создала?! :'(

Автор - Ocharovashka666
Дата добавления - 03.03.2024 в 20:45
Ocharovashka666 Дата: Воскресенье, 03.03.2024, 20:46 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Сможете помочь?


Рада нашему знакомству
 
Ответить
СообщениеСможете помочь?

Автор - Ocharovashka666
Дата добавления - 03.03.2024 в 20:46
msi2102 Дата: Понедельник, 04.03.2024, 12:05 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 415
Репутация: 129 ±
Замечаний: 0% ±

Excel 2007
Ocharovashka666, Посмотрите ТУТ есть почти готовое решение


Сообщение отредактировал msi2102 - Понедельник, 04.03.2024, 12:06
 
Ответить
СообщениеOcharovashka666, Посмотрите ТУТ есть почти готовое решение

Автор - msi2102
Дата добавления - 04.03.2024 в 12:05
pechkin Дата: Понедельник, 04.03.2024, 15:06 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Вставляет подписи не на все листы это для примера. Конечно как-то криво, но может кто доработает.
К сообщению приложен файл: vygruzka_1s_2.xls (234.0 Kb)
 
Ответить
СообщениеЗдравствуйте! Вставляет подписи не на все листы это для примера. Конечно как-то криво, но может кто доработает.

Автор - pechkin
Дата добавления - 04.03.2024 в 15:06
NikitaDvorets Дата: Понедельник, 04.03.2024, 17:28 | Сообщение № 8
Группа: Авторы
Ранг: Ветеран
Сообщений: 596
Репутация: 137 ±
Замечаний: 0% ±

Excel 2019
Ocharovashka666, -
Цитата
Конечно как-то криво, но может кто доработает


Вариант исправления "кривизны" прилагается.
К сообщению приложен файл: ew_365_podpisat_dokument_skano.xlsm (83.6 Kb)
 
Ответить
СообщениеOcharovashka666, -
Цитата
Конечно как-то криво, но может кто доработает


Вариант исправления "кривизны" прилагается.

Автор - NikitaDvorets
Дата добавления - 04.03.2024 в 17:28
Kuzmich Дата: Понедельник, 04.03.2024, 18:56 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
NikitaDvorets
А зачем проверять слово Кассир по двум столбцам A и H, если они находятся в одной строке?
Также и слово Бухгалтер всегда ниже слова Кассир на 5 строк
 
Ответить
СообщениеNikitaDvorets
А зачем проверять слово Кассир по двум столбцам A и H, если они находятся в одной строке?
Также и слово Бухгалтер всегда ниже слова Кассир на 5 строк

Автор - Kuzmich
Дата добавления - 04.03.2024 в 18:56
Ocharovashka666 Дата: Понедельник, 04.03.2024, 19:28 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Спасибо вам за столько вариантов)))
Даже не рассчитывала.
Просмотрела их все)))
Остановлюсь на последнем варианте, в нем раздвигается ячейка, за счет чего подпись более красиво выглядит.

Можно еще немного понаглею и попрошу изменить код- вместо "лист1" что б макрос работал на активном листе..? тк собирать буду в один файл все точки и соответственно подписи вставлять буду на разных листах с разными именами...


Рада нашему знакомству
 
Ответить
СообщениеСпасибо вам за столько вариантов)))
Даже не рассчитывала.
Просмотрела их все)))
Остановлюсь на последнем варианте, в нем раздвигается ячейка, за счет чего подпись более красиво выглядит.

Можно еще немного понаглею и попрошу изменить код- вместо "лист1" что б макрос работал на активном листе..? тк собирать буду в один файл все точки и соответственно подписи вставлять буду на разных листах с разными именами...

Автор - Ocharovashka666
Дата добавления - 04.03.2024 в 19:28
NikitaDvorets Дата: Вторник, 05.03.2024, 10:14 | Сообщение № 11
Группа: Авторы
Ранг: Ветеран
Сообщений: 596
Репутация: 137 ±
Замечаний: 0% ±

Excel 2019
Ocharovashka666,
Цитата
чтобы макрос работал на активном листе..

Сделаны небольшие изменения по оптимизации кода.
К сообщению приложен файл: 5561104.xlsm (85.3 Kb)
 
Ответить
СообщениеOcharovashka666,
Цитата
чтобы макрос работал на активном листе..

Сделаны небольшие изменения по оптимизации кода.

Автор - NikitaDvorets
Дата добавления - 05.03.2024 в 10:14
Kuzmich Дата: Вторник, 05.03.2024, 18:49 | Сообщение № 12
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
В документ надо вставить лист с именем Рис, на котором должна быть подпись (например Рисунок 2)
[vba]
Код
Sub Podpis()
Dim FoundKassir As Range
Dim FAdr As String
Dim img As Shape
    Set img = ThisWorkbook.Worksheets("Рис").Shapes("Рисунок 2")
    Set FoundKassir = Columns(1).Find("Кассир", , xlValues, xlWhole)
    If Not FoundKassir Is Nothing Then
      FAdr = FoundKassir.Address
       Do
         img.Copy
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(-1, 1).Address)
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(-1, 8).Address)
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(5, 1).Address)
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(5, 8).Address)
           Set FoundKassir = Columns(1).FindNext(FoundKassir)
       Loop While FoundKassir.Address <> FAdr
    End If
      ActiveSheet.Range("A1").Select
End Sub
[/vba]


Сообщение отредактировал Kuzmich - Вторник, 05.03.2024, 20:39
 
Ответить
СообщениеВ документ надо вставить лист с именем Рис, на котором должна быть подпись (например Рисунок 2)
[vba]
Код
Sub Podpis()
Dim FoundKassir As Range
Dim FAdr As String
Dim img As Shape
    Set img = ThisWorkbook.Worksheets("Рис").Shapes("Рисунок 2")
    Set FoundKassir = Columns(1).Find("Кассир", , xlValues, xlWhole)
    If Not FoundKassir Is Nothing Then
      FAdr = FoundKassir.Address
       Do
         img.Copy
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(-1, 1).Address)
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(-1, 8).Address)
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(5, 1).Address)
         ActiveSheet.Paste Destination:=ActiveSheet.Range(FoundKassir.Offset(5, 8).Address)
           Set FoundKassir = Columns(1).FindNext(FoundKassir)
       Loop While FoundKassir.Address <> FAdr
    End If
      ActiveSheet.Range("A1").Select
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 05.03.2024 в 18:49
Ocharovashka666 Дата: Среда, 06.03.2024, 11:19 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
NikitaDvorets, Данный макрос не работает, если я перехожу в этом же файле на другой лист с другим названием и пробую там вставить подпись. Если я переименую его на Лист_1 (переименовав предыдущий, тк два листа с одинаковым именем нельзя), то макрос работает...


Рада нашему знакомству
 
Ответить
СообщениеNikitaDvorets, Данный макрос не работает, если я перехожу в этом же файле на другой лист с другим названием и пробую там вставить подпись. Если я переименую его на Лист_1 (переименовав предыдущий, тк два листа с одинаковым именем нельзя), то макрос работает...

Автор - Ocharovashka666
Дата добавления - 06.03.2024 в 11:19
Ocharovashka666 Дата: Среда, 06.03.2024, 11:27 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Kuzmich, этот Макрос работает)) на всех активных листах) А можно добавить в этот макрос, что б строчка "кассир" расширялась?
а то получается как то неправдоподобно, что одна подпись выходит за черту, а другая нет..


Рада нашему знакомству
 
Ответить
СообщениеKuzmich, этот Макрос работает)) на всех активных листах) А можно добавить в этот макрос, что б строчка "кассир" расширялась?
а то получается как то неправдоподобно, что одна подпись выходит за черту, а другая нет..

Автор - Ocharovashka666
Дата добавления - 06.03.2024 в 11:27
NikitaDvorets Дата: Среда, 06.03.2024, 12:54 | Сообщение № 15
Группа: Авторы
Ранг: Ветеран
Сообщений: 596
Репутация: 137 ±
Замечаний: 0% ±

Excel 2019
Ocharovashka666,
Цитата
Данный макрос не работает


Да, отредактировал один оператор (файл прилагаю)
Если не хочется копировать кнопку и привязывать её к макросу на каждом новом листе, то можно, встав курсором на новый лист, где нужно вставить подписи,
нажать Alt - F11 (окно редактора VBA), и сделать двойной удар левой кнопки мыши по Module1 - курсор встанет в окно кода макроса Public Sub Подписать().
Далее - нажать правую стрелку на ленте меню редактора Run Sub/UserForm.
Сработает макрос на выделенном листе.
К сообщению приложен файл: 1259968.xlsm (135.4 Kb)


Сообщение отредактировал NikitaDvorets - Среда, 06.03.2024, 12:55
 
Ответить
СообщениеOcharovashka666,
Цитата
Данный макрос не работает


Да, отредактировал один оператор (файл прилагаю)
Если не хочется копировать кнопку и привязывать её к макросу на каждом новом листе, то можно, встав курсором на новый лист, где нужно вставить подписи,
нажать Alt - F11 (окно редактора VBA), и сделать двойной удар левой кнопки мыши по Module1 - курсор встанет в окно кода макроса Public Sub Подписать().
Далее - нажать правую стрелку на ленте меню редактора Run Sub/UserForm.
Сработает макрос на выделенном листе.

Автор - NikitaDvorets
Дата добавления - 06.03.2024 в 12:54
Ocharovashka666 Дата: Понедельник, 11.03.2024, 14:39 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Спасибо. Все работает)))
Супер))


Рада нашему знакомству
 
Ответить
СообщениеСпасибо. Все работает)))
Супер))

Автор - Ocharovashka666
Дата добавления - 11.03.2024 в 14:39
  • Страница 1 из 1
  • 1
Поиск:

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