Pannello di Controllo Moderatore ]

Macro ComboBox e ListBox

Non sapete dove scrivere? Scrivete qui!

Regole del forum
Solo richieste di aiuto. Per saluti e presentazioni utilizzate il forum Discussioni Generali e Presentazioni.

Macro ComboBox e ListBox

Messaggioda realtv82 » venerdì 8 febbraio 2019, 22:24

Salve
ho iniziato a usare calc per migliorare la gestione del magazzino e sul forum ho trovato delle guide utilissime.
Vorrei un aiutino per modificare una macro, premetto che non ci capisco niente :oops:
Sono delle macro che ho trovato qua sul forum scritte da gaetanopr, avrei necessita di fonderle insieme.

EDIT: spiego meglio
vorrei modificare la macro "RiempiListBox" per farla funzionare con una combobox già presente.

Codice: Seleziona tutto   Espandi visualeStringi visuale
Dim oDialogo1 As Object, oDoc As Object, Sheet As Object
Dim oListBox As Object, oComboBox As Object

Sub Main
DialogLibraries.LoadLibrary( "Standard" )
oDialogo1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1)
oComboBox = oDialogo1.getControl("ComboBox1")
oListBox = oDialogo1.getControl("ListBox1")
oDoc = ThisComponent
Sheet = oDoc.Sheets(0)
CellRange = Sheet.getCellRangeByName("A3:C3")
Dati = CellRange.GetDataArray
oComboBox.getModel.StringItemList = Dati(0)
oDialogo1.Execute()
oDialogo1.dispose()

End Sub


Sub RiempiListBox
Dati = Sheet.getCellRangeByName(oComboBox.SelectedText).GetDataArray
svc = createUnoService("com.sun.star.sheet.FunctionAccess")
Dati1 =  svc.callFunction("TRANSPOSE", Array(Dati))
oListBox.getModel.StringItemList = Dati1(0)
End Sub


CellRange = Sheet.getCellRangeByName("A3:C3")
mi pare di capire che queste indichino le celle che contengono i "nomi definiti" da cercare
a me servirebbe indicare la colonna.
CellRange = Sheet.getCellRangeByName("A2:A" & LastRow)
questa è la sintassi corretta?

spero mi possiate aiutare.
Grazie.
OpenOffice 4.1.5 MacOs 10.13
realtv82
 
Messaggi: 3
Iscritto il: venerdì 8 febbraio 2019, 21:50

Torna a Nuovi arrivati

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti