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

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

VBA Tips - Máscara para o CNPJ















Como sabem, sempre precisamos nos lembrar dos campos tão tipicamente brasileiros para o preenchimento de cadastros.

O CNPJ não foge a regra, sempre necessitamos preparar o campo que receberá o seu conteúdo.



Abaixo uma pequena SUB que força o preenchimento de acordo com a máscara desejada.

Sub CNPJFormat_LostFocus() 
Let CNPJFormat.Value = Format([Campo], "00"".""000"".""000""/""0000""-""00") 
End Sub

Futuramente disponibilizo o modo de check quanto aos cálculos do mesmo, isso sim, muito mais interessantes.


Tags: VBA, Excel, CNPJ, format


Tags: , , ,

VBA Excel - Exporte as planilhas para PDF ou XPS - Export Data to PDF or XPS Using the Excel.ExportAsFixedFormat Method

Inline image 1


Este exemplo mostra como usar o método ExportAsFixedFormat para exportar uma série de dados em uma planilha do Microsoft Excel para o formato PDF ou XPS.

Sub TestExportAsFixedFormat() 
  ' For information on the final parameter, see this page: 
  
  Dim rng As Range 
  Set rng = Range("A1:E10") 
  SetupRangeData rng 
  
  Dim fileName As String 
  ' Change this file name to meet your own needs: 
  Let fileName = "C:\Temp\Export.pdf" 
  
  ' Many of these properties are optional, and are included 
  ' here only to demonstrate how you might use them. The 
  ' Type parameter can be one of xlTypePDF and xlTypeXLS; 
  ' the Quality parameter can be one of xlQualityStandard and 
  ' xlQualityMinimum. Setting the OpenAfterPublish property 
  ' to True will fail if you don't have a default viewer 
  ' installed and configured. 
  
  rng.ExportAsFixedFormat Type:=xlTypePDF, _ 
   fileName:=fileName, Quality:=xlQualityStandard, _ 
   IncludeDocProperties:=True, IgnorePrintAreas:=True, _ 
   From:=1, To:=1, OpenAfterPublish:=True 
End Sub 
Sub SetupRangeData(rng As Range) 
  Let rng.Formula = "=RANDBETWEEN(1, 100)" 
End Sub 

Anexos:



Tags: VBA, Excel, Export, Data, PDF, XPS, ExportAsFixed, Format, Method


Tags: , , , , , , , ,

VBA - Função Format e exemplos.

Eu sei, eu sei, isso é superfácil todo mundo sabe, não precisa ser um post. Mas a verdade indica que muita gente ainda não domina a utilização da função Format. Esta retorna uma Variant (String) que contém uma expressão formatada segundo instruções contidas em uma expressão de formato: Sintaxe: Format (expression[, format[, firstdayofweek[, firstweekofyear]]])

Expression - Obrigatória. Qualquer expressão válida.

Format - Opcional. Uma expressão de formato válida nomeada ou definida pelo usuário.

Firstdayofweek - Opcional. Uma constante que especifica o primeiro dia da semana.

firstweekofyear - Opcional. Uma constante que especifica a primeira semana do ano.

O argumento firstdayofweek tem as seguintes configurações:

CONSTANTE VALOR DESCRIÇÃO
vbUseSystem 0 Use a configuração NLS API.
VbSunday 1 Domingo (padrão)
vbMonday 2 Segunda-feira
vbTuesday 3 Terça-feira
vbWednesday 4 Quarta-feira
vbThursday 5 Quinta-feira
vbFriday 6 Sexta-feira
vbSaturday 7 Sábado

O argumento firstweekofyear tem as seguintes configurações:

CONSTANTE VAL DESCRIÇÃO
vbUseSystem 0 Use a configuração NLS API.
vbFirstJan1 1 Inicie com a semana na qual ocorre o dia 1º de janeiro (padrão).
vbFirstFourDays 2 Inicie com a primeira semana que tem pelo menos 4 dias no ano.
vbFirstFullWeek 3 Inicie com a primeira semana completa do ano.

Estes exemplos mostram os diversos usos da função Format para formatar valores, usando formatos nomeados e formatos definidos pelo usuário. Para o separador de data (/), separador de hora (:) e literal AM/ PM, o resultado real formatado, exibido pelo sistema, dependerá das configurações da localidade em que o código estiver executado. Ao exibir datas e horas no ambiente de desenvolvimento, serão usados os formatos de hora e data abreviados da localidade do código. Quando exibidas pelo código em execução, serão usados os formatos de hora e data abreviados da localidade do sistema, que podem ser diferentes da localidade do código. No exemplo abaixo, considera-se o inglês dos EUA.

MyTime e MyDate serão exibidas no ambiente de desenvolvimento, usando as configurações de hora e data abreviadas do sistema atual.

Exemplos

Dim MyTime, MyDate, MyStr
 Let MyTime = #17:04:23#
Let MyTime = #17:04:23#
Let MyTime = #17:04:23#
' Retorna a hora atual do sistema no formato longo de hora definido pelo sistema.
Let MyDate = #Februry 05, 2010#
 ' Retorna a hora atual do sistema no formato longo de hora definido pelo sistema.
Let MyStr = Format (Time, "Hora longa")
 ' Retorna a data do sistema atual no formato longo de data definido pelo sistema.
Let MyStr = Format (Date, "Data longa") Let MyStr = Format (MyTime, "h:m:s")                     ' Retorna "17:4:23". Let MyStr = Format (MyTime, "hh:mm:ss AMPM")    ' Retorna "05:04:23 PM". Let MyStr = Format (MyDate, "dddd, mmm d yyyy")  ' Retorna "Quarta-feira,
 Jan 27 1993".
Se o formato não for especificado, retornará uma seqüência de caracteres
Let MyStr = Format (23)    ' Retorna "23".
Formatos definidos pelo usuário.
Let MyStr = Format (5459.4, "##,##0.00")    ' Retorna "5.459,40". Let MyStr = Format (334.9, "###0.00")    ' Retorna "334,90". Let MyStr = Format (5, "0.00%")    ' Retorna "500,00%". Let MyStr = Format ("OLÁ", "<")    ' Retorna "olá". Let MyStr = Format ("Isto é tudo", ">")    ' Retorna "ISTO É TUDO".


Fonte: Ajuda do MS Excel 2007

 
André Luiz Bernardes
 A&A® - Work smart, not hard.
Tags: , , , , , , , , , ,
Assinar: Postagens (Atom)

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine