Palavras em negrito, outras c/ formato normal na mesma cél.

[HOMTHEN]

Como fazer algumas palavras desta célula ficar em negrito e outras ficar com formatação normal. Existe alguma função que faça isso ou alguma macro?

A célula tem fórmulas, onde os dados vem de outras células. Então quando eu clico na célula para editar o texto dela, o conteúdo não aparece, mas sim a fórmula ( Função concatenar ). Por isso não consegui fazer a formatação manualmente.

Procurei alguma fórmula para trabalhar junto com a função concatenar, mas não achei...

Exemplo do que quero... Na célula tem o seguinte conteúdo:

Maria dos Santos Pereira ganhou um carro FIAT no sorteio do dia 11/04/09.
Quando ela recebou o prêmio houve um reajuste no cadastramento dela.
Como ela foi classificada em Segundo lugar, não teve direito aos premios extras. Mas acabou ganhando uma tv 20" Phillips.

No texto do exemplo acima, quero que as seguintes palavras fiquem em negrito:

- Maria dos Santos Pereira
- FIAT
- 11/04/09
- Segundo lugar
- prêmios extras
- tv 20" Phillips

As demais palavras fiquem em formatação normal.

Existe alguma fórmula que faça isso?
Ou alguma macro?

[webmaster]

Colega,

Sim é possível. Formatar é a parte fácil. O chato é encontrar o texto que se quer formatar. Como exemplo, use o código abaixo:

Código: Selecionar todos

Sub FormataMaria()
    With ActiveCell.Characters(Start:=0, Length:=25).Font
        .FontStyle = "Bold"
    End With
End Sub

Coloque a primeira frase de seu texto em uma célula: Maria dos Santos Pereira ganhou um carro FIAT no sorteio do dia 11/04/09.

Mantenha a célula selecionada e cliente em F8. Execute a macro FormataMaria e veja que o nome foi marcado em negrito. O que aconteceu nos bastidores foi, o VBA selecionou a célula ativa (ActiveCell), selecionou os caracteres da célula (Characters) do índice 0 (Start:=0) até o índice 25 (Length:=25), que é onde começa e termina o nome da Maria. Finalmente, pegou esse Range de carateres e aplicou a formatação Netrigo (FontSyle = "Bold").

Isso já deve ajudar.

Abraços

[HOMTHEN]

Valeu amigo. Muito obrigado!

Surgiram alguns grilos:

Coloque a primeira frase de seu texto em uma célula: Maria dos Santos Pereira ganhou um carro FIAT no sorteio do dia 11/04/09.

