Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
[ Закрыто] Power Pivot
 
Ок, ещё раз. Где мне оставить название темы, чтобы ваши модераторы его поменяли?
[ Закрыто] Power Pivot
 
Цитата
vikttur написал:
Вы не поняли, о чем замечание?
Я не могу поменять название, мне куда его написать? Прям здесь?
[ Закрыто] Power Pivot
 
Друзья, помогите пжл
[ Закрыто] Power Pivot
 
Всем привет. Пытаюсь освоить этот инструмент, но не могу разобраться. помогите пожалуйста. Необходимо гибко настроить меру, так что-бы используя срезы coll и shop корректно считались oc/visitor и gm/visitors. Дело в том, что visitors меняется для ww и shop, но у меня есть ещё один уровень - это коллекции (coll). Файл приложил.
Изменено: oleg_man - 26 сен 2018 12:28:02
Вставка на лист картинки из интернета
 
Всем привет.

Сейчас у нас существует отчет по прогнозу погоды, его необходимо обновлять раз в неделю. Отчет состоит из скриншотов с сайтов gismeteo и accuweather по определенным городам. Затем отчет сохраняется в формате pdf.
Мне необходимо автоматизировать его, в связи с чем у меня родилась идея делать это с помощью Excell.
Возможно ли с помощью vba тянуть картинки с определенных страниц сайтов в тело книги, либо, возможно, скриншотить? Если да, то как?  
Если нет, то с радостью выслушаю идеи по реализации данного проекта.
Многоуровневая группировка данных
 
Маугли, спасибо огромное!

Да, но в данном случае мне необходима группировка и разгруппировка только по строкам. Столбцы я группирую один раз руками и они будут статичными, а вот строки у меня могут измениться.

Помоги пожалуйста с методом .ClearOutline для форматированной таблицы.
Многоуровневая группировка данных
 
С первой частью разобрался, добавил еще одно условие, чтобы счетчик k сбрасывался, если строка пустая.
Вот готовый вариант.
Код
Sub Group_()
    Dim i&, j&, k&, lr&, rng As Range

    lr = Cells(Rows.Count, "A").End(xlUp).Row
    Set rng = Range("A1:E" & lr)
    
    With rng
      '  .ClearOutline
        For j = 4 To 1 Step -1
            k = 0
            For i = 2 To lr
                If Not .Cells(i, j) Like "*итог:*" Then
                        If .Cells(i, j) = 0 Then
                            k = 0
                        Else
                            k = k + 1
                            End If
                            
                Else
                    .Rows(i - k & ":" & i - 1).Group: k = 0
                End If
            Next
        Next
    End With
End Sub


Подскажите теперь, почему не работает метод .ClearOutline в форматированной таблице? И как это пофиксить?
+ мне необходимо разгруппировать только строки, а не весь лист.
Изменено: oleg_man - 17 фев 2017 18:56:44
Многоуровневая группировка данных
 
Нет, потому что в правой части у меня тоже должна быть группировка, но сводная агрегирует данные при группировке, что мне как раз не нужно, мне необходимо их просто свернуть, так как там у меня данные в динамике по неделям.
Все расчеты я произвел скриптом из базы данных, теперь мне остается только все "причесать" в экселе и отправить по почте, что должно происходить автоматически.
Если с обновлением, сохранением и отправкой по почте я разобрался, то вот в части форматирования у меня возникли проблемы...
Многоуровневая группировка данных
 
Спасибо!!

Но, к сожалению, работает некорректно при большем количестве строк.
И еще, так как таблица форматированная, и в моем случае данные грузится с помощью подключения к базе данных Oracle, строка в которой производится снятие всех группировок ".ClearOutline" с листа выдает ошибку.  
Результат во вложении:
Многоуровневая группировка данных
 
Прошу прощения, что не по правилам. Файл приложил.
Многоуровневая группировка данных
 
Всем привет.

Так как сам в VBA не силен, а времени на разбор у меня не много, прошу помочь в написании макроса, который будет группировать строки.
Макрос должен искать строки со значением "итог" и группировать строки выше.

Файл с примером во вложении
Изменено: oleg_man - 17 фев 2017 17:44:37
Вставить картинку в тело письма Lotus Notes, вставка в тело письма картинки из определенного диапазона
 
Ну же, гуру VBA, выручайте :(
Вставить картинку в тело письма Lotus Notes, вставка в тело письма картинки из определенного диапазона
 
Добрый день.

Прошу помочь. Есть функция отправки писем через Lotus Notes. Но не могу понять как в тело письма крепить картинку, например копию определенного диапазона ячеек, либо диаграмму.
Код
Public Function Local_mail( _
ByVal MyAtt As Variant, _
ByVal MyTheme As String, _
ByVal MyText As String, _
ByVal StrSendTo As Variant, _
ByVal StrCopyTo As Variant, _
StrBCC As Variant)

'MyAtt - вложение
'MyTheme - тема
'MyText - текст письма
'StrSendTo - кому
'StrCopyTo - копия
'StrBCC - Скрытая копия

Dim notesdb As Object
Dim notesdoc As Object
Dim notessession As Object
Set notessession = CreateObject("Notes.notessession")
Set notesdb = notessession.GETDATABASE("", "")

t = StrSendTo
y = MyAtt
StrSendTo = Split(StrSendTo, ",")
StrCopyTo = Split(StrCopyTo, ",")
StrBCC = Split(StrBCC, ",")
MyAtt = Split(MyAtt, ",")

Call notesdb.OPENMAIL
Set notesdoc = notesdb.CREATEDOCUMENT
Call notesdoc.replaceitemvalue("Sendto", StrSendTo)
Call notesdoc.replaceitemvalue("Copyto", StrCopyTo)
Call notesdoc.replaceitemvalue("BlindCopyto", StrBCC)
Call notesdoc.replaceitemvalue("Subject", "ДРНА Report: " & MyTheme)

Set notesrtf = notesdoc.CREATERICHTEXTITEM("body")

 If y <> "" Then
  For i = 0 To UBound(MyAtt)
  If MyAtt(i) <> "" Then
  Call notesrtf.EMBEDOBJECT(1454, "", MyAtt(i))
  End If
  Next i
 End If

 Call notesrtf.AddNewLine(2)
 Call notesrtf.AppendText(MyText)
notesdoc.DeliveryReport = "a"         '-----------Запрос уведомления о доставке адресату
notesdoc.ReturnReceipt = "1"          '-----------Запрос уведомления о прочтении письма адресатом
  notesdoc.SAVEMESSAGEONSEND = True     '-----------Сохранять или нет в папке "Отправленные"
  notesdoc.SignOnSend = True             '---------подписывать
  notesdoc.Importance = "1"              '---------важность док-та(Высокая = 1, Обычная = 2, Низкая = 3)
  'notesdoc.EncryptOnSend = True          '---------шифровать
 Call notesdoc.send(False)
 Set notessession = Nothing
End Function


Заранее спасибо!
Страницы: 1
Наверх