Grave vários resultados de cálculo em cada mudança de célula de entrada única

0

Eu tenho uma planilha que calcula geração reduzida e emissões por fonte de combustível para o estado de Wisconsin em diferentes níveis de capacidade solar fotovoltaica no estado, como um percentual da capacidade de geração elétrica total do estado.

Agora, posso colocar um único valor para essa porcentagem da capacidade total, e a planilha calculará os resultados (quatro valores) que eu quero nesse ponto definido.

O que estou procurando é uma maneira de alterar essa entrada de 1 a 100 por números inteiros e gravar uma linha de dados para os resultados em cada entrada.

Eu usei o VBA em outros aplicativos (não-Microsoft), portanto, estou aberto a soluções com o VBA, mas não sei como começar a usar o VBA no Excel.

    
por LShaver 07.04.2016 / 21:56

1 resposta

1

Entendi! Obrigado @Raystafarian pelo ponteiro para usar "macro de registro", que foi muito útil. Aqui está o código que acabei usando:

Sub iteratePV()

Dim i As Integer
Dim pasterow As Integer
Dim copyrange As String

For i = 1 To 200
    Range("A2").Select
    ActiveCell.FormulaR1C1 = i / 100
    Range("A2:M2").Select
    Selection.Copy
    pasterow = i + 2
    Let copyrange = "A" & pasterow
    Range(copyrange).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i
End Sub

A2 é onde eu inseri o valor de entrada como uma porcentagem, com a saída resultante preenchendo o intervalo B2:M2 .

Esses resultados foram então copiados nas linhas subseqüentes.

    
por 07.04.2016 / 22:43