O código funcionou direitinho. Mas, como eu faria para as outras palavras do texto ( FIAT, 11/04/09, Segundo lugar, prêmios extras e tv 20" Phillips ) também ficarem em negrito ?

... o VBA selecionou a célula ativa (ActiveCell), selecionou os caracteres da célula (Characters) do índice 0 (Start:=0) até o índice 25 (Length:=25), que é onde começa e termina o nome da Maria. Finalmente, pegou esse Range de carateres e aplicou a formatação Netrigo (FontSyle = "Bold").

Então, vai haver palavras ( nomes ) com mais de 25 ou c/ menos de 25 caracteres....

Ex:
Joventino Pereira do Nascimento Santana
Ana Dias Silva

Como eu faria para resolver este detalhe?

[webmaster]

Colega,

Só fazendo uma busca dentro da string até achar a sequência de caracteres que deseja. As função de manipulação de string do VBA podem lhe ajudar. Creio que mais especificamente a função InStr(). Veja um exemplo simples (copie e cole no VBA e execute):

Código: Selecionar todos

Sub ProcuraIndiceTexto()
texto = "texto3user4"
procurar = InStr(texto, "0") Or InStr(texto, "1") Or InStr(texto, "2") Or InStr(texto, "3")
Debug.Print procurar
End Sub

Mais detalhes/;

http://office.microsoft.com/pt-br/acces ... 71046.aspx

Espero que ajude.
Abraços

[HOMTHEN]

Colega,

Só fazendo uma busca dentro da string até achar a sequência de caracteres que deseja. As função de manipulação de string do VBA podem lhe ajudar. Creio que mais especificamente a função InStr(). Veja um exemplo simples (copie e cole no VBA e execute):

Código: Selecionar todos

Sub ProcuraIndiceTexto()
texto = "texto3user4"
procurar = InStr(texto, "0") Or InStr(texto, "1") Or InStr(texto, "2") Or InStr(texto, "3")
Debug.Print procurar
End Sub

Mais detalhes/;

http://office.microsoft.com/pt-br/acces ... 71046.aspx

Espero que ajude.
Abraços

Valeu Tomás. Obrigado pelas dicas!!!!

Bem cara, não conseguir fazer a macro funcionar desta vez.
Vou deixar uma planilha aqui pra ver se você pode fazer alguma coisa:
http://www.4shared.com/file/135289711/7 ... _Post.html

Veja que na Célula A2 ( da planilha "Impressão-FÓRMULA" ) os dados da fórmula ( Maria dos Santos Pereira, FIAT Uno ano 2005 e Moto CB125, 11/04/09 e Primeiro lugar ) vém da planilha PRÊMIOS ( nas células: B2, C2, E2 e A2 )...

Veja se você pode fazer alguma coisa aí.
Desde já muito obrigado!

[webmaster]

Colega,

Bom, provavelmente vou escrever isso mais de uma vez, mas vamos lá.

A intenção do fórum é tratar problemas específicos ao Excel. Não dá para ficar resolvendo problemas relacionados a necessidades específicas de cada negócio, senão, teríamos que ter especialistas em todas as áreas por aqui.

Não dá para responder um pergunta do tipo:

Como fazer uma planilha de controle de estoque no Excel?

Mas isso por exemplo é bem mais tangível:

Como contar os registros de uma lista de produtos, subtraindo os que estão em outra planilha?

A primeira remete ao negócio. A segunda a uma capacidade específica do Excel.

Por isso, peço que detalhe a dúvida no nível em que pudermos responder usando as características e capacidades da ferramenta. Claro, haverão pessoas que com um tempo livre que até darão uma atenção para um caso específico, seja qual for o motivo. Mas como pense que a maior parte está empregada e trabalha, será uma rara excessão.

Espero que com isso possamos atingir um bom nível de atendimento a dúvidas que são relatadas aqui no fórum.

Abraços

[HOMTHEN]

Colega,

Bom, provavelmente vou escrever isso mais de uma vez, mas vamos lá.

A intenção do fórum é tratar problemas específicos ao Excel. Não dá para ficar resolvendo problemas relacionados a necessidades específicas de cada negócio, senão, teríamos que ter especialistas em todas as áreas por aqui.

Não dá para responder um pergunta do tipo:

Como fazer uma planilha de controle de estoque no Excel?

Mas isso por exemplo é bem mais tangível:

Como contar os registros de uma lista de produtos, subtraindo os que estão em outra planilha?

A primeira remete ao negócio. A segunda a uma capacidade específica do Excel.

Por isso, peço que detalhe a dúvida no nível em que pudermos responder usando as características e capacidades da ferramenta. Claro, haverão pessoas que com um tempo livre que até darão uma atenção para um caso específico, seja qual for o motivo. Mas como pense que a maior parte está empregada e trabalha, será uma rara excessão.

Espero que com isso possamos atingir um bom nível de atendimento a dúvidas que são relatadas aqui no fórum.

Abraços

Oi Tomás,

Coloquei a planilha aqui porque sei muito pouco sobre macro. Tentei fazer aqui mas não conseegui e nem conseguiria ir muito além, devido aos meus conhecimentos reduzidos no assunto VBA.

Bem cara, entendo a sua situação em não dispor de tempo suficiente para gastar tempo criando alguma macro para aplicar em minha planilha. De qualquer forma, muito obrigado pela atenção!

Um abraço!

[webmaster]

Colega,

Quanto aos conhecimento, a intenção do fórum é faze-los crescer. O que não gosto é da postura de alguns usuários visitarem os fóruns apenas para conseguir a resposta para seus problemas. A intenção fica óbvia quando o cidadão demonstra não desenvolver conteúdo algum conforme a questão vai sendo resolvida. São os chamados sangue-sugas. São eles que poluem os fórum de perguntas inúteis que a maioria dos colaboradores da comunidade já cansou de responder e já "sacou" qual é a deles.

Meu desejo como administrador deste fórum é instigar a curiosidade de quem precisa resolver algum problema com o Excel, fazendo com que cada um busque o conhecimento necessário para resolvê-lo. Assim, ele não vai precisar voltar ao fórum cada vez que precisar da mesma ajuda e claro, não ter mérito algum pela resolução do problema.

Está faltando alguma coisa para resolver seu problema? Vamos começar por onde você conhece e caminhar daí para diante. Para isso, há os links, posts, artigos, tutoriais e downloads que exitem no site e blog.

Um grande abraço

[HOMTHEN]

Colega,

Quanto aos conhecimento, a intenção do fórum é faze-los crescer. O que não gosto é da postura de alguns usuários visitarem os fóruns apenas para conseguir a resposta para seus problemas. A intenção fica óbvia quando o cidadão demonstra não desenvolver conteúdo algum conforme a questão vai sendo resolvida. São os chamados sangue-sugas. São eles que poluem os fórum de perguntas inúteis que a maioria dos colaboradores da comunidade já cansou de responder e já "sacou" qual é a deles.

Meu desejo como administrador deste fórum é instigar a curiosidade de quem precisa resolver algum problema com o Excel, fazendo com que cada um busque o conhecimento necessário para resolvê-lo. Assim, ele não vai precisar voltar ao fórum cada vez que precisar da mesma ajuda e claro, não ter mérito algum pela resolução do problema.

Está faltando alguma coisa para resolver seu problema? Vamos começar por onde você conhece e caminhar daí para diante. Para isso, há os links, posts, artigos, tutoriais e downloads que exitem no site e blog.

Um grande abraço

Oi Tomás,

Não sei se o termo INÚTIL faz referência às minha postagens por aqui....

Sendo referência à minhas postagens ou não, quero lhe dizer uma coisa:
Eu tinha uma certa urgência nas respostas. Então acabei postando a mesma dúvida em outro fórum, e as respostas que eu precisava acabei recebendo todas elas por lá. As pessoas que participaram na minha postagem por lá não acharam ela Inútil, pois acabaram respondendo ela com muita boa vontade. Vi também que minhas postagens por lá até serviu para outros, que acabaram sendo beneficiados com minhas postagens por lá, e que acabaram elogiando ao amigo que me respondeu por lá. Ele colocou 2 códigos diferentes nesta mesma planilha que postei aqui. Então, se alguém perguntar para as pessoas beneficiadas se a minha postagem por lá foi inútil, com certeza elas diriam ao contrário: diriam que foram úteis pra elas e que através de minhas postagens elas acabaram se baneficiando também.

Uma postagem poderia até ser taxada de inútil, se ela não servisse pra ajudar nem a mim nem às pessoas que a lessem, não tirasse nenhum proveito na leitura dela.

Acho que nem mesmo as minhas postagens por aqui poderiam ser considerados inúteis, pois você começou a responder. Então de certa forma vai servir pra algum visitante desta sala.

Bem é isso.

Quero novamente agradecer-lhe pelas suas tentativas em me ajudar por aqui.

Um abraço!

[webmaster]

Colega,

Peço que leia com atenção o que escrevi. Tratei de deixar tudo bem explícito para não haver mal entendido. Se quer ter uma idéia do que quis dizer, basta olhar os outros posts deste fórum.

Além disso, não tenho a pretensão de sozinho querer fazer o mesmo trabalho que outros fóruns fazem, tendo eles vários anos de vida e este apenas 1 mês.

Mas posso tentar certo?

Abraços