Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Olá pessoal,consegui a solução para essa questão. Como pode ser a dúvida de outra pessoa segue a macro:

Sub INSERIRFORMULA

oDoc = ThisComponent

oPlan = oDoc.GetSheets().GetByName("Planilha1")

Dim formula as String

lin = 2

while oPlan.GetCellByPosition(1,lin).string <> ""

formula = "=B" & lin + 1 & "*C" & lin + 1

oPlan.GetCellByPosition(3,lin).setFormula(formula)

lin = lin + 1

wend

End Sub

clique para ocultar/mostrar a revisão 2
No.2 Revision

Olá pessoal,consegui a solução para essa questão. Como pode ser a dúvida de outra pessoa segue a macro:

Sub INSERIRFORMULA

INSERIRFORMULA

oDoc = ThisComponent

ThisComponent

oPlan = oDoc.GetSheets().GetByName("Planilha1")

oDoc.GetSheets().GetByName("Planilha1")

Dim formula as String

String

lin = 2

2

while oPlan.GetCellByPosition(1,lin).string <> ""

""

formula = "=B" & lin + 1 & "*C" & lin + 1

oPlan.GetCellByPosition(3,lin).setFormula(formula)

oPlan.GetCellByPosition(3,lin).setFormula(formula)

lin = lin + 1

1 wend

wend

End Sub

End Sub