L'oggetto Application
|
|
| Oggetto che rappresenta la cartella attiva. |
| VBA |
ActiveWorkbook |
| SB |
ThisComponent |
|
|
| Oggetto che rappresenta il foglio attivo. |
| VBA |
ActiveSheet |
| SB |
ThisComponent.CurrentController.ActiveSheet |
|
|
| Rappresenta la cella attiva. |
| VBA |
ActiveCell |
| SB |
ThisComponent.getCurrentSelection |
| Note: getCurrentSelection restituisce l’oggetto selezionato prima dell’esecuzione della macro. Rappresenta la cella attiva solamente se è l’unica cella selezionata prima dell’esecuzione della macro. |
|
|
| Inibisce lo screen updating |
| VBA |
Application.ScreenUpdating = False
|
| SB |
ThisComponent.LockControllers |
|
|
| Abilita lo screen updating |
| VBA |
Application.ScreenUpdating = True
|
| SB |
ThisComponent.UnlockControllers |
|
|
| Sospende temporaneamente l’esecuzione di una macro per un secondo |
| VBA |
Application.Wait(Now + TimeValue("00:00:01"))
|
| SB |
Wait 1000 |
| Note: In SB l’argomento dell’istruzione Wait è il numero di millisecondi di attesa. Nel tempo di attesa la procedura VBA tiene il processore occupato al 100%, in SB questo non succede. |
|
|
| Richiamare una funzione di un foglio di lavoro. |
| VBA |
Sub MyProc
msgbox WorksheetFunctions.Average(Range("A1:A5"))
msgbox WorksheetFunctions.Max(Range("A1:A5"), _
Range("C1:C5))
End Sub
|
| SB |
Sub MyProc
Dim oSheet, FuncService
Rem Crea il servizio di accesso alle funzioni
FuncService = createunoservice("com.sun.star. _
sheet.FunctionAccess")
oSheet = ThisComponent.CurrentController.ActiveSheet
msgbox FuncService.callFunction("AVERAGE", _
array(oSheet.getCellRangeByName("A1:A5")))
msgbox FuncService.CallFunction("MAX", _
array(oSheet.getCellRangeByName("A1:A5"), _
oSheet.getCellRangeByName("C1:C5")))
End Sub
|
|
|
|