Apache OpenOffice: forum della comunità

Codice: Seleziona tutto

Sub MostraFogli
    Dim fogli() As String
    Dim i As Integer
    Dim scelta As String
    
    ' Ottieni l'oggetto Document
    Dim document As Object
    document = ThisComponent
    
    ' Ottieni l'oggetto Sheets
    Dim sheets As Object
    sheets = document.Sheets
    
    ' Ottieni il numero totale di fogli nel documento
    Dim numeroFogli As Integer
    numeroFogli = sheets.getCount()
    
    ' Inizializza l'array di fogli
    ReDim fogli(numeroFogli - 1)
    
    ' Riempire l'array con i nomi dei fogli
    For i = 0 To numeroFogli - 1
        fogli(i) = sheets.getByIndex(i).getName()
    Next i
    
    ' Visualizza la finestra di dialogo
    scelta = InputBox("Seleziona il foglio desiderato:", "Elenco Fogli", Join(fogli, vbCrLf))
    
    ' Controlla se l'utente ha premuto Annulla o ha lasciato vuota la selezione
    If scelta <> "" Then
        ' Imposta il foglio selezionato come foglio attivo
        document.CurrentController.setActiveSheet(document.Sheets.getByName(scelta))
    End If
End Sub

Codice: Seleziona tutto

rem Funzione personalizzata per ottenere l'elenco dei nomi dei fogli nel documento
		'La funzione è richiamata nella scheda "Criteri/Intervallo di celle" nel menù Dati/Valitidà , associata alla cella dove
		'compare il menu a tendina (B2)
Function ElencoNomiFogli() As variant
	Dim NumeroFogli As Integer 
	Dim iFoglio As Integer 
	Dim NomeFoglio As String 
	Dim BozzaElenco() As variant 
	NumeroFogli = ThisComponent.getSheets.getCount()
	ReDim Preserve BozzaElenco()
	a = 0
	For iFoglio = 1 To NumeroFogli-1	'L'indice parte da 1 e non da 0 per escludere il foglio1
		NomeFoglio = ThisComponent.Sheets.getByIndex(iFoglio).getName()
		ReDim Preserve BozzaElenco(a)
		BozzaElenco(a) = NomeFoglio
		a = a +1
	Next iFoglio
	ElencoNomiFogli() = BozzaElenco()
End Function

rem Codice associato al pulsante "Visualizza foglio scelto"
Sub VisualizzaFoglio
	rem definizione della cella contenente il nome del foglio da visualizzare
	Dim CellaSelezionata As Object 	
	CellaSelezionata = ThisComponent.getCurrentController().getActiveSheet().getCellRangeByName("B2")
	rem definizione nome del foglio da esportare
	Dim NomeFoglio As String 
	NomeFoglio = CellaSelezionata.String
	rem attivazione del foglio scelto
	ThisComponent.CurrentController.setActiveSheet(ThisComponent.Sheets.getByName(NomeFoglio))
End Sub

Codice: Seleziona tutto

Function ElencoNomiFogli() As variant
ElencoNomiFogli() = ThisComponent.Sheets.getElementNames()
End Function

Codice: Seleziona tutto

Function ElencoNomiFogli() As variant
	Dim NumeroFogli As Integer 
	Dim iFoglio As Integer 
	Dim NomeFoglio As String 
	Dim BozzaElenco() As String
	Dim arrFogli() As Integer 
	Dim a As Integer 
	NumeroFogli = ThisComponent.getSheets.getCount()
	ReDim BozzaElenco(NumeroFogli -1)		'ridimensionamento di una matrice senza dati (vuota)
	arrFogli = array(1,2,3,4,5,6,7,8,9)	'array contenente gli indici dei fogli che mi interessano visualizzare
	a = 0
	For Each iFoglio In arrFogli()
		NomeFoglio = ThisComponent.Sheets.getByIndex(iFoglio).getName()
		BozzaElenco(a) = NomeFoglio
		a = a +1
	Next iFoglio
	ElencoNomiFogli() = BozzaElenco()	
End Function

Codice: Seleziona tutto

Function ElencoNomiFogli()
  ElencoNomiFogli() = ThisComponent.Sheets.getElementNames()
End Function		
Sub evento(Target) 
    If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub
    Sh = Target.getSpreadsheet()
    rng = sh.getCellRangeByName("B2")
    range2 = rng.queryintersection(Target.rangeaddress()) 
    If range2.RangeAddressesAsString = "" Then   Exit Sub
	ThisComponent.CurrentController.setActiveSheet(ThisComponent.Sheets.getByName(target.string))
 End Sub