Blog Archive
-
▼
2004
(73)
-
▼
novembro
(28)
- VBE: Formatação programática de células a BOLD
- VBE: Adicionar Comentários em células
- Thanks, Mark!
- As propriedades SelStart e SelLength (VBE)
- Quantos dias tem o mês
- Utilização das Funções IF() & AND()
- VBE: Desabilitar a tecla "Escape"
- VBE: Eliminação de conteúdos duplicados. Ordenação...
- VBE: Formatação de células (cont.)
- VBE: Formatação de células
- Adicionar um comentário a uma fórmula
- Fórmula com Função de Data
- Referências relativas, absolutas e mistas
- Exemplo das Funções CONCATENAR() e VALOR()
- O método UNION e o método INTERSECT
- O método UNION
- Funções de Data III
- Funções de Data II
- Utilização de funções de data
- Funções de Texto
- 9R x 1C - Significado
- Somar Linhas
- Somar Colunas
- Determinar mensagem mediante valor da célula
- Somar uma coluna, obedecendo a dois critérios
- Mensagem de alerta diário a determinada hora
- Converter horas em minutos
- Incrementar número
-
▼
novembro
(28)
About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2004-11-01
1:28 da manhã | 
Publicada por
JRod - PORTUGAL
Se pretendermos incrementar sequencialmente um número numa dada célula e quisermos manter os zeros à esquerda ( p.ex. 000535 - 000536, como nas facturas), podemos criar um botão de comando e associar-lhe uma macro que faça isso. Deste modo, sempre que clicarmos no botão, o número da célula é incrementado em uma unidade:
Private Sub CommandButton1_Click()
Range("A1").NumberFormat = "000000"
If IsNumeric(Range("A1")) Then
Range("A1") = Range("A1").Value + 1
End If
End Sub
Private Sub CommandButton1_Click()
Range("A1").NumberFormat = "000000"
If IsNumeric(Range("A1")) Then
Range("A1") = Range("A1").Value + 1
End If
End Sub
