отображение форматированного текста с диапазона одного листа

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

отображение форматированного текста с диапазона одного листа (Формулы/Formulas)

IIoJIuKapII

Дата: Понедельник, 16.02.2015, 10:18 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2007

Доброго времени суток!

Сообразил себе ежедневник...

1-й лист - расписание на день. табличка со временем...строки - что и в какой час выполнить...и общий список задач на день (правый столбец)!
2-й, 3...N листы - скажем направления, стороны или как хотите их называйте...объекты...в которых содержится общая инфа по "объекту"!

Так вот...задача стоит в том чтобы из листов "объектов"(2-й, 3-й...N) (из диапазона или со всего листа) выделенный текст отображать в столбце "список задач на день" по порядку листов (2-й, 3-й...N) оставляя пустую строчку, чтобы различать листы...или в идеале показывать название листа!

Воот!

Спасибо!

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

Ответить

SLAVICK

Дата: Понедельник, 16.02.2015, 11:24 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

Так пойдет?
Воот

[vba]

Код

Sub dd()
Dim i&, nr&, nc&, r As Range, c As Range
     For i = 2 To Sheets.Count
         Sheets(i).Activate
         nr = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
         nc = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Column
         Set r = Sheets(i).Range(Cells(1, 1), Cells(nr, nc))
         s = ""
             For Each c In r
                 If c.Font.Bold = True Then s = s & " " & c
             Next
         s = Sheets(i).Name & ": " & Trim(s)
         Sheets(1).Cells(i - 1, "f") = s
     Next
      Sheets(1).Activate
End Sub

[/vba]

Ой. Не посмотрел что тема в вопросах по Excel... наверное ее нужно перебросить в VBA?

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

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Понедельник, 16.02.2015, 11:35

Ответить

отображение форматированного текста с диапазона одного листа (Формулы/Formulas)

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