MOS Excel - Microsoft Office Specialist - VBA, MS Excel - Automation

Microsoft Office Excel - 10 percepções de utilização

2012-01-28T03:52:00.001-08:00

Disponibilizei 10 percepções de utilização de como o Microsoft Office Excel pode ajudar-nos a criar as nossas planilhas, bem como analisá-las, compartilhá-las, gerenciá-las e distribuí-las de forma mais eficaz.

O Microsoft Office Excel é uma ferramenta poderosa e amplamente usada que ajuda as pessoas a analisarem suas informações e tomarem decisões coerentes, e na medida do possível embasadas em lógica simples.

Usando o

Microsoft Office Excel

e os seus serviços, podemos compartilhar e gerenciar nossas análises e idéias com colegas de trabalho, clientes e parceiros com maior confiança.

	O Microsoft Office Excel tem a interface de usuário Office Fluent para ajudá-lo a encontrar ferramentas poderosas quando precisar delas. Com base no trabalho que precisa realizar, quer seja a criação de uma tabela ou escrever uma fórmula, o Microsoft Office Excel apresenta os comandos adequados para você quando necessários.

	Importe, organize e explore conjuntos de dados maciços dentro de planilhas significativamente expandidas. Trabalhe com grandes quantidades de dados no Microsoft Office Excel, que oferece suporte a planilhas que podem ser maiores do que 1 milhão de linhas por 16.000 colunas. Além da grade maior, o Microsoft Office Excel oferece suporte a plataformas de processadores de vários núcleos para o cálculo mais rápido das planilhas com suas várias fórmulas.

	Use o mecanismo de gráficos completamente redesenhado do Microsoft Office Excel para comunicar a sua análise em gráficos de aparência profissional. Crie gráficos de aparência profissional mais rápido e com menos cliques usando ferramentas gráficas na interface de usuário Office Fluent. Aplique melhorias visuais ricas aos seus gráficos, como sombreamento leve e transparência. Crie e interaja com gráficos da mesma maneira, independentemente do aplicativo que está usando, pois o mecanismo de gráficos do Microsoft Office Excel é consistente em todo o Microsoft Office e no Microsoft Office PowerPoint.

	Desfrute o suporte poderoso e melhorado de trabalhar com tabelas. Crie, formate, expanda, filtre e consulte tabelas dentro de fórmulas, pois o Microsoft Office Excel melhorou muito o suporte para tabelas. Ao revisar dados contidos em uma tabela grande, o Microsoft Office Excel mantém os títulos das tabelas na exibição, enquanto você os rola.

	Crie e trabalhe com modos de exibição de tabela dinâmica interativos, com facilidade. Os modos de exibição de tabela dinâmica permitem que você redirecione rapidamente os seus dados para ajudá-lo a responder várias perguntas. Encontre as respostas de que precisa mais rapidamente, crie e use os modos de tabela dinâmica mais facilmente, arrastando campos onde você quer exibi-los.

	"Consulte" tendências importantes e encontre exceções nos dados. Aplique formatação condicional às suas informações mais facilmente para descobrir padrões e realçar tendências em seus dados. Os novos esquemas incluem gradientes de cor, mapas de calor, barras de dados e ícones de indicador de desempenho.

	Use o Microsoft Office Excel e os seus serviços para ajudar a compartilhar planilhas com os outros de maneira mais segura. Os Serviços do Microsoft Office Excel, um recurso do Microsoft Office SharePoint Server, processam dinamicamente uma planilha como HTML para que outros possam acessar as informações usando um navegador da Web. Devido ao alto grau de fidelidade com o cliente do Microsoft Office Excel , os usuários dos Serviços do Excel podem navegar, classificar, filtrar, inserir parâmetros e interagir com as informações, tudo dentro do navegador da Web.

	Ajude a garantir que você e sua organização trabalhem com as informações comerciais mais atuais. Evite que a disseminação de várias cópias ou de cópias desatualizadas de uma planilha pela organização usando o Microsoft Office Excel e o Office SharePoint Server. Controle quais usuários podem exibir e modificar planilhas no servidor usando acesso baseado em permissão.

	Reduza o tamanho das planilhas e melhore a recuperação do arquivo danificado ao mesmo tempo. O novo formato compactado XML do Microsoft Office Excel oferece uma redução drástica em tamanho de arquivo, enquanto sua arquitetura oferece melhoria na recuperação de dados de arquivos danificados. Esse novo formato oferece uma enorme economia de requisitos de armazenamento e de largura de banda, além de reduzir a carga no pessoal de TI.

	Amplie seus investimentos em inteligência comercial, pois o Microsoft Office Excel oferece suporte completo para o Microsoft SQL Server Analysis Services. Tire vantagem da flexibilidade e das novas funções de cubo do Microsoft Office Excel para criar um relatório personalizado a partir de um banco de dados OLAP. Você também pode conectar-se a fontes externas de dados mais facilmente usando a Biblioteca de Conexões de Dados.

