Форум 3DNews

Форум 3DNews (http://forum.3dnews.ru/index.php)
-   Программное обеспечение (http://forum.3dnews.ru/forumdisplay.php?f=57)
-   -   Помощь по Excel (http://forum.3dnews.ru/showthread.php?t=80995)

nobana1 18.04.2018 10:52

Вложений: 1
Народ! Помогите! Срочно надо!
на листе ТИТУЛ должны быть данные со всех листов. Таблица одинаковая. В колонке ЛИСТ - указывается что строчка взята с конкретного листа

на листе ТИТУЛ нужны колонки
Позиция
Наименование и техническая характеристика
Типа, марка, обозначение документа, опросного листа
Код оборудования, изделия, материала
Завод-изготовитель
Ед.изм.
Кол-во
Масса ед., кг
Примечание


Если в строчке столбца Наименование и техническая характеристика ничего нет - надо исключить его в показе на листе ТИТУЛ

garniv 18.04.2018 13:14

Срочно - используй макрос http://www.excelworld.ru/forum/10-5354-1
PHP код:

Sub www()
    
Dim ws As Worksheetl&
    
With Sheets("ТИТУЛ")
        .
UsedRange.Offset(1).ClearContents
        
For Each ws In Worksheets
            
If Not ws.Name "ТИТУЛ" Then
                l 
= .Cells.Find("*", [a1], xlFormulas112).Row 1
                ws
.UsedRange.Offset(1).Copy .Range("a" l)
            
End If
        
Next
    End With
End Sub 

Но
Цитата:

Сообщение от nobana1 (Сообщение 2647888)
В колонке ЛИСТ - указывается что строчка взята с конкретного листа

Цитата:

Сообщение от nobana1 (Сообщение 2647888)
Если в строчке столбца Наименование и техническая характеристика ничего нет - надо исключить его в показе на листе ТИТУЛ

такого он не делает. Дорабатывай макрос под свои нужды :)

nobana1 18.04.2018 14:45

Цитата:

Сообщение от garniv (Сообщение 2647896)
такого он не делает. Дорабатывай макрос под свои нужды

Я в макросах разбираюсь... как свинья в апельсинах... ноль абсолютный

Вроде макрос сработал... а вот как записать файлик с включенным макросом в том же файле и формате?
с расширением xls получается а с xlsx - нет, почему-то

garniv 18.04.2018 15:12

В xlsx никак нельзя сохранить макросы, только в формате xlsm или xlsb.

Добавлено через 10 минут

Если в этот макрос после строки
PHP код:

ws.UsedRange.Offset(1).Copy .Range("a" l

добавить стоку
PHP код:

Range("J" l) = ws.Name 

то в одну строку столбца J будут вставляться названия листов.

Я тоже в VBS и Excel на уровне 1 класса. Для большего (заполнение всех ячеек столбца ЛИСТ, и удаления пустых строк) надо читать мануалы и пробовать :)

nobana1 18.04.2018 15:42

так только в начале страницы - можно сделать что бы всю страницу оно подписывало в это столбце?

garniv 18.04.2018 15:58

Цитата:

Сообщение от nobana1 (Сообщение 2647911)
можно сделать что бы всю страницу оно подписывало в это столбце?

можно, но как именно - я пока не знаю :) Надо изучать https://yandex.ru/search/?text=excel%20range

nobana1 18.04.2018 16:03

Цитата:

Сообщение от garniv (Сообщение 2647912)
можно, но как именно - я пока не знаю

ой... жалко... нужно очень... еще вчера!!!

просто еще несколько проектов будет - поэтому ... нада!


Текущее время: 12:12. Часовой пояс GMT +3.

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd. Перевод: zCarot