Proper  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Proper

Mensagempor vonzuben » Seg Abr 16, 2018 10:50 am

Coloquei o Application.WorksheetFunction.Proper e retirou o azul

OBS: Quero colocar na caixa de combinação do mês a primeira letra em maiúsculo

Linha :
CB_Mth.AddItem Format(DateSerial(Year(Date), Month(Date) + i, 0), "mmmm")

https://www.sendspace.com/file/q3c7k6

Obrigado !
Você não está autorizado a ver ou baixar esse anexo.
vonzuben
Membro
Membro
 
Mensagens: 512
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 213 times
Have thanks: 0 time

{ SO_SELECT }

Re: Calendário

Mensagempor wagner » Seg Abr 16, 2018 11:11 am

vonzuben,

Bom dia!

Conforme as normas do fórum, o título da sua mensagem deve conter um resumo da sua dúvida. Desse modo, EDITE o título da sua mensagem de modo a que o mesmo reflita o resumo da sua dúvida.

Aproveite também e explique no texto o que você realmente quer. Eu, por exemplo, confesso que não entendi nada!

Outro detalhe: os códigos VBA aqui no fórum devem ser inseridos com a utilização da ferramenta CODE existente logo no início da caixa de mensagens.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
vonzuben (Ter Abr 17, 2018 12:18 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4120
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 69 times
Have thanks: 1789 times

Re: Calendário

Mensagempor vonzuben » Seg Abr 16, 2018 11:43 am

Coloquei o Application.WorksheetFunction.Proper e retirou o azul ( Que azul ? Está na imagem )
Em qual linha colocou ? ( A linha está no post !)
Quero colocar na caixa de combinação do mês a primeira letra em maiúsculo ( Proper é para colocar a primeira letra em maiúsculo )
Caixa de combinação ( É a caixa de listagem dos 12 meses )

Q lugar q você não entendeu ?
vonzuben
Membro
Membro
 
Mensagens: 512
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 213 times
Have thanks: 0 time

Re: Proper

Mensagempor gfsouza86 » Seg Abr 16, 2018 11:54 am

vonzuben

Quando o wagner respondeu seu post ele teve a intenção apenas de te ajudar e te informar que aqui no fórum existem regras que devem ser respeitadas
Caso não saiba como se comportar aqui no fórum, ou não saiba como postar suas duvidas, da uma lida na FAQ http://www.planilhando.com.br/forum/faq.php

Desnecessário a sua resposta para alguém que teve a intenção de corrigir os seus erros para te ajudar!
G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

For this post the author gfsouza86 thanked:
vonzuben (Ter Abr 17, 2018 12:19 pm)
gfsouza86
Membro
Membro
 
Mensagens: 133
Registrado em: Qua Jul 24, 2013 10:12 pm
Has thanked: 10 times
Have thanks: 10 times

Re: Proper  [Resolvido]

Mensagempor EdsonBR » Seg Abr 16, 2018 5:07 pm

Boa tarde.

1) O VBA, ao contrário do Excel, é fortemente Case Sensitive então ao alterar caracteres para maiúsculas/minúsculas isso acaba trazendo problemas na hora de efetuar comparações (de igualdade, por exemplo, em laços de decisão). Para minimizar essas situações, use, na área de declarações, (ao nível de módulo) a seguinte instrução (abaixo de Option Explicit):
Código: Selecionar todos
    Option Compare Text


2) No VBA, vc não precisa recorrer à função de planilha PRI.MAIÚSCULA (Proper). Ao invés disso, use a função StrConv do próprio VBA:
Código: Selecionar todos
    CB_Mth.AddItem StrConv(Format(DateSerial(Year(Date), Month(Date) + i, 0), "mmmm"), vbProperCase)

For this post the author EdsonBR thanked: 2
vonzuben (Ter Abr 17, 2018 12:19 pm) • xlarruda (Seg Abr 16, 2018 6:55 pm)
Avatar do usuário
EdsonBR
Membro
Membro
 
Mensagens: 494
Registrado em: Qui Nov 05, 2015 11:43 pm
Localização: Joinville, SC
Has thanked: 99 times
Have thanks: 293 times

Re: Proper

Mensagempor vonzuben » Ter Abr 17, 2018 12:18 pm

EdsonBR

Perfeito, obrigado !
Editado pela última vez por Patropi em Ter Abr 17, 2018 6:06 pm, em um total de 1 vez.
Razão: Não use citação sem necessidade - Leia as regras do fórum
vonzuben
Membro
Membro
 
Mensagens: 512
Registrado em: Qua Fev 12, 2014 6:00 pm
Has thanked: 213 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes