macro per scelta multripla in un foglio: combobox e vaidità
Inviato: giovedì 12 maggio 2011, 15:40
Ciao a tutti!
Il mio problema è di inserire in un foglio delle scelte multiple, senza usare delle dialog.
Ho visto che ci sono due strade: una tramite controlli per formulario->combobox e un'altra tramite dati->validità->area celle.
A mano ho capito come si fa ed ho provato a registrare la macro per scoprire il segreto,
Volevo sapere se è possibile fare qualcosa del genere riferendosi a delle celle di un altro foglio oppure a una tabella di un database,
ma settando tutto dalla macro.
Ad esempio una cosa che vorrei è decidere di mettere una scelta multipla in B1 ed un'altra in B2.
Inoltre settare le proprietà della combobox
spero di essere stata abbastanza chiara.
grazie mille,
eliana
Il mio problema è di inserire in un foglio delle scelte multiple, senza usare delle dialog.
Ho visto che ci sono due strade: una tramite controlli per formulario->combobox e un'altra tramite dati->validità->area celle.
A mano ho capito come si fa ed ho provato a registrare la macro per scoprire il segreto,
Codice: Seleziona tutto
sub sceltacombobox
' Recorded by
' Date: Thu May 12 15:29:30 2011
' get access to the document
oDocumentModel = ThisComponent
oDocumentView = oDocumentModel.getCurrentController()
oDocumentFrame = oDocumentView.Frame
' the dispatcher service is used to send commands from the
' document frame to the underlaying office application
oDispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
Dim mArgs1(0) As New com.sun.star.beans.PropertyValue
mArgs1(0).Name = "ToPoint"
mArgs1(0).Value = "spettro.C1"
oDispatcher.executeDispatch(oDocumentFrame, ".uno:GoToCell" ,"" ,0 ,mArgs1())
Dim mArgs2(0) As New com.sun.star.beans.PropertyValue
mArgs2(0).Name = "ComboBox"
mArgs2(0).Value = True
oDispatcher.executeDispatch(oDocumentFrame, ".uno:ComboBox" ,"" ,0 ,mArgs2())
end subCodice: Seleziona tutto
sub valida
' Recorded by
' Date: Thu May 12 15:21:40 2011
' get access to the document
oDocumentModel = ThisComponent
oDocumentView = oDocumentModel.getCurrentController()
oDocumentFrame = oDocumentView.Frame
' the dispatcher service is used to send commands from the
' document frame to the underlaying office application
oDispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
Dim mArgs1(0) As New com.sun.star.beans.PropertyValue
mArgs1(0).Name = "ToPoint"
mArgs1(0).Value = "$D$1"
oDispatcher.executeDispatch(oDocumentFrame, ".uno:GoToCell" ,"" ,0 ,mArgs1())
oDispatcher.executeDispatch(oDocumentFrame, ".uno:Validation" ,"" ,0 ,Array())
end subVolevo sapere se è possibile fare qualcosa del genere riferendosi a delle celle di un altro foglio oppure a una tabella di un database,
ma settando tutto dalla macro.
Ad esempio una cosa che vorrei è decidere di mettere una scelta multipla in B1 ed un'altra in B2.
Inoltre settare le proprietà della combobox
spero di essere stata abbastanza chiara.
grazie mille,
eliana