Inserir unidades em várias células

Question

Como inserir unidades como o "mm" por exemplo após os números de várias células?

Obrigado

Answer 1

Opa, desculpe-me. Esqueci de especificar o programa que estou utilizando.

Estava usando o Mycrosoft Excel 2007, e estava tendo dificuldades em colocar a unidade "mm" em todos os números de uma coluna. Mas consegui resolver da seguinte forma:

-Selecionei a coluna desejada;

-Cliquei com o botão direito do mouse, selecionei a opção "formatar células";

-Na aba "Número", selecionei "Personalizado";

-Na caixa de texto digitei: 0"mm".

Ao clicar em OK, todos os números daquela coluna estavam com a unidade "mm".

Não consegui encontrar esta resposta aqui, contudo vi em outro fórum de ajuda e gostaria de compartilhar esta informação.

Obrigado, Danilo! Você sempre tenta me ajudar da melhor forma possível!

Answer 2

Olá José Vitor,

Se entendi bem, você quer alterar a formatação dos números numa tabela de Word, e não de Excel. As tabelas de Excel, como você mesmo descobriu, possui personalização na visualização das células, e as do Word, não.

A rotina em VBA que escrevi acima deve ser colocada num módulo do Word e executada. Para fazer isso, pressione Alt+F11 no Word e em seguida crie um módulo. Cole o código acima e em seguida pressione F5 para executar a rotina.

Se não entendeu como fazer, verique a página http://www.ambienteoffice.com.br/officevba/modulos_em_vba/.

Vale lembrar que essa rotina circulará por todas as tabelas do Documento. É possível também fazer com que ela atue somente numa tabela específica.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 3

Obrigado Benzadeus.

Contudo não saberia como ou onde utilizar estas informações.

Notei que esta é uma rotina para Word, contudo, como devo utilizá-la??

Esta informação seria muito útil no meu trabalho.

Obrigado!

Answer 4

Selecione a(s) tabela(s) que deseja inserir o sufixo desejado e execute a rotina:

Sub Adicionar_Sufixo()

'Essa rotina não funcionará se houver células mescladas verticalmente no Word! 'Motivo: http://felipebenza.wordpress.com/2010/12/15/apagar-linhas-em-branco-de-tabela-mesclada-de-um-documento-do-word/

Const sSufixo As String = " mm"

Dim tbl As Table Dim cl As Cell Dim n As Long

For Each tbl In Selection.Tables For n = tbl.Rows.Count To 1 Step -1 For Each cl In tbl.Rows(n).Cells() cl.Range.Text = Mid(cl.Range.Text, _ 1, Len(cl.Range.Text) - 2) & sSufixo Next cl Next n Next tbl

End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 5

Olá José,

Tem como você postar um pouco mais de detalhes, pois eu não consegui compreender a sua dúvida.

No aguardo.