Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador extract. Mostrar todas as postagens
Mostrando postagens com marcador extract. Mostrar todas as postagens

VBA Excel | Extraindo a Data de uma Célula com Data e Horário - Remove Date from Date and Time

VBA Excel | Extraindo a Data de uma Célula com Data e Horário - Remove Date from Date and Time

Extrai somente a Data de um Célula com Data e Horário.

Sub ExtractOnlyDate()

Dim Rng As Range

For Each Rng In Selection

If IsDate (Rng) = True Then

Let Rng.Value = Rng.Value - VBA.Fix (Rng.Value)

End If

Let NextSelection.NumberFormat = "hh:mm:ss am/pm"

End Sub


Veja outros códigos:

VBA Excel | Extraindo a Data de uma Célula com Data e Horário - Remove Date from Date and Time VBA Excel | Converta Tudo para Maiúscula - Convert to Upper CaseVBA Excel | Contando Palavras na Planilha - Word Count from Entire Worksheet VBA Excel | Removendo Decimais dos Números - Remove Decimals from Numbers

VBA Excel | Multiplique todos os Valores por um Número - Multiply all the Values by a Number VBA Excel | Calculando a Raiz Cúbica - Calculate the Cube Root

VBA Excel | Adicionando Letras de A até Z - Add A-Z Alphabets in a Range VBA Excel | Convertendo Numerais Romanos em Arábicos - Convert Roman Numbers into Arabic Numbers

VBA Excel | Converta todos os Números Negativos em Positivos - Remove Negative Signs VBA Excel | Preencha com zeros as Células em Branco - Replace Blank Cells with Zeros


Conheça também:

VBA Excel | Código VBA de Pesquisa no Google - VBA Code to Search on Google

VBA Excel | Inserir várias Planilhas - Insert Multiple Worksheets

VBA Excel | Redimensione todos os Gráficos numa Planilha - Resize All Charts in a Worksheet

VBA Excel | Desproteger Planilha - Un-Protect Worksheet

VBA Excel | Proteger Planilha - Protect Worksheet

VBA Excel | Proteja todas as Planilhas Instantaneamente - Protect all Worksheets Instantly

VBA Excel | Excluir tudo, exceto a planilha ativa - Delete all but the Active Worksheet

VBA Excel | Ocultar tudo, exceto a planilha ativa - Hide all but the Active Worksheet

VBA Excel | Realçar Valores Únicos - Highlight Unique Values

VBA Excel | Realçar Células Com Comentários - Highlight Cells with Comments

VBA Excel | Faz Backup da Aba de trabalho Atual - Create a Backup of a Current Workbook

VBA Excel | Salve cada Planilha como um único PDF - Save Each Worksheet as a Single PDF

VBA Excel | Excluir todas as Planilhas em Branco - Delete all Blank Worksheets


Leia também:

eBook: Série DONUT PROJECT 2015: Projetos e Códigos de Visual Basic for Applications - Autor: André Luiz Bernardes  eBook: Série Top 10 Funções: Top 10 Funções VBA para o Microsoft Excel - Autor: André Luiz Bernardes

eBook: Série Funções Poderosas: 13 Funções Poderosas no MS Excel - Autor: André Luiz Bernardes  eBook: Série Visual Basic For Application: Criando Logs de acesso: Dicas e Códigos de Visual Basic for Applications - Autor: André Luiz Bernardes

eBook: Série VBA Tips: Rastrei seus Dashboards, Scorecards, Reports, Relatórios, Planilhas e Aplicações - Dicas e Códigos - Autor: André Luiz Bernardes  eBook: Série Data Science: Big Data, Como? - Autor: André Luiz Bernardes

eBook: Série Smarter Analytic: 5 Previsões de Big Data - Autor: André Luiz Bernardes


Conheça também:

DONUT PROJECT 2021 - VBA Function: Como Rastrear o Google Maps (Coordenadas Geográficas) no VBA Excel?

DONUT PROJECT 2021 - VBA Function: Crie Acrônimos a partir de Strings de Texto

DONUT PROJECT 2021 - VBA Function: Convertendo uma Matrix num Vetor - Convert Matrix to a Vector

DONUT PROJECT 2021 - VBA Function: Como tornar o Formulário Transparente no MS Excel?

DONUT PROJECT 2021 - VBA Function: Faça Buscas no Google a Partir da Célula do MS Excel - Search Google From a Cell

DONUT PROJECT 2021 - VBA Function: Decompondo um Nome nas Dimensões de uma Matriz

DONUT PROJECT 2021 - VBA Function: Extraindo o Último Sobrenome de um Nome Completo ou a Última Palavra de uma Frase

DONUT PROJECT 2021 - VBA Function: Extraindo o Segundo Nome de um Nome Completo ou a Segunda Palavra de uma Frase