Tags: Microsoft Office Excel, Excel, Office Fluent, 10 percepções de utilização, Microsoft Office SharePoint Server, Microsoft SQL Server Analysis Services, OLAP

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Excel - Como deixar suas planilhas enxutas

2012-01-28T03:14:00.001-08:00

Confesso que manter o tamanho das planilhas sejam um tema recorrente e difícil de divulgar. Certamente causa interesse, mas o ponto principal é: Como deixá-las menores?

Ja abordei este assunto diversas vezes, sobre óticas distintas: Explicando o motivo destas ficarem assim, mostrando ações efetivas de torná-las menores, demonstrei técnicas com o VBA e tudo o mais.

Nos idos de 2009, escrevi coisas similares as demonstradas abaixo:

Possivelmente já percebeu como suas planilhas inflam sem qualquer aparente explicação, como se tivesse comido vários quilos de açúcar. De uma hora prá outra o que tinha apenas uns parcos 530 KB de peso, passa a ter e exibir exuberantes 2.350 KB. O que aconteceu? Será que nossas planilhas atacam a geladeira durante a madrugada?

Com o passar do tempo, sem que necessariamente tenhamos acrescentado algum conteúdo relevante, nossas planilhas persistem em aumentar.

Linhas inofensivas
:
É muito comum que somente abramos o nosso arquivo, efetuando pequenas alterações em certas células, além de vez ou outra inserirmos algumas linhas em branco, apenas para posicionarmos algumas informações. O que talvez não percebamos é que estas inofensivas linhas em branco não somem, antes são salvas, ocupando espaço desnecessário. Lógico que isso é muito comum devido a grande manipulação de dados que efetuamos diariamente. Nunca paramos prá pensar em tamanho no nosso dia-a-dia. Somente quando não temos espaço, ou quando o administrador da rede diz-nos que nosso espaço no Public está lotado é que pensamos no motivo de tão poucas planilhas ocuparem tanto espaço.

Mandando suas planilhas para o SPA

:
O MS Excel não consegue distinguir as linhas que estão em branco (pelo menos não o fazia corretamente na versão de 2009) ou vazias e acaba por gravar todas as ocorrências em branco como conteúdo das nossas planilhas. Além disso, caso formatemos uma coluna inteira até a linha 1 milhão (mesmo que sem querer), ao fechar a planilhas teremos gravado aquela coluna em um milhão de linhas, apenas porque esquecemos da formatação ali.

O tamanho das planilhas é uma preocupação constante nas nossas aplicações. A não ser que realmente precisemos ter ocorrências extensas, deveríamos automatizar a deleção das linhas excedentes.

Como faremos isso?

Técnicas de exclusão de linhas podem ser colocadas ao fecharmos e/ou gravarmos nossas planilhas...Isso as fariam efetuar atividades 'aeróbicas' constantemente, queimando suas calorias extras...

Deletar linhas e efetuar as tais tarefas aeróbicas podem tornar o fechamento das planilhas muito lento dependendo do tamanho.

Confesso que nesta época era persistente, por isso não parei por aí:

Quando nossas planilhas recebem dados de outras bases (fontes), seja através de ODBC, Macros ou mesmo informações da Internet, não raro aparecem melhares de linhas em branco. Caso ache útil deletá-las poderá implementar a solução abaixo.

Function EliminateThousandBlankLines(StarLine as Long)
' Author: André Luiz Bernardes.
' Date: 05.02.2009

Let nRow = StartLine

Do While ActiveSheet.Cells(nRow, 1) <> ""

If ActiveSheet.Cells(nRow, 1).Value <> strUserName Then
ActiveSheet.Rows(nRow).EntireRow.Delete
Else

Let nRow = nRow + 1
End If
Loop
End Function

Nesta missão de suma importância, onde a deleção de linhas e colunas desnecessárias mostram-se tão preementes, deixo-vos códigos utilíssimos:

Function LastRow (nColumn As String, InitLine As Single) As Single
' Author: Date: Contact:

' André Bernardes 16/09/2008 14:20 bernardess@gmail.com
' Retorna o número de ocorrências.

Dim nLine As Single
Dim nStart As Single
Dim nFinito As Single
Dim Cabessalho As Single

Dim nCeo As String

Application.Volatile

Let nStart = InitLine + 1

Let nFinito = 65000
Let Cabessalho = InitLine

Do While nStart < nFinito
Let nCeo = nColumn & Trim(Str(nStart))

If Application.ActiveSheet.Range(nCeo).Value = "" Then
Exit Do
End If

