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.

Views

Histats

Vitrine

+Views

Widgets Mundo Blogger

VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINT

VBA OFFICE - EXCEL, ACCESS, OUTLOOK, POWERPOINT


PROJETOS CURTOS OU LONGOS 

Desenvolvo e aprimoro seus Dashboards em MS Excel!


  • DASHBOARDS 
  • SCORECARDS 
  • BSC 
  • REPORTs 
  • Aplicações MS Access  

Conecte suas planilhas ao BI!  


Contate-me: brazilsalesforceeffectiveness@gmail.com





brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

Como Inserir um Código do VBA Diretamente no Excel 2016

Como Inserir um Código do VBA Diretamente no Excel 2016


Às vezes, a melhor forma para digitar código no Excel 2016 será a forma direta. Em outras palavras, você digitará o código usando o teclado, inserindo e editando texto num módulo VBAVocê pode selecionar, copiar, cortar, colar e fazer outras coisas com o texto.
Use a tecla Tab, para recuar o código contido em suas linhas, tornando seu código mais fácil de ler. Claro, recuar não é necessário, mas é um excelente hábito para se adquirir.
Uma única linha de código VBA pode ser tão longa quanto você precise que ela seja. No entanto, você pode querer usar um caracter de continuação de linha para quebrar estas longas linhas de código. Para dar continuidade a uma única linha de código (também conhecida como statement) na próxima linha, termine a primeira linha com um espaço seguido por um sublinhado ( _ ). Em seguida, continue a instrução na linha seguinte. E não se esqueça do espaço.Um caractere sublinhado que não for precedido por um espaço não vai fazer o trabalho.

Aqui está o exemplo de uma única instrução dividida em três linhas:
Selection.Sort Key1: = Range ( "B3"), _
 Order1: = xlAscending, Header: = xlGuess, _
 Orientação: = xlTopToBottom
Esta declaração seria executada exatamente da mesma forma se fosse digitada numa única linha (sem caracteres de continuação de linha). Observe que a segunda e a terceira linha estão recuadas. O recuo é opcional, mas ajuda a esclarecer o fato de que estas linhas não são declarações separadas.
Claro que os engenheiros que projetaram a VBE se anteciparam em prever que os desenvolvedores de VBA cometeriam erros. Sendo assim, o VBE tem vários níveis de desfazer e refazer. Caso exclua uma declaração que não deve, clique no botão Undo na barra de ferramentas (ou pressione Ctrl + Z) até que a declaração apareça novamente. Depois de desfazer, você pode usar o botão Refazer para realizar as mudanças que você desfez.

Está prestes a entrar um REAL:
  1. Criar uma nova planilha no Excel.
  2. Pressione Alt + F11 para ativar o VBE.
  3. Clique no nome da nova pasta de trabalho na janela Project.
  4. Escolha Inserir → Módulo para inserir um módulo VBA no projeto.
  5. Copie e Cole o código abaixo no seu módulo:
    Sub GuessName ()
     Msg = "Este é o seu nome" & Application.UserName & "?"
     Ans = MsgBox (Msg, vbYesNo)
     Se Ans = vbNo Then MsgBox "Bem,isso não importa."
     Se ans = vbYes Then MsgBox "Claro com certeza!"
    End Sub
  6. Posicione o cursor em qualquer lugar dentro do texto digitado e pressione F5 para executar o procedimento.
    F5 é um atalho para o comando Executar → Executar Sub / UserForm. Se você digitou o código corretamente, o Excel executará o procedimento, e você poderá responder à caixa de diálogo simples. Lembre-se, o texto na caixa de diálogo será diferente.
Quando você digitar o código listado na etapa 5, você pode notar que o VBE fez alguns ajustes no texto inserido. Por exemplo, depois de escrever a declaração Sub, o VBE inseriu automaticamente a instrução End SubE se você omitir o espaço antes ou depois de um sinal de igual, o VBE insere o espaço para você.

Além disso, o VBE muda a cor e a capitalização de algumas palavras digitadas. Isso tudo é perfeitamente normal. É apenas uma maneira de manter as coisas limpas e legíveis do VBE.
Se você seguiu os passos anteriores, você acabou de escrever um procedimento Sub VBA, também conhecido como uma macro. Quando você pressionar F5, o Excel executará o código e seguirá as instruções. Em outras palavras, o Excel avalia cada declaração e faz o que você disse para fazer. (Não deixe que este novo poder suba à sua cabeça.) Você pode executar esta macro o número de vezes que desejar - embora ela tenda a perder o seu apelo depois de algumas dezenas de vezes.



brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

Access 2016 - Função Shell

Access 2016 - Função Shell


Aprenda a abrir e fechar um arquivo com a função VBA Shell.

Sub OpenClose()
'Open and Close a File
Dim vPID As Variant
'Launch file
vPID = Shell("notepad.exe ""C:\VBA\text.txt""", vbNormalFocus)

'Perform your actions here

'Kill file
Call Shell("TaskKill /F /PID " & CStr(vPID), vbHide)

End Sub

Antes de lhe mostrar como personalizar a função Shell, quero que saiba que existem diversas maneiras de invocá-la.

A seguir demonstro todas as formas possíveis para se executar o aplicativo Timer. Perceba que que a função Shell retorna um valor Double.

Sub DailyTimer()
'Run timer
Dim vPID As Variant
'Variation 1:
vPID = Shell("wscript.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
'Variation 2:
Shell "explorer.exe ""C:\VBScripts\Timer.vbs""", 1
'Variation 3:
Call Shell("Explorer.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
'Variation 4 - Open with Notepad for Editing:
vPID = Shell("notepad.exe ""C:\VBScripts\Timer.vbs""", vbNormalFocus)
End Sub

Outro exemplo:

dTimer=InputBox("Enter timer interval in minutes","Set Timer") 'minutes

do until IsNumeric(dTimer)=True
  dTimer=InputBox("Invalid Entry" & vbnewline & vbnewline & _ 
         "Enter timer interval in minutes","Set Timer") 'minutes
loop

if dTimer<>"" then
do
  WScript.Sleep dTimer*60*1000 'convert from minutes to milliseconds
  t=MsgBox("Take a Walk." & vbnewline & vbnewline & "Restart Timer?", _
    vbYesNo, "It's been " & dTimer &" minute(s)")
  if t=6 then 'if yes
       'continue loop
  else 'exit loop
       exit do
  end if
loop
end if


Aplicável em: Access 2016, Access 2013, Access 2010, Access 2007, 


brazilsalesforceeffectiveness@gmail.com


✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets




Excel VBA - Salvando Planilhas - Parte 01 - Versões entre 97-2003 e 2007-2016 - Use VBA SaveAs in Excel 97-2016

Excel VBA - Salvando Planilhas - Parte 01 - Versões entre 97-2003 e 2007-2016 - Use VBA SaveAs in Excel 97-2016



Tome cuidado ao utilizar o velho comando SaveAs sem especificar os seus parâmetros. Nas versões anteriores ao MS Excel 2007, quando não digitávamos o comando SaveAs com os respectivos parâmetros, isso não causava muitos problemas porque o VBE interpretava que essa falta significasse que queríamos gravar a planilha com a extensão XLS, pois, entre as versões 97 até a 2003, estas aceitavam este padrão como um modelo executor de scripts ou código VBA

Mas devido aos inúmeros formatos disponibilizados pelo Excel a partir das versões de 2007-2016, esta displicência não será mais aceita. Agora precisaremos informar qual o formato de planilha que desejamos gravar.

Por exemplo, entre o Excel 2007-2016, o código falhará se o ActiveWorkbook não for um arquivo xlsm
ActiveWorkbook.SaveAs "E:\Bernardess.xlsm"

Este código sempre funcionará ActiveWorkbook.SaveAs "E:\Bernardess.xlsm", fileformat:=52 ' 52 = xlOpenXMLWorkbookMacroEnabled = xlsm (nos códigos VBA entre as versões 2007-2016)

Abaixo estão os principais formatos suportados pelas versões Excel entre 2007-2016Note: Nas versões para o Mac os valores são +1:

51 = xlOpenXMLWorkbook (sem macros entre as versões de 2007-2013, xlsx)

52 = xlOpenXMLWorkbookMacroEnabled (com ou sem macros nas versões entre 2007-2013, xlsm)

50 = xlExcel12 (Planilha Binária Excel entre as versões 2007-2013 com ou sem macros, xlsb)

56 = xlExcel8 (Versões entre 97-2003 no formato do Excel 2007-2013, xls)




brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

Salve Planilhas com o VBA - Parte 02 - Da versão 2007 à 2016 - Use VBA SaveAs in Excel 2007-2016

Salve Planilhas com o VBA - Parte 02 - Da versão 2007 à 2016 - Use VBA SaveAs in Excel 2007-2016



Abaixo estão 2 exemplos de código VBA que copiam a ActiveSheet para uma nova pasta de trabalho, salvando-a num formato que corresponda à extensão da planilha pai. O segundo exemplo usa GetSaveAsFilename solicitando um caminho e o nome do arquivo.

Este 1º Exemplo você pode usar nas versões Excel 97-2016, o 2º exemplo pode ser usado nas versões Excel 2000-2016

Se você executar o código no Excel 2007-2016 ele tomará como referência o FileFormat da planilha pai, salvando o novo arquivo neste formato. Apenas se a planilha pai for um arquivo xlsm e se não houver nenhum código VBA na nova planilha, é que ela salvará o novo arquivo como xlsx. Se a planilha pai não for um xlsx, xlsm ou xls, em seguida será salva como xlsb

Se você sempre salvar num determinado formato que possa substituir esta parte da macro:

           Select Case Sourcewb.FileFormat 
                Caso 51: FileExtStr = ".xlsx": FileFormatNum = 51 
                Caso 52: 
                    Se .HasVBProject Então 
                        FileExtStr = ".xlsm": FileFormatNum = 52 
                    Else 
                        FileExtStr = ".xlsx": FileFormatNum = 51 
                    End If 
                Caso 56 : FileExtStr = ".xls": FileFormatNum = 56 
                Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 
                End Select


Use um destes desta lista


  • FileExtStr = ".xlsb": FileFormatNum = 50 
  • FileExtStr = ".xlsx": FileFormatNum = 51
  • FileExtStr = ".xlsm": FileFormatNum = 52


Ou talvez queira salvar como csv, txt ou prn.
(também pode usar estes nas versões 97-2003 do Excel)


  • FileExtStr = ".csv": FileFormatNum = 6
  • FileExtStr = ".txt": FileFormatNum = -4158
  • FileExtStr = ".prn": FileFormatNum = 36


Outros examplos

Sub Copy_ActiveSheet_1()
'Trabalhando com o Excel 97-2016
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set Sourcewb = ActiveWorkbook

    'Copy the sheet to a new workbook
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook

    'Determine the Excel version and file extension/format
    With Destwb
        If Val(Application.Version) < 12 Then
            'You use Excel 97-2003
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            'You use Excel 2007-2016
                Select Case Sourcewb.FileFormat
                Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
                Case 52:
                    If .HasVBProject Then
                        FileExtStr = ".xlsm": FileFormatNum = 52
                    Else
                        FileExtStr = ".xlsx": FileFormatNum = 51
                    End If
                Case 56: FileExtStr = ".xls": FileFormatNum = 56
                Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
                End Select
            End If
    End With

    '    'Change all cells in the worksheet to values if you want
    '    With Destwb.Sheets(1).UsedRange
    '        .Cells.Copy
    '        .Cells.PasteSpecial xlPasteValues
    '        .Cells(1).Select
    '    End With
    '    Application.CutCopyMode = False

    'Save the new workbook and close it
    TempFilePath = Application.DefaultFilePath & "\"
    TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "yyyy-mm-dd hh-mm-ss")

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        .Close SaveChanges:=False
    End With

    MsgBox "You can find the new file in " & TempFilePath

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub


Sub Copy_ActiveSheet_2()
'Working in Excel 2000-2016
    Dim fname As Variant
    Dim NewWb As Workbook
    Dim FileFormatValue As Long

    'Check the Excel version
    If Val(Application.Version) < 9 Then Exit Sub
    If Val(Application.Version) < 12 Then

        'Only choice in the "Save as type" dropdown is Excel files(xls)
        'because the Excel version is 2000-2003
        fname = Application.GetSaveAsFilename(InitialFileName:="", _
        filefilter:="Excel Files (*.xls), *.xls", _
        Title:="This example copies the ActiveSheet to a new workbook")

        If fname <> False Then
            'Copy the ActiveSheet to new workbook
            ActiveSheet.Copy
            Set NewWb = ActiveWorkbook

            'We use the 2000-2003 format xlWorkbookNormal here to save as xls
            NewWb.SaveAs fname, FileFormat:=-4143, CreateBackup:=False
            NewWb.Close False
            Set NewWb = Nothing

        End If
    Else
        'Give the user the choice to save in 2000-2003 format or in one of the
        'new formats. Use the "Save as type" dropdown to make a choice,Default =
        'Excel Macro Enabled Workbook. You can add or remove formats to/from the list
        
        fname = Application.GetSaveAsFilename(InitialFileName:="", filefilter:= _
            " Excel Macro Free Workbook (*.xlsx), *.xlsx," & _
            " Excel Macro Enabled Workbook (*.xlsm), *.xlsm," & _
            " Excel 2000-2003 Workbook (*.xls), *.xls," & _
            " Excel Binary Workbook (*.xlsb), *.xlsb", _
            FilterIndex:=2, Title:="This example copies the ActiveSheet to a new workbook")

        'Find the correct FileFormat that match the choice in the "Save as type" list
        If fname <> False Then
            Select Case LCase(Right(fname, Len(fname) - InStrRev(fname, ".", , 1)))
            Case "xls": FileFormatValue = 56
            Case "xlsx": FileFormatValue = 51
            Case "xlsm": FileFormatValue = 52
            Case "xlsb": FileFormatValue = 50
            Case Else: FileFormatValue = 0
            End Select

            'Now we can create/Save the file with the xlFileFormat parameter
            'value that match the file extension
            If FileFormatValue = 0 Then
                MsgBox "Sorry, unknown file extension"
            Else
                'Copies the ActiveSheet to new workbook
                ActiveSheet.Copy
                Set NewWb = ActiveWorkbook

                'Save the file in the format you choose in the "Save as type" dropdown
                NewWb.SaveAs fname, FileFormat:= _
                             FileFormatValue, CreateBackup:=False
                NewWb.Close False
                Set NewWb = Nothing

            End If
        End If
    End If

End Sub


brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias