✔ VBA Brazil Specialist®: Maio 2016 ✔ VBA Brazil Specialist®
SANDWICH PROJECT 2016 - VBA Excel - Força a Digitação em Maiúsculo - Force CAPS LOCK on Entry
É horrível quando nossa tecla Caps Lock, fica presa e só percebemos isso depois de digitarmos metade ou quase toda a frase que queríamos. Mas, suponha que tenha uma coluna na sua planilha Excel onde digitará um estado do Brasil, ou precise digitar M ou F para Masculino / Feminino.
Este código altera qualquer entrada de texto na faixa designada para maiúsculas.
Coloque o seguinte código na janela de código ThisWorksheet. O Range ( "C: C") pode ser alterado para qualquer faixa de intervalo que desejar, tal como C1: C15.
Sub Worksheet_Change (ByVal Target As Range)
Let Target(1).Value = UCase(Target(1).Value)
Tags: Caps Lock, Força Maiúscula, Force Caps Lock, SANDWICH PROJECT 2016, VBA Excel
SANDWICH PROJECT 2016 - VBA Excel - Copy a Master Worksheet
Sabe quando cria uma planilha mestra e gostaria de copiá-la rapidamente como um modelo para uma nova planilha?
Este código funciona muito bem com um calendário, planilhas de dataentry (entrada de dados) mensais, e outras aplicações onde tem planilhas com praticamente o mesmo layout.
Estou supondo que a planilha que deseja copiar seja chamada de Master, e que esteja oculta quando executar a macro.
Abra sua pasta de trabalho. Pressione Alt + F11 para visualizar o Editor do VBA. Clique duas vezes em ThisWorkbook. E cole o seguinte código na janela de código:
Dim NewPageName As String
Let Sheets("Master").Visible = True
Sheets("Master").Copy After:=Worksheets(Worksheets.Count)
Let NewPageName = InputBox("What would you like to call your new Worksheet")
Let ActiveWindow.ActiveSheet.Name = NewPageName
Let Sheets("Master").Visible = False
Tags: copy, dataentry, layout, Master, NewPageName, SANDWICH PROJECT 2016, thisworkbook, VBA Excel, Worksheet
SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory
Talvez precise importar as fotos de um cadastro de funcionários | clientes | fornecedores, ou criar um catálogo, album de fotos, etc... E deseje manter todas as fotos dentro de um arquivo MS Access.
Isso é recomendável? Não!
Crie uma tabela com a seguinte especificação dentro do seu banco de dados MS Access.
Em seguida crie um módulo como o nome de mdl_Importando_Imagens.
Em seguida cole o código abaixo nele:
Sub ImportPhotosFromDirectory()
' Date: 17/05/2016 - 15:14
' Purpose: Import Photos from Directory.
' C:\Users\Photos
Let nPath = "C:\Users\Photos"
Set rs = db.OpenRecordset("tbl_Photos")
Set oFolder = oFS.GetFolder(nPath)
Debug.Print oFile.Name
Let !PhotoName = oFile.Name
Let !Photo = oFile
Ahhh, não se esqueça de manter a seguinte referência em seu projeto MS Access:
Tags: directory, Import, ImportPhotosFromDirectory, MS Access, Photos, SANDWICH PROJECT 2016, VBA Access
SANDWICH PROJECT 2016 - VBA Excel - Quebrando a proteção de Planilha Protegida
Tags: 30 Frases, 30 Motivos, Desistir, frases, GD, Gerente Distrital, motivacional
Aprenda de acordo com o aplicativo ou serviço
Aprenda de acordo com o cenário
O treinamento baseado em cenários do Office 365 fornece tutoriais motivadores para mostrar como uma equipe pode dinamizar a maneira de trabalhar. Por exemplo, como salvar os arquivos na nuvem para poder acessá-los em praticamente qualquer lugar e em quase todos os dispositivos. Também é demonstrado como usar o Office 365 para trabalhar em equipe, compartilhando arquivos e coeditando documentos armazenados na nuvem.
Realize tarefas a partir de qualquer lugar
Eu e meus documentos
Trabalhe perfeitamente em conjunto
Acesso e compartilhamento de arquivos de praticamente qualquer lugar com o OneDrive for Business
Colabore com conteúdo de equipe usando o SharePoint Online
Realize reuniões mais eficazes
Solução completa para reuniões
Email e calendário em praticamente qualquer lugar
Email e calendário em praticamente qualquer lugar (Outlook)
Trabalhe em rede
Funcione como uma rede com o Yammer
Tags: Excel 2016, Guias de Iniciação Rápida, Microsoft Office 2016, Office 365, OneNote 2016, Outlook 2016, PowerPoint 2016, Word 2016
Foram criadas novas versões do Word, Excel, PowerPoint, Outlook e OneNote para o PC com Windows. Faça o Download gratuito dos Guias de Iniciação Rápida para obter uma introdução aos princípios básicos de cada uma dessas aplicações.
Para um olhar mais atento aos novos recursos nesses aplicativos, consulte o que há de mais novo e melhorado no Office 2016.
Guia de Iniciação Rápida do Word 2016
Download do PDF ou on-line
Guia de Iniciação Rápida do Excel 2016
Download PDF ou on-line
Guia de Iniciação Rápida do PowerPoint 2016
Guia de Iniciação Rápida do Outlook 2016
Guia de Iniciação Rápida do OneNote 2016
Provavelmente já usou o OneNote antes. Mas talvez se tenha perguntado se não dá fazer mais e de uma maneira mais rápida. É por isso que este livro eletrônico foi criado — para que possa aprender sobre as técnicas, truques e recursos ocultos no OneNote 2016. Os livros eletrônicos do Microsoft Office 2016 são uma nova série de conteúdo gratuito.
Baixe: OneNote 2016 dicas e truques
Guia de Iniciação Rápida do Skype for Business
Tags: Excel 2016, Guias de Iniciação Rápida, Microsoft Office 2016, OneNote 2016, Outlook 2016, PowerPoint 2016, Word 2016
VBA Excel Intermediário - Mudando a Referência de Vários Gráficos ao mesmo tempo
Vez ou outra precisamos mover nossos gráficos entre planilhas e neste momento dá um frio na barriga, porque para isso precisaremos mexer em todas as referências dos gráficos contidos em nossa activesheet.
E como pode imaginar, fazer isso manualmente certamente propiciará erros. Sim, não há nada mais fácil do que implementar erros durante o momento de uma transcrição de código e/ou referências.
Neste momento seria muito bom termos à disposição um código que fizesse isso para nós hein! Que tal se apenas precisássemos colar o código, posicionarmo-nos dentro da planilha onde todas as referências precisem ser corrigidas e voilá, TODAS AS REFERÊNCIAS são acertadas sem alterar nenhuma configuração prévia dos nossos gráficos.
Pensando nisso, compartilho o código abaixo, o qual, espero, possa livrá-los de transtornos...
Sub ChangeSeriesFormulaAllCharts()
' Date: 13/05/2016 - 11:45
' Purpose: Extract old reference and put new chart references
''' Do all charts in sheet
Dim OldString As String, NewString As String
Dim mySrs As Series
Let OldString = "[REUNIAO PERFORMANCE.xlsx]" 'InputBox("Enter the string to be replaced:", "Enter old string")
If Len(OldString) > 1 Then
Let NewString = "" 'InputBox("Enter the string to replace " & """" _
& OldString & """:", "Enter new string")
Debug.Print oChart.Name
For Each mySrs In oChart.Chart.SeriesCollection
Debug.Print "CHART " & oChart.Name & " OLD: " & mySrs.Formula & " NEW: " & Replace(mySrs.Formula, OldString, NewString)