Página 1 de 1

Cadastro com Formatações

Enviado: Ter Nov 24, 2009 10:28 am
por danilo186
Sou leigo em vba mas estou me entretendo bastante com esse sistema de cadastro
fiz com base no seu cadastro um cadastro de motorista para me auxiliar no trampo,
e estou com 2 dificuldades e gostaria que vcs me ajudassem
1 gostaria que todos os dados digitados no form fossem salvos na planilha em maiusculas independente de caps lock
2 tenho tbm no form 4 campos, onde a multiplicação deles me retornaria a metragem cubica dos caminhões, gostaria que o proprio fizesse esse calculo e jogasse na plan os valores
segue anexado tela para avaliação
Aguardo ancioso

Re: Cadastro com Formatações

Enviado: Ter Nov 24, 2009 11:10 am
por webmaster
Danilo,

1º Use a função UCase para colocar os caracteres e maiúsculo. Por exemplo: UCase(TextBox.Tex).
2º Alguma dúvida em fazer multiplicação em VBA? Ex: Produto = Valor1 * Valor2 * Valor3 * Valor4

Abraços

Re: Cadastro com Formatações

Enviado: Ter Nov 24, 2009 1:01 pm
por danilo186
desculpe, minha ignorancia no assunto mas não consegui localizar onde aplicar o comando Ucase
e em questão a multiplicação sim essa é minha duvida pois não sei se tem que converter os valores de texto para numero
a parte de programação é igual a do modelo original disponibilizado para down

Re: Cadastro com Formatações

Enviado: Ter Nov 24, 2009 1:42 pm
por webmaster
Danilo,

Da própria Microsoft:

A função UCase retorna uma Variant (String) que contém a seqüência de caracteres especificada, convertida em letras maiúsculas.

Sintaxe
UCase(string)

O argumento string obrigatório é qualquer expressão de seqüência válida. Se string contiver Null, será retornado Null. Somente as letras minúsculas são convertidas em maiúsculas; todas as letras maiúsculas e os caracteres diferentes de letras permanecem inalterados.

Exemplo
Este exemplo usa a função UCase para retornar uma versão de uma seqüência de caracteres em letras maiúsculas.

Código: Selecionar todos

Dim LowerCase, UpperCase
LowerCase = "Olá mundo 1234"    ' Seqüência de caracteres a ser convertida.
UpperCase = UCase(LowerCase)    ' Retorna "OLÁ MUNDO 1234"
No caso das conversões veja mais sobre as funções de conversão:

CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)

Abraços