Macro modifica parziale formule

Salve a tutti. Il tema può apparire insolito ma rivolgo comunque un gentile appello a chi può essermi d’aiuto nel caso specifico. Per calcoli miei pregressi debitamente messi da parte in quanto non necessari per la soluzione finale,ho inserito un file apposito per questo argomento. Prendendo spunto dall’allegato in questione avrei bisogno che tramite una macro si potessero modificare parzialmente le formule presenti nella colonna B in modo tale che dopo l’attivazione del codice (anche con un pulsante sul Foglio),la suddetta colonna B possa diventare così come evidenziato nella fila I. Una buona serata

macro per azzeramento parziale formula.ods (12.9 KB)

.
Prova questa.
.

Sub RipristinaUgualeAx
Doc    = ThisComponent
Foglio = Doc.CurrentController.ActiveSheet 'Il Foglio Attivo
For Riga = 0 To 19
Cella = "=A" & Riga+1
Foglio.GetCellByPosition(1,Riga).formula = Cella '0=ColonnaA 1=ColonnaB ...
Next
End Sub

.
Test - Macro - Azzeramento parziale formula.ods (17.5 KB)

Perfetto,grazie mille Lucky63