DONUT PROJECT 2021 - VBA Function: Extraindo o Primeiro Nome ou a Primeira Palavra de uma Frase

Série Piece of Cake

Séries Donut


Comente e compartilhe este artigo!


brazilsalesforceeffectiveness@gmail.com
Nenhum comentário:
Tags: , , , , ,

PIECE OF CAKE - Extract Path From String



Function ExtractPathFromString(nString As String) As String

     ' © 2007-20 Alefe & Bete Processamento de Dados LTDA - ME, except where noted, all rights reserved.
    '      Author: André Bernardes
    '     Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
    ' Application: AutoGenClosing®
    ' Description: Extrai somente o path de uma string.

     Let ExtractPathFromString = Left(nString, InStrRev(nString, "\"))

 End Function


#A&A #PIECEOFCAKE #POC #VBA

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 
⬛◼◾▪ CONTATO ▪◾◼⬛
Nenhum comentário:
Tags: , , , , ,

VBA Powerpoint - Converta os textos dos Slides para Notas de Comentários - Convert PowerPoint TextBox Slides as Notes



Documentar as apresentações que preparamos é muito importante, e confesse, a maioria de nós nunca fazemos isso.

Mas imagine que pudéssemos automaticamente copiar os conteúdos das nossas Caixas de Texto como Notas de comentário nos Slides da nossa apresentação? Isso seria muito produtivo!

Pois então, agora podemos fazer isso:

Sub ExportTextBox_AsNotes() 
Dim oPPT As Presentation 
Dim oSlide As Slide 
Dim oSlideShape As Shape 
Dim oNotesShape As Shape 

Set oPPT = ActivePresentation 
Set oSlide = oPPT.Slides(3) 

For Each oSlideShape In oSlide.Shapes 
If oSlideShape.HasTextFrame Then 
Set oNotesShape = oSlide.NotesPage.Shapes.AddShape(msoShapeRectangle, 54, 442, 432, 324) ' 

oNotesShape.TextFrame.TextRange.Text = oSlideShape.TextFrame.TextRange.Text 
End If 
Next 

If Not oSlide Is Nothing Then Set oSlide = Nothing 
If Not oPPT Is Nothing Then Set oPPT = Nothing 
End Sub


Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...


Tags: VBA, Notes, PowerPoint, Automate, Extract, Slides, TextBox


Nenhum comentário:
Tags: , , , , , ,

VBA Excel - Extraindo dados do MySQL - Extract, Get Data from MySQL PHP



É sempre importante relembrar o básico: O código abaixo mostra como podemos extrair os dados de um Banco MySQL, gravando-os na planilha do Excel. Alguns podem até usá-lo para controlar a extração de grandes quantidades de dados como o desenvolvimento PHP para web.

Este código é oportuno para usarmos quando precisamos de um banco de dados MySQL que está num site, por exemplo, e precisa realizar uma grande atualização de dados. Basta automatizarmos o processo e obtermos os dados que precisamos.

Para que seja capaz de executar o código VBA certifique-se de ter habilitado o Microsoft ActiveX Data Objects Library XX. Além de uma conexão checada de ODBC para o MySQL instalada no computador onde a aplicação rodará.




Sub ExDataFromMySQL()

Dim Password As String

Dim SQLStr As String

Dim Cn As ADODB.Connection

Dim Server_Name As String

Dim User_ID As String

Dim Database_Name As String

Dim rs As ADODB.Recordset


Set rs = New ADODB.Recordset

     

Range("A2:BB90000").ClearContents



Let Server_Name = Range("e4").Value             ' IP number or servername

Let Database_Name = Range("e1").Value         ' Name of database

Let User_ID = Range("h1").Value                      ' id user or username

Let Password = Range("e3").Value                    ' Password

Let Tabellen = Range("e2").Value                     ' Name of table to write to



Let SQLStr = "SELECT * FROM " & Tabellen

     

Set Cn = New ADODB.Connection


Cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & _ ";Uid=" & User_ID & ";Pwd=" & Password & ";"

     

rs.Open SQLStr, Cn, adOpenStatic

    

Dim myArray()



Let myArray = rs.GetRows()

Let kolumner = UBound(myArray, 1)

Let rader = UBound(myArray, 2)



For K = 0 To kolumner

Let Range("A5").Offset(0, K).Value = rs.Fields(K).Name


For R = 0 To rader

       Let Range("A5").Offset(R + 1, K).Value = myArray(K, R)

Next

Next



rs.Close


Set rs = Nothing


Cn.Close


Set Cn = Nothing

End Sub

Tags: VBA, Excel, Banco de Dados, MySQL, SQL, extract, extrair, dados, data, Get, PHP, ODBC, connection, MySQL, 


Nenhum comentário:
Tags: , , , , , , , , , , , ,
Assinar: Postagens (Atom)
diHITT - Notícias