Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

Review - MS Excel 2010 X MS Excel 2007.

Bem às portas da liberação da nova versão do MS Excel 2010, queremos efetuar uma pequena e singela comparação entre as versões 2007 e 2010 (incluindo a versão 2003 quando possível). Convido-o a observar esses estudos simples mas bem elucidativos quanto a melhora de performance do MS Excel 2010.
 
Este artigo é uma tradução livre e ampliada do que foi publicado em DATABISON.

Excel 2010 x Excel 2007

Os desempenhos forma medidos em quatro parâmetros:
1. Tempo abrangido para a criação de tabela dinâmica;
2. Tempo abrangido para a criação de gráficos;
3. Tempo abrangido para preencher um intervalo com números;
4. Tempo abrangido para preencher um intervalo com fórmulas.

Todos os testes foram realizados em arquivos já salvos em pastas de trabalho, de modo que qualquer interferência do formato do arquivo fosse excetuada. (Aviso: Obviamente não foram feitos testes "cientificos" e, portanto, os resultados são apenas indicativos [e não conclusivos]. A execução variará de acordo com configurações de hardware e software).

Tempo abrangido para a criação de tabela dinâmica:

2007-12,08 sec
2010-10,38 sec

excel-2010-excel-2007-pivot-table.png

Foi utilizado o código do exemplo abaixo para criar um conjunto de tabelas dinâmicas (Pivot Tables). O MS Excel 2003 não pôde participar deste ensaio, a versão do código utilizado para criar a PT (Pivot Table) seria um pouco diferente das utilizadas para o MS Excel 2007 e MS Excel 2010. O MS Excel 2010 teve um tempo de execução médio de 10,38 segundos o que foi cerca de 14% inferior ao MS Excel 2007.  

Sub create_pivot()
t = Timer
For i = 1 To 100
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R3457C6", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=ActiveSheet.Cells(1, 1), TableName:="PivotTable1", DefaultVersion _
        :=xlPivotTableVersion12
Next i
MsgBox Timer - t
End Sub

Tempo abrangido para preencher um intervalo com números:

2003-14,86 sec
2007-32,57 sec
2010-10,86 sec

excel-2010-excel-2007-comparison-fill-range-with-number.png
A melhoria mais perceptível está neste desempenho ao preencher uma planilha com números. O MS Excel 2010 ficou em primeiro lugar com um tempo de 10,86 segundos. Deixando para trás o MS Excel 2003, que ficou em segundo lugar com um tempo de 14,86 segundos. Já o MS Excel 2007 ficou para trás, com um tempo de 32,57 segundos. Melhoria de 119%.

Sub fill_range()
t = Timer
For i = 1 To 5000
For j = 1 To 10
Cells(i, j).Value = 10
Next j
Next i
MsgBox Timer - t
End Sub
 
 
Tempo abrangido para preencher um intervalo com fórmulas

2003-6,24 sec
2007-14,32 sec
2010-8,84 sec

excel-2010-excel-2007-comparison-fill-range-with-formulas.png

Aqui observamos mais uma tarefa na qual MS Excel 2010 não é melhor do que MS Excel 2007, quando se trata de preencher uma planilha com fórmulas. Mais uma vez percebemos que o trabalho imposto na Microsoft foi em melhorar o desempenho aparente. Embora o MS Excel 2003 bata seus sucessores em 6,24 segundos, o MS Excel 2010 não está muito atrás em 8.84 segundos, enquanto o MS Excel 2007 chafurda na poeira em 14,32 segundos. Aperfeiçoamento - 38%.

Sub fill_formula()
t = Timer
For i = 1 To 500
For j = 1 To 10
Cells(i, j).FormulaR1C1 = "=SUM(10+20)"
Next j
Next i
MsgBox Timer - t
End Sub

Tempo abrangido para a criação de gráficos

2007-29,62 sec
2010-10,74 sec

Este último teste foi executado para medir os progressos da área gráfica. Gostaria muito de poder comparar estes resultados com os informações do MS Excel 2003, mas, como no caso das tabelas dinâmicas, o próprio código teria sido um pouco diferente e, portanto, não estaríamos comparandor maçãs-com-maçãs. Mais uma vez, o MS Excel 2010 supera o MS Excel 2007 pela larga vantagem de 64%.

excel-2010-excel-2007-charting.png


Sub create_chart()
t = Timer
For i = 1 To 10
    Range("A1:K4").
Select
    Range("K4").Activate
    ActiveSheet.Shapes.AddChart.
Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$K$4")
Next i
MsgBox Timer - t
End Sub
 
Pois bem senhoras e senhores, sim, há melhorias que ajudam na pontuação do MS Excel 2010 em detrimento do MS Excel 2007 em todas as suas muitas áreas.
 