'Let Application.StatusBar.Value = " Linha: " & nStart

Let nStart = nStart + 1
Loop

Let LastRow = (nStart - 1) '- Cabeçalho

'Let Application.StatusBar.Value = " "
End Function

Function FindLastColumn() As Single

Let FindLastColumn = Range("IV10").End(xlToLeft).Column

'ActiveSheet.UsedRange.Columns.Count

'Dim LastCol As Integer

'Let LastCol = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
'Let FindLastColumn = LastCol
End Function

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)

NomePlanilha = ActiveSheet.Name
NomePasta = ActiveWorkbook.Name

Endereco = ActiveWorkbook.Path

UsuarioExcel = Application.UserName
UsuarioEstacao = Environ("USERNAME")

UltimaLinhaNumero = ActiveCell.SpecialCells(xlCellTypeLastCell).Row

UltimaColunaNumero = ActiveCell.SpecialCells(xlCellTypeLastCell).Column

UltimaCelulaRange = ActiveCell.SpecialCells(xlCellTypeLastCell).Address & " ou " & ActiveCell.SpecialCells(xlCellTypeLastCell).Address(RowAbsolute:=False) & " ou " & ActiveCell.SpecialCells(xlCellTypeLastCell).Address(ReferenceStyle:=xlR1C1)

CelulaAtualLinhaNumero = ActiveCell.Row
CelulaAtualColunaNumero = ActiveCell.Column
CelulaAtualRange = ActiveCell.Address & " ou " & ActiveCell.Address(RowAbsolute:=False) & " ou " & ActiveCell.Address(ReferenceStyle:=xlR1C1)

CelulaAtualRelativo = ActiveCell.Address(ReferenceStyle:=xlR1C1, RowAbsolute:=False, ColumnAbsolute:=False, RelativeTo:=Worksheets(NomePlanilha).Cells(1, 1))

MsgBox "Planilha Atual" & vbCrLf & vbCrLf & _

vbTab & "Nome" & vbTab & vbTab & ": " & NomePlanilha & vbCrLf & _
vbTab & "Última Linha" & vbTab & ": " & UltimaLinhaNumero & vbCrLf & _

vbTab & "Última Coluna" & vbTab & ": " & UltimaColunaNumero & vbCrLf & _
vbTab & "Última Célula" & vbTab & ": " & UltimaCelulaRange & vbCrLf & vbCrLf & vbCrLf & _

"Célula Atual" & vbCrLf & vbCrLf & _
vbTab & "Número da Linha" & vbTab & ": " & CelulaAtualLinhaNumero & vbCrLf & _
vbTab & "Número da Coluna" & vbTab & ": " & CelulaAtualColunaNumero & vbCrLf & _
vbTab & "Range" & vbTab & vbTab & ": " & CelulaAtualRange & vbCrLf & _

vbTab & "Relativo a A1" & vbTab & ": " & CelulaAtualRelativo & vbCrLf & vbCrLf & vbCrLf & _
"Outras Informações" & vbCrLf & vbCrLf & _

"Nome da Pasta de Trabalho" & vbTab & vbTab & ": " & NomePasta & vbCrLf & _
"Caminho da Pasta de Trabalho" & vbTab & ": " & Endereco & vbCrLf & _

"Usuario (Excel)" & vbTab & vbTab & vbTab & ": " & UsuarioExcel & vbCrLf & _
"Usuario (Estação)" & vbTab & vbTab & vbTab & ": " & UsuarioEstacao, vbInformation, "Informações"

End Sub

Referência: Canguru

Tags: Excel, delete, rows, lines, excel size, cell, cell info, worksheet, small workbook,

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

SOLUÇÕES VBA

2012-01-23T22:40:00.003-08:00

Desenvolvo aplicações com o VBA.

Utilizo a suíte do Microsoft Office para estender soluções aos clientes.

Desenvolvo aplicações (ferramentas) com o MS Excel, MS Access, MS Powerpoint, MS Word, MS Outlook, MS Sharepoint.

Procure melhorar os resultados que vem alcançando na sua empresa hoje. Através da automação realizo todas as tarefas que demandariam muito tempo dos usuários.

Já desenvolvi diversas aplicações em planilhas. Aplicações com o MS Access, Exportação automática de gráficos e tabelas do MS Excel para o MS PowerPoint , Envio automático de relatórios através do MS Outlook. Além disso implementei diversos Dashboards com os seus respectivos KPIs (indicadores de desempenho).

Trabalhe melhor os dados oriundos do seu ERP (SAP, Microsiga, Datasul, ORACLE, BAAN, PEOPLESOFT, etc).

Usufrua da excelência ao analisar suas Informações

Você tem direito às informações da sua empresa

Dados ou Informações?

