Adicione números ao conteúdo da célula existente usando a macro VBA

Anonim

Leia todos os números de um intervalo de células desejado usando uma macro e adicione um número ao conteúdo

Freqüentemente, é necessário adicionar uma marca às células de uma lista. Para fazer isso, é necessário adicionar um valor fixo a todas as constantes em um intervalo de células.

As fórmulas não devem ser alteradas. Uma macro resolve essa tarefa e adiciona um número de sua escolha a todas as constantes em uma área de dados marcada.

Desta forma, você pode, por exemplo, ajustar os preços e similares de forma rápida e eficaz às novas condições.

A figura a seguir mostra uma tabela que deve ser alterada. Existem constantes nas células B1 e B2 e fórmulas nas células B3 e B4. As duas células da fórmula referem-se às células com os valores constantes.

Para adicionar o número 10 a todas as constantes nesta lista, primeiro marque a área de dados B1: B4 e depois chame a seguinte macro:

Adicionar Subconstante ()
Dim Cell As Range
Dim Factor enquanto longo
Montante adicional = 10
Para cada célula na seleção
Com celular
Se não (.HasFormula) Então .Value = .Value + quantidade adicional
Terminar com
Próxima célula
End Sub

Depois de iniciar a macro, a quantidade adicional 10 é adicionada a todas as células constantes na área de célula marcada. A figura a seguir mostra o resultado:

A macro usa o fator que você definiu na atribuição de valor para a variável "Montante adicional".

Para inserir a macro, pressione ALT F11 no Excel para abrir o editor VBA. Use o comando INSERT - MODULE para inserir uma folha de módulo vazia. Para iniciar a macro diretamente do Excel, use a combinação de teclas ALT F8.