Code: Select all
'Gets spreadsheet to update as inputs change
Public oListener as Object
Public CellRng as Object
Public Sub AddListener
Dim Doc, Sheet, Cell as Object
Doc = ThisComponent
Sheet = Doc.Sheets.getByName("Sheet1")
CellRng = Sheet.getCellrangeByName("inputs")
oListener = createUnoListener("Modify_","com.sun.star.util.XModifyListener") 'create a listener
Cellrng.addModifyListener(oListener) 'register the listener
End Sub
Public Sub Modify_modified(oEvent) 'macro jumps here when oListener detects modification of Sheet
Call Calcs
End Sub
Public Sub Modify_disposing(oEvent)
End Sub
Public Sub ClearListener
Cellrng.removeModifyListener(oListener) 'remove the listener
End Sub
Public Sub Calcs
MsgBox "Something changed!"
end sub