Crie relatórios personalizados, implemento um visual (layout) profissional aos indicadores de sua empresa.

Consulte as condições de pagamento e prazos para desenvolvimento.

Instruções para o comprador

1. Todas as minhas atuações são freelance.

2. O preço e prazos passados variam de acordo com a urgência e complexidade do serviço. Para maiores informações, solicite um orçamento.

3. Ao solicitar um orçamento, envie documento contendo as especificações detalhadas do que necessita ser realizado. Assim identifico melhor a sua necessidade.

Tempo de entrega em dias: A combinar

Tags: André Luiz Bernardes, TI, Tecnologia da Informação, KPI, KPIs, Key performance Indicator, PMBOK, escopo, stakeholder, Indicadores, DW, Data Warehousing, BSM, Business Scorecard Manager, BSC, Balanced Scorecard, Dashboard

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Excel - Manipulando Tabela Dinâmica - Refresh Pivot Table

2012-01-23T22:40:00.001-08:00

Quando estamos efetuando nossas implementações em Dashboards e preocupados com a performance das suas atualizações, também passa por nossas cabeças a necessidade de que sejam dinâmicos. Para isso torna-se imprescindível saber atualizar as nossas Pivot Tables (Tabelas Dinâmicas) utilizando o VBA. Como fazê-lo?

Quando a planilha for aberta ela pode automaticamente evocar um código que atualize todas as PT (Pivot Table) da nossa planilha

Sub Worksheet_Activate()
Run "PT_Refresh"
End Sub

Atualizando uma PT simples:

Sub PT_Refresh()

   Dim pt As PivotTable

   Set pt = ActiveSheet.PivotTables("MyPivot")

   pt.RefreshTable

End Sub

Atualizando várias PTs:

Sub AllWorksheetPTs()

   Dim pt As PivotTable

   For Each pt In ActiveSheet.PivotTables

   pt.RefreshTable

   Next pt

End Sub

Atualiza todas as PTs selecionadas na worksheet:

Sub ChosenPTs()

   Dim pt As PivotTable

   For Each pt In ActiveSheet.PivotTables

   Select Case pt.Name

   Case "PivotTable1", "PivotTable4", "PivotTable8"

   pt.RefreshTable

   Case Else

   End Select

   Next pt

End Sub

Atualizando PTs selecionadas previamente na planilha:

Sub AllWorkbookPTs()
   Dim pt As PivotTable
   Dim ws As Worksheet

   For Each ws In ActiveWorkbook.Worksheets

   For Each pt In ws.PivotTables

   pt.RefreshTable
   Next pt

   Next ws
End Sub

Talvez você deseja executar um procedimento após a atualização de um PT, como por exemplo enviar por e-mail, atualizar uma base de dados externa, etc...Como automatizar isso?

Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Call ClonaPivot

End Sub

Tags: VBA, PT, Pivot Table, Tabela Dinâmica, refresh, table, workbook, worksheet, automation

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Excel - Preenchendo lacunas vazias com dados.

2012-01-20T06:01:00.001-08:00

Quem está constantemente desenvolvendo soluções através do MS Excel, regularmente depara-se com a seguinte situação:

Primeiro copia-se um determinado Range, recém atualizado, que reflete o resultado de um filtro específico de uma Pivot Table (Tabela Dinâmica).

Segundo, ao colar o Range recém copiados da PT (Pivot Table), percebe que algumas lacunas ficaram vazias, pois a PT em cada coluna, não repete uma série de dados, apenas demonstra a primeira ocorrência desta.

Como fazer para que todo o Range copiado fique com os dados completos, mesmo que repetidos, preparando-os para serem exportados para uma tabela do MS Access por exemplo?

Assim que o Range estiver selecionado, aplique-lhe a seguinte série de códigos:

' Prepara os dados para serem enviados a uma tabela no MS Access.
Selection.SpecialCells(xlCellTypeBlanks).Select

Let Application.CutCopyMode = False

Let Selection.FormulaR1C1 = "=R[-1]C"

Tags: Bernardes, VBA, Office, Excel, Range, select, copy, Pivot Table, PT, Tabela Dinâmica, fill, data, lacuna, preenchendo

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Excel - Como selecionar um range de tamanho variável para cópia.

2012-01-20T05:37:00.001-08:00

Ocorre incontáveis vezes, a necessidade de copiarmos um determinado Range (Sendo este em alguma ocasiões, o resultado da atualização de uma Pivot Table (Tabela Dinâmica)) para outro local, como fazê-lo?

   ' Marcar e copia o range de Dados atualizado.

   Range ("B6:E" & LastLine()).Select ' Seleciona a área com dados.

   Selection.Copy   ' Copia a área com dados.

   Range ("G6").Select ' Seleciona o local para onde os dados serão copiados.

   ' Cola os dados selecionados.

   Selection.PasteSpecial _
   Paste:=xlPasteValues, _

   Operation:=xlNone, _
   SkipBlanks:=False, _

   Transpose:=False

