Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Пропадает связь диаграмм между Excel и ppt
 
Здравствуйте. Можно попробовать связать между собой таблицу самой диаграммы на слайде с таблицей-источником в ексель. Ограничения при этом могут быть такими:
1 - хранить вместе файлы презентации и таблицы-источники ексель;
2 - запускать процедуру для обновления всех диаграмм в презентации
Заполнение диаграмм в word данными из таблицы
 
Вот  такой вариант можно предложить. В шаблоне для каждой диаграммы назначаете альтернативный текст в виде ФИО сотрудника, так же как и таблице ексель, а в ворд вставляете этот код. Тогда все диаграммы в документе будут обновлены автоматически
Код
Sub test()
    Dim r As Excel.Range, r1 As Excel.Range
    Dim ws As Worksheet
    Dim i As Integer, j As Integer
    Dim doc As Word.Document
    Dim wrd As Word.Application
    Dim str As String
    Dim iSh As Word.Shape
    Dim crt As Word.Chart    
    
    Set wrd = GetObject(, "word.application")
    wrd.Visible = True
    
    Set doc = wrd.Documents(1)
    Set ws = ActiveSheet
    Set r = ws.UsedRange
    For i = 2 To r.Rows.Count
        
        str = ws.Cells(i, 1)
        For Each iSh In doc.Shapes
            If CStr(iSh.AlternativeText) = str Then
                Set crt = iSh.Chart
                With crt.ChartData.Workbook
                    Set r1 = .Sheets(1).Cells(1, 1).CurrentRegion
                    Set r1 = r1.Offset(1, 1).Resize(r1.Rows.Count - 1, 1)
                    For j = 2 To 7
                        r1.Cells(j - 1) = ws.Cells(i, j) / 100
                    Next j
                    
                End With
            End If
        Next
    Next i
    
End Sub
условное форматирование таблицы в powerpoint, условное форматирование таблицы в powerpoint
 
Добрый вечер. По идее можно, вставив в ячейку таблицы слайда внедренную обычную диаграмму, сжав её размеры до вида гистаграммы. Но никогда такого не пробовал)))  
SQL-запрос, Join по последней дате
 
Можно так. Сложный запрос. Сначала определяем перечень проведённых ТО с максимальными датами и джойним к справочнику

SELECT B.name_p, B.color, B.factory, A.product_cod, A.date_last_maintenance, (SELECT Vehicle_status FROM Teh_obsluzhivanie WHERE product_cod = A.product_cod AND date_last_maintenance = A.date_last_maintenance) as Vehicle_status

FROM (SELECT A.product_cod, (SELECT max(date_last_maintenance) FROM Teh_obsluzhivanie WHERE product_cod = A.product_cod) as date_last_maintenance

            FROM Teh_obsluzhivanie as A

            GROUP BY A.product_cod) as A

LEFT JOIN  Spravochnik as B ON B.cod_product = A.product_cod

Связи и настройки графиков в Excel и PP для корректного обновления данных
 
Есть вариант с помощью макросов. В PP в диаграмме встроен лист Excel, данные которого с помощью VBA можно "синхронизировать" c данными того файла, который постоянно обновляется. Скорее всего так и был сделан ваш архивный рабочий файл
Сортировка данных
 
Можно на отдельном листе, назвать его "словарь" расставить по порядку должности и их порядковый номер в разных ячейках например:
Начальник цеха - 1
Мастер - 2
Токарь - 3
А потом подтягивать в рабочую таблицу в отдельный столбец цифровые значения из листа "словарь". Подтягивать можно либо макросом, либо формулами.
привязка строк из разных листов
 
Здравствуйте. На вкладке "Главная" нажмите на "Форматировать как таблицу"
Как сбросить фильтр?, VBA
 
:))) раскрыл
Как сбросить фильтр?, VBA
 
Попробуйте поиграться AutoFilterMode и FilterMode. С их помощью можно определить применен ли фильтр на листе или нет.
Код
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
Таблицы из Эксель в Ворд, Таблицы в Ворде
 
Попробуйте этот код для Word. В строках где в первом столбце текст = "Показатель" в ячейках отступы текста приравниваются 0, а потом просто ширины столбцов подгоняются под нужные значения.

Код
Sub ОформитьТаблицу()
    Dim doc As Document
    Dim tb As Table
    Dim i As Integer, j As Integer
    
    Set doc = ActiveDocument
    Set tb = Selection.Tables(1)
    tb.Rows.SetLeftIndent LeftIndent:=14, RulerStyle:=wdAdjustNone
    For i = 1 To tb.Rows.Count
        
        If InStr(tb.Rows(i).Cells(1).Range, "Показатель") > 0 Then
            For j = 2 To tb.Columns.Count
                With tb.Rows(i).Cells(j)
                    .LeftPadding = 0
                    .RightPadding = 0
                End With
            Next j
        End If
    Next i
   
    With tb
        .Columns(1).Width = 70.95
        .Columns(2).Width = 39.25
        .Columns(3).Width = 43.8
        .Columns(4).Width = 28.35
        .Columns(5).Width = 37.45
        .Columns(6).Width = 34.5
        .Columns(7).Width = 37.3
        .Columns(8).Width = 37.15
        .Columns(9).Width = 42.35
        .Columns(10).Width = 47.1
        .Columns(11).Width = 42.55
        .Columns(12).Width = 38.3
        .Columns(13).Width = 44.7
        .Columns(14).Width = 28.3
    End With
End Sub
Создание системы учёта, Ведение учета
 
Ok
Создание системы учёта, Ведение учета
 
:))) смотрю тишина, никто не пишет. Дай думаю помогу :)
Создание системы учёта, Ведение учета
 
Здравствуйте, помощь еще требуется?
Автоматическое обновление таблиц в Power Point из Excel
 
Здравствуйте.  Можно двумя вариантами.
1. Внедрить листы ексель на слайд. Только минус этого способа в том, что внедренная таблицу можно редактировать только в файле ексель (размеры строк и столбцов, шрифтов, заливку и т.д)
2. Использовать ресурсы VBA. Тогда возможности редактирования шире. Фактически значения данных будут  будут переносится из ексель. Кроме того при желании можно расширить функционал. Добавить некоторые расчёты, например вычислять динамику
Access обучение на 2-3 часа по созданию базы
 
Если ещё интересно, могу поработать с вами в выходные дни
Связь текстового значения в Powerpoint с ячейкой Excel, Как связать значение в поверпоинт со значение в определенной ячейке эксель
 
Процедуру нужно прописывать в самом Power Point. Через позднее или раннее связывание привязать таблицу Excel с таблицей PowerPoint
Суммирование по листам с нарастающим итогом в ячейке
 
Может подойдет решение с макросом?
Суммирование по листам с нарастающим итогом в ячейке
 
Доброе время суток.
Уточняющий вопрос. Каким образом вы устанавливаете значение прихода за весь месяц на 1-м листе
Страницы: 1
Наверх