REM ***** BASIC ***** Option Explicit Sub Agg_Anno() Dim oRange as Object REM oRange = ThisComponent.NamedRanges.GetByName("B1").ReferredCells oRange = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("B1") ThisComponent.LockControllers oRange.getcellbyposition(0, 0).Value = InputBox("Nuovo anno:", "Nuovo anno") ThisComponent.CalculateAll() ThisComponent.UnlockControllers Sub dbase_impegni() DbaseForm.DbaseForm ("Scadenziario_riunioni") End Sub End Sub
Aggiungiamo una macro per richiamare il dialogo