Para determinarmos qual a última linha com dados, usamos aqui uma antiga e familiar funcionalidade deste Blog. Replico-a abaixo:

Function LastLine() As Variant

   ' Demonstra a última linha com conteúdo.

   Let LastLine = Worksheets ("[NOME DA TAB]").Cells(Worksheets("[NOME DA TAB]").Rows.Count, 5).End(xlUp).Row - 1


End Function

Tags: Bernardes, VBA, Office, Excel, Range, select, copy, Pivot Table, PT, Tabela Dinâmica

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA Excel - Selecionar dados numa Tabela Dinâmica - Select Data in Pivot Table

2012-01-20T05:26:00.001-08:00

Partindo do ponto que a Pivot Table (Tabela Dinâmica) já existe e tem o nome de 'PT_DDD01'*, o código necessário para selecioná-la inteira será:

' Seleciona toda a Pivot Table.

ActiveSheet.PivotTables("PT_DDD01").PivotSelect "", xlDataAndLabel, True

* Ahh, você não sabe como atribuir um nome a PT (Pivot Table)?

É simples:

- Clique em qualquer parte da PT

- Selecione o Menu Opções do MS Excel

- No cantos superior esquerdo você enxerga o nome da PT, podendo alterá-lo se desejar.

Tags: Bernardes, VBA, Office, Excel, Pivot Table, PT, Tabela Dinâmica, Select

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

bernardes@.com

VBA - Evocando chamada ao Painel de Controle

2012-01-16T14:39:00.001-08:00

Sei que há alguns posts atrás falei sobre como é rápido usarmos as funcionalidades das APIs dentro do VBA.

Controlling Windows Regional Settings From Vba

VBA controlling IE confirmation popup box

VBA to open control panel's "Internet Date & Time" applet

VBA: How To: Floating VBA Control Panel for Initialization

Panel Class

Controlling Windows Regional Settings from VBA

controlling IE using vba from within a worksheet additional info

Controlling external programs using vba

VBA controlling Acrobat Distiller

Agora, quero fazer uma abordagem distinta, por usar o comendo SHELL.

Para chamar qualquer tela do Painel de Controle não precisamos necessariamente evocar uma API

'Para chamar a tela principal do Painel de Controle:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)

'Para chamar a tela Adicionar ou Remover Programas:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus)

'Para chamar a tela Adicionar ou Remover Programas, na aba
'Instalao do Windows:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2", vbNormalFocus)

'Para chamar a tela Adicionar ou Remover Programas, na aba
'Disco de Inicializao:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Segundo Plano:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Proteo de Tela:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Aparncia:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)

'Para chamar a tela Vdeo, na aba Configurao:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba
'Configuraes Regionais:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba
'Nmero:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba
'Moeda:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba'Hora:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3", vbNormalFocus)

'Para chamar a tela Configuraes Regionais, na aba'Data:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", vbNormalFocus)

'Para chamar a tela Joystick:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)

'Para chamar a tela Mouse:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)

'Para chamar a tela Teclado:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)

'Para chamar a tela Impressoras:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)

'Para chamar a tela Fontes:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)

'Para chamar a tela Mail e Fax:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Audio:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Vdeo:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1", vbNormalFocus)

'Para chamar a tela Multimdia, na aba MIDI:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Msica de CD:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", vbNormalFocus)

'Para chamar a tela Multimdia, na aba Dispositivos:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4", vbNormalFocus)

'Para chamar a tela Som:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus)

'Para chamar a tela Modem:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)

'Para chamar a tela Rede:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)

'Para chamar a tela Senhas:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus)

'Para chamar a tela Sistema, na aba Geral:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", vbNormalFocus)

'Para chamar a tela Sistema, na aba Gerenciador'de Dispositivos:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", vbNormalFocus)

'Para chamar a tela Sistema, na aba Perfis deHardware:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", vbNormalFocus)

'Para chamar a tela Sistema, na aba Performance:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Teclado:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Som:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Vdeo:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3", vbNormalFocus)

'Para chamar a tela Opções de Acessibilidade, na aba'Mouse:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4", vbNormalFocus)

'Para chamar a tela Opes de Acessibilidade, na aba'Geral:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", vbNormalFocus)

'Para chamar a tela do Assistente (Adicionar novo'Hardware):
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)

'Para chamar a tela Data e Hora:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)

'Para chamar a tela DiskCopy:
Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", vbNormalFocus)

Tags: Bernardes, VBA, Office, SHELL, API, rundll32.exe, Painel de Controle, Control Painel,