Agora, não fiquemos cegos ao fato de que ao compará-lo com o MS Excel 2003, este ainda deixa poderia ser melhor.
 
Não desconsideremos o fato de que:
O MS Excel 2003 suporta     16.777.216 células por planilha,
O MS Excel 2010 suporta 17.179.869.184 células por planilha,
 
Ou seja, 1.024 vezes mais células.
 
Convido-o a ampliar os testee e a retornar-me com seus comentários e acréscimos. Assim poderemos compreender melhor e mais profundamente as reais vantagens produtivas dessa nova versão.
 

Twitter: @officespecialis
             @brzexceldevelop
             @brzaccessdevel


André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

VBA Access - Criando uma planilha (MS Excel com gráfico) a partir de uma aplicação MS Access.

Vez por outra recebo pedidos sobre como criar planilhas através do Access, ou seja, a partir de uma aplicação MS Access que alguém já tem desenvolvida.

Na verdade isso é muito simples, por isso estou ampliando alguns passos nesta criação. Além de demonstrar como criar a planilha, estou populando-a com dados e inserindo um gráfico, tudo programaticamente (ou de modo automatizado, como preferem alguns).

Espero que gostem, ampliem o exemplo e me retornem opiniões e acréscimos...Ahhh e o mais importante para toda a comunidade de desenvolvedores, compartilhe com o máximo de pessoas que conhecer!

Boa diversão!

 
Private Sub cmdMakeChart_Click()
    '  Author:                           Date:                     Contact:                           URL:
    '  André Bernardes             23/11/2009 10:40   
bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/
    '  Cria uma planilha, popula-a com uma periodicidade e dados, cria um gráfico.
 
    Dim AppMSExcel As Excel.Application
    Dim the_date As Date
    Dim stop_date As Date
    Dim r As Integer
    Dim new_chart As Chart
    Dim new_book As Workbook
    Dim active_sheet As Worksheet
 
    ' Abre a aplicação MS Excel.
    Set AppMSExcel = CreateObject("Excel.Application")
 
    ' Mantém aplicação escondida.
    Let AppMSExcel.Visible = True
 
    ' Cria uma nova planilha (spreadsheet).
    Set new_book = AppMSExcel.Workbooks.Add()
 
    ' Gera valores randômicos dentro de um período.
    Set active_sheet = new_book.Sheets(1)
   
    Let the_date = CDate("01/11/09")
    Let stop_date = CDate("23/11/09")
    Let r = 1
   
    Do While the_date < stop_date
        Let active_sheet.Cells(r, 1) = the_date
        Let active_sheet.Cells(r, 2) = Int(Rnd * 90) + 10
        Let the_date = DateAdd("d", 1, the_date)
        Let r = r + 1
    Loop
 
    ' Cria um gráfico (chart) conectado a estes dados.
    Set new_chart = Charts.Add()
   
    With new_chart
        Let .ChartType = xlLineMarkers
       
        .SetSourceData Source:=active_sheet.Range("A1:B" & Format$(r - 1)), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:=active_sheet.Name
    End With
 
    Let active_sheet.Shapes(active_sheet.Shapes.Count).Top = 10
    Let active_sheet.Shapes(active_sheet.Shapes.Count).Left = 100
    Let active_sheet.Shapes(active_sheet.Shapes.Count).Width = 600
    Let active_sheet.Shapes(active_sheet.Shapes.Count).Height = 400
 
    ActiveChart.ChartArea.Select
 
    ' Acerta primeira fase de detalhes.
    With ActiveChart
        Let .HasTitle = True
        Let .ChartTitle.Characters.Text = "Valores de Fevereiro"
        Let .Axes(xlCategory, xlPrimary).HasTitle = True
        Let .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Data"
        Let .Axes(xlValue, xlPrimary).HasTitle = True
        Let .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valores"
    End With
 
    ' Fecha a pasta (workbook) salvando.
    AppMSExcel.ActiveWorkbook.Close True
 
    ' Fecha o MS Excel.
    AppMSExcel.Quit
    Set AppMSExcel = Nothing
 
    MsgBox "Planilha Gerada!"
End Sub
 


André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com
 
Twitter: @officespecialis
                 @brzexceldevelop
                 @brzaccessdevel
 

 

A&A: Feedback - Ajuda em VBA.

Caro Vinicius,
Bom dia.
 
Primeiramente quero agradecer-lhe pelos acessos aos meus Blogs de VBA:
 
Acredito que, para pessoas que estão iniciando como você, estes sejam relevantes
por propiciar acesso a vários códigos prontos.
 
Bem, quanto a rotinas de interação com as classes gráficas, estas são extensas e
muito produtivas para a utilização.
 