André Luiz Bernardes
A&A® - Work smart, not hard.
bernardess@gmail.com

Skype: inanyplace
Twitter: @bernardess

LinkedIn
Plaxo

VBA Excel - Abrindo e fechando o CD-ROM - Open and close the CD-ROM tray using VBA in Microsoft Excel

2011-12-06T09:54:00.001-08:00

Já sei, já sei. Muitos perguntarão: "Prá que aprender a abrir a gaveta do CD-ROM?"

Perceba que não estará

apenas

aprendendo 'a abrir a gaveta do CD-ROM'', antes estará aprendendo a manipular periféricos em uma máquina, utilizando uma API do Windows.

Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long)

Sub OpenCDTray()

mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

End Sub

Sub CloseCDTray()

mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0

End Sub

Tags: Bernardes, MS, Microsoft, Windows, Office, VBA, Excel, CD, CD-ROM, CDROM,

mciSendStringA, API, DLL,

winmm.dll, Lib

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com
Skype: inanyplace

LinkedIn
Plaxo

VBA Tip - Como utilizar a memória RAM - Using Clipboard, RAM Memory

2011-12-05T06:40:00.001-08:00

Pois é,

Todos usamos muito a famosa funcionalidade CTRL + C e CTRL + V. Sim o copy/paste é muito útil e porque não dizer, indispensável. Mas como podemos implementar essa funcionalidade dentro das nossas aplicações MS Office?

How to Use the Office Clipboard in VBA

How to Copy From the Clipboard in Excel Using VBA

How to Cut & Paste From the Clipboard in Excel VBA

Em que momento desejarei utilizar essa funcionalidade nas minhas aplicações? Através do VBA, é possível, por exemplo, recuperarmos quaisquer informações que estiverem na Área de Transferência, utilizando-as em nossas aplicações, ou podemos fazer o caminho inverso e disponibilizar o resultado de certo processamento para a área de transferência.

Sub PutInRAM ()     Dim nOBJ As MSForms.DataObject     Set dtOBJ = New MSForms.DataObject          Dim n As String

Let n = "Bernardes"

    dtOBJ.SetText s
     dtOBJ.PutInClipboard End Sub

Sub GetInRam ()     Dim dtOBJ As MSForms.DataObject     Dim n As String          Set dtOBJ = New MSForms.DataObject          dtOBJ.GetFromClipboard          Let n = dtOBJ.GetText          MsgBox n End Sub

' Compatibilizando as versões do MS Office

#If VBA7 Then
   Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long

   Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
   Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long

#Else
   Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

   Public Declare Function EmptyClipboard Lib "user32" () As Long
   Public Declare Function CloseClipboard Lib "user32" () As Long

#End If

Sub EmptyInRAM()

   OpenClipboard (0&)

   EmptyClipboard

   CloseClipboard
End Sub

Referência: Ambiente Office

CPerson

Copy and Paste Multiple Items by Using the Office Clipboard

Tags: Bernardes, MS, Microsoft, Office, VBA, TIP, Clipboard, RAM, memory, memória, RAM, copy/paste

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com
Skype: inanyplace

LinkedIn
Plaxo

DICA VBA: Livros 2011

2011-11-30T08:17:00.001-08:00

Acredito que sempre é importante olhar para os lados, percebendo as técnicas e dimensão que estas têm alcançado sob a perita batuta de outros mestres do VBA. Seguem alguns títulos de livros que acho muito proveitoso para ampliar a nossa compreensão do ambiente VBA e sua arquitetura.

Comprem e leiam o máximo de títulos possível, além de buscar tais autores como referência no desenvolvimento e implementação.

Título: Microsoft Office Home and Student 2007
Produto da: Microsoft

Título: Excel 2007 Power Programming with VBA

Autor: John Walkenbach
Nº de Páginas: 1104

Título: Excel 2007 Formulas
Autor: John Walkenbach
Nº de Páginas: 840

Título: Access 2007 VBA Programmer's Reference
Autores: Teresa Hennig, Rob Cooper, Geoffrey L. Griffith, Armen Stein
Nº de Páginas: 1152

Título: Microsoft Visual Basic 2005 Step by Step
Autor: Michael Halvorson
Nº de Páginas: 608

Título: VBA and Macros for Microsoft Office Excel 2007
Autores: Bill Jelen e Tracy Syrstad
Nº de Páginas: 624

Título: Programming Excel with VBA and .NET

Autores: Jeff Webb e Steve Saunders
Nº de Páginas: 1114

Título: Integrating Excel and Access
Autor: Michael Schmalz

Nº de Páginas: 232

Título: VBA for Modelers: Developing Decision Support Systems Using Microsoft® Excel
Autor: S. Christian Albright

Nº de Páginas: 204

Título: Visual Studio Tools for Office 2007: VSTO for Excel, Word, and Outlook
Autores: Eric Carter e Eric Lippert

Nº de Páginas: 1120

Título: Pro Office 2007 Development with VSTO
Autor: Ty Anderson
Nº de Páginas: 320

Título: VSTO for Mere Mortals(TM): A VBA Developer's Guide to MS Office Development Using VSTO
Autores: Paul Stubbs e Kathleen McGrath

Nº de Páginas: 736

Título: Beginning Office 2007 Development with VSTO
Autor: Vivek Thangaswamy
Nº de Páginas: 300

Título: Word 2007 Document Automation with VBA and VSTO
Autor: Scott Driza
Nº de Páginas: 500

Título: Excel 2007 Bible
Autor: John Walkenbach
Nº de Páginas: 912

Título: Office 2007 All-in-One Desk Reference For Dummies

Autor: Peter Weverka
Nº de Páginas: 816

Título: Excel 2007 VBA Programming For Dummies
Autor: John Walkenbach

Nº de Páginas: 368

Título: iWork '09: The Missing Manual
Autor: Josh Clark
Nº de Páginas: 850

Tags: Bernardes, MS, Microsoft, Office, VBA, Armen Stein, Bill Jelen, Eric Carter, Eric Lippert, Geoffrey L. Griffith, Jeff Webb, John Walkenbach, Josh Clark, Kathleen McGrath, Michael Halvorson, Michael Schmalz, Paul Stubbs, Peter Weverka, Rob Cooper, S. Christian Albright, Scott Driza, Steve Saunders, Teresa Hennig, Tracy Syrstad, Ty Anderson, Vivek Thangaswamy

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com
Skype: inanyplace

LinkedIn
Plaxo

DICA EXCEL - Aumentando a velocidade de inicialização do seu MS Excel - Speed up Excel Start up (FASTER EXCEL)

2011-11-30T07:48:00.000-08:00

Qual é a sua versão do MS Office?

Já se perguntou por que o seu startup está tão lento no MS Excel? Mesmo que esteja trabalhando com a melhor placa-mãe e o melhor processador disponível no mercado. Talvez já tenha tentado diversas coisas, mas sem sucesso. Então, tente este, embora seja um dos truques, que vai economizar muito do seu tempo.

Uma das razões da espera é que a barra de ferramentas que tende a crescer muito, pois este arquivo é carregado quando se inicia o MS Excel. A extensão deste arquivo da barra de ferramentas é XLB, a localização padrão é "Dados de Aplicativos \ Microsoft \ Excel \" e o tamanho normal é entre 10 a 90 KB. O problema surge quando este tamanho atinge em 1 megabytes (MB).

Solução: Exclua todos os arquivos xlb a partir destes locais:

Usuários do Windows 98 -> "C: \ Windows \ Application Data \ Microsoft \ Excel \ *. XLB excel"

Usuários do Windows 98SE/NT/ME -> "C: \ Windows \ Profiles \ username \ Application Data \ Microsoft \ Excel \ *. XLB excel"

Usuários do Windows 2000/XP -> "C: \ Documents and Settings \ username \ Application Data \ Microsoft \ Excel \ *. XLB excel"

Windows 7 Users -> "C: \ Users \ USERNAME \ AppData \ Microsoft \ Excel \ *. XLB excel"

O USERNAME é seu nome de usuário do sistema. Por favor, altere os valores em conformidade.

Detalhe importante: Não existe almoço grátis. Os arquivos XLB são re-criados automaticamente, você vai perder todas as suas personalizações da barra de ferramentas (ou as configurações do menu pessoal).

Sub Speedup_Excel()

  Dim fso

  On Error Resume Next

  Set fso = CreateObject("Scripting.FileSystemObject")

  'Delete excel.xlb. If not exists goto next
  fso.DeleteFile VBA.Environ("appdata") & "\Microsoft\Excel\excel*.xlb"

  'Clean up
  Set fso = Nothing

End Sub

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com
Skype: inanyplace

LinkedIn
Plaxo

DICA Excel - Tornando suas planilhas menores - SHRINK REDUCE EXCEL FILE SIZE

2011-11-30T07:37:00.001-08:00

Já aconteceu de você ter uma planilha de uns 5 ou 6 MB, a qual você efetuar algumas atualizações, talvez criando alguns gráficos, e algumas tabelas dinâmicas, vê essa planilha aumentar de tamanho de 3 a 100 vezes! Ficou surpreso? Sim porque é possível, então não se preocupe demais, vou ajudá-lo.

Bem, em primeiro lugar precisamos entender a diferença entre Excel Default Last Cell e Actual Last Cell. Quando pressionamos Ctrl + End para encontrar a última célula (Actual Last Cell), nós chegamos a Excel Default Last Cell, que pode ser a Actual Last Cell ou podem ser células vazias que ficam muito além desta. Quanto mais distante da Excel Default Last Cell estiver a Actual Last Cell mais espaço desnecessário está sendo ocupado na planilha atual.

Qual a solução? Apague todas as linhas e colunas além do Actual Last Cell em cada planilha. Se houver demasiadas planilhas e grandes conjuntos de dados, poderá usar o código VBA a seguir:

Option Explicit

Sub SHRINK_XL()

   Dim WSheet As Worksheet

   Dim CSheet As String 'New Worksheet

   Dim OSheet As String 'Old WorkSheet

   Dim Col As Long

   Dim ECol As Long 'Last Column

   Dim lRow As Long

   Dim BRow As Long 'Last Row

   Dim Pic As Object


   For Each WSheet In Worksheets

   WSheet.Activate

   'Put the sheets in a variable to make it easy to go back and forth

   CSheet = WSheet.Name

   'Rename the sheet to its name with _Delete at the end

   OSheet = CSheet & "_Delete"

   WSheet.Name = OSheet

   'Add a new sheet and call it the original sheets name

   Sheets.Add

   ActiveSheet.Name = CSheet

   Sheets(OSheet).Activate

   'Find the bottom cell of data on each column and find the further row

   For Col = 1 To Columns.Count 'Find the actual last bottom row

   If Cells(Rows.Count, Col).End(xlUp).Row > BRow Then

   BRow = Cells(Rows.Count, Col).End(xlUp).Row

   End If

   Next



   'Find the end cell of data on each row that has data and find the furthest one

   For lRow = 1 To BRow 'Find the actual last right column

   If Cells(lRow, Columns.Count).End(xlToLeft).Column > ECol Then

   ECol = Cells(lRow, Columns.Count).End(xlToLeft).Column

   End If

   Next


   'Copy the REAL set of data

   Range(Cells(1, 1), Cells(BRow, ECol)).Copy

   Sheets(CSheet).Activate

   'Paste Every Thing

   Range("A1").PasteSpecial xlPasteAll

   'Paste Column Widths

   Range("A1").PasteSpecial xlPasteColumnWidths

   Sheets(OSheet).Activate

   For Each Pic In ActiveSheet.Pictures

   Pic.Copy

   Sheets(CSheet).Paste

   Sheets(CSheet).Pictures(Pic.Index).Top = Pic.Top

   Sheets(CSheet).Pictures(Pic.Index).Left = Pic.Left

   Next Pic

   Sheets(CSheet).Activate



   'Reset the variable for the next sheet

   BRow = 0

   ECol = 0

   Next WSheet


   ' Since, Excel will automatically replace the sheet references for you on your formulas,

   ' the below part puts them back.

   ' This is done with a simple replace, replacing _Delete with nothing

   For Each WSheet In Worksheets

   WSheet.Activate

   Cells.Replace "_Delete", ""

   Next WSheet



   'Roll through the sheets and delete the original fat sheets

   For Each WSheet In Worksheets

   If Not Len(Replace(WSheet.Name, "_Delete", "")) = Len(WSheet.Name) Then

   Application.DisplayAlerts = False

   WSheet.Delete

   Application.DisplayAlerts = True

   End If

   Next

End Sub

Tags: Bernardes, MS, Microsoft, Office, VBA, Sheet, woksheet, shrink, diminuir, reduce, compact, size, file, planilha, arquivo

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com
Skype: inanyplace

LinkedIn
Plaxo

MOS Excel - Microsoft Office Specialist - VBA, MS Excel - Automation

Microsoft Office Excel - 10 percepções de utilização

VBA Excel - Como deixar suas planilhas enxutas

SOLUÇÕES VBA

VBA Excel - Manipulando Tabela Dinâmica - Refresh Pivot Table

VBA Excel - Preenchendo lacunas vazias com dados.

VBA Excel - Como selecionar um range de tamanho variável para cópia.

VBA Excel - Selecionar dados numa Tabela Dinâmica - Select Data in Pivot Table

VBA - Evocando chamada ao Painel de Controle

VBA Excel - Abrindo e fechando o CD-ROM - Open and close the CD-ROM tray using VBA in Microsoft Excel

Sub OpenCDTray()

mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

End Sub

End Sub

Sub CloseCDTray()

mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0

End Sub

mciSendStringA, API, DLL,

winmm.dll, Lib

VBA Tip - Como utilizar a memória RAM - Using Clipboard, RAM Memory

DICA VBA: Livros 2011

DICA EXCEL - Aumentando a velocidade de inicialização do seu MS Excel - Speed up Excel Start up (FASTER EXCEL)

DICA Excel - Tornando suas planilhas menores - SHRINK REDUCE EXCEL FILE SIZE