Sugiro-lhe alguns sites para o seu estudo pessoal (caso não tenha problemas com a
língua inglesa, caso contrário aguarde por mais códigos em novos artigos, nos meus
Blogs):
 
 
No mais, não deixe de comprar bons livros, focando especialmente o Office 2007,
bem com a mais nova suíte 10!
 
Se possível retorne comentando sua evolução e aproveitamento...Compartilhe o
endereço dos meus Blogs com outros.
 
Obrigado e forte abraço!
 
André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

Twitter: @officespecialis
            @brzexceldevelop
            @brzaccessdevel

2009/11/21 Vinicius Figueiredo de Castro <sssvinicius@yahoo.com.br>


Bernardes
 
Parabéns pelo seu blog e currículo.
 
Gostaria de tirar uma dúvida com você. Estou começando a programar agora em excel e no inicio gostaria de ter algumas rotinas pre prontas. PRINCIPALMENTE EM GRÁFICO. Como eu consigo interagir uma planília de VBA com os gráficos de excel
 
Muito obrigado
 
Vinicius Figueiredo de Castro
sssvinicius@yahoo.com.br

VBA Excel - Trabalhado com múltiplas WorkSheets - 02

Selecionando várias worksheets
Vejamos um exemplo de como construir uma matriz com os elementos identificados apenas em tempo de execução. Mas, primeiro nós olhamos o código que usa a declaração SELECT de uma forma raramente vista.

Sabia que o método Select tem um parâmetro opcional? Verifique o Help do MS Excel VBA e encontrará a sintaxe

Selecione o método que se aplica para o Chart, Charts, Shape, ShapeRange, Sheets, Worksheet, e objetos Worksheets.

Selecione o objeto.
expression.Select(Replace)

A expressão requer uma expressão que retorne um dos objetos acima (Chart, Charts, Shape, ShapeRange, Sheets, Worksheet, e objetos Worksheets).

Replace
É uma Variant opcional
 

O exemplo de código abaixo seleciona os Sheet2 Chart1, copiando-os para um novo workbook.
 
Sheets ( "Sheet2"). Selecione
Sheets ( "Chart1"). Selecione False
ActiveWindow.SelectedSheets.Copy
 
Como comentei anteriormente, a seleção e ativação dos objetos deve ser utilizada como último recurso.

Veremos como fazer isso em seguida....


Twitter: @officespecialis
@brzexceldevelop
@brzaccessdevel

Veja também:
Blog Office VBA | http://inanyplace.blogspot.com/
Blog Excel | http://brzexceldeveloper.blogspot.com/
Blog Access | http://brzaccessdeveloper.blogspot.com/

VBA Excel - Trabalhado com múltiplas WorkSheets - 01

Hello folks!

Existem diversos casos nos quais desejemos realizar uma única e mesma ação em várias worksheets ao mesmo tempo.

Isso pode incluir imprimi-las ou copiá-los para outro local ou mesmo a editá-las em suas várias worksheets numa única etapa.

Em alguns casos processar uma worksheet de cada vez produzirá um resultado diferente do que se pode obter ao trabalhar em várias worksheets simultaneamente. Em outros casos, pode ser apenas uma questão de conveniência.

De qualquer modo no seu caso pode ser apenas uma questão de aprendizado de como fazê-lo.

Dois exemplos onde os resultados são diferentes:
Quando se copia um gráfico, e o dados associados a este, num único processo para outra pasta de trabalho, as referências ao gráfico também são atualizadas, fazendo referência aos dados da nova pasta. No entanto, se estas são copiados individualmente, o gráfico faria referência à worksheet original.

Outro exemplo pode ser observado no momento da impressão simultânea de várias worksheets, ao imprimi-las as páginas serão numeradas sequencialmente. Faça isso uma folha de cada vez e as páginas serão numeradas separadamente. Além disso, cada folha será um trabalho de impressão separado. Enquanto alguns podem não considerar isto como um grande problema, para outros pode ser.

Nesta dica veremos como trabalhar com várias folhas através de código VBA.

Usando o gravador de macro
Começando com o nosso amigo de confiança, o gravador de macro, no código temos a impressão de duas folhas é:

Dim nPlan As String
Dim nChart As String
Dim nSheet As String

Sheets (Array ( nPlan, nChart)). Selecione
Sheets ( nSheet). Activate

Let Application.ActivePrinter = "HP-Printer on Ne01:"

ActiveWindow.SelectedSheets.PrintOut Copies: = 1, ActivePrinter: = "Acrobat Distiller Ne06 em:", Collate: = True

Observe que o código utiliza essencialmente uma matriz com um índice para o endereçamento (Sheets(1)), ao invés da típica sintaxe Sheets("Sheet1"). Isso permitirá o funcionamento em várias worksheets ao mesmo tempo.
 
Twitter: @officespecialis
             @brzexceldevelop
             @brzaccessdevel



André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine