[Risolto] Finestra di Dialog con Elenco+Pulsanti OK/Annulla

[Biagio91]

Ciao a tutti,

Per curiostà e interesse personale cercavo in rete come fare ad inserire nella macro che sto utilizzando per l'inserimento di alcuni dati tramite InputBox successive, una sorta di InputBox da cui poter scegliere un dato da un elenco.

Ad esempio su Foglio1 ho un elenco di nomi in A1:A100

Su Foglio2 necessiterei che durante l'inserimento di dati tramite successive InputBox, una di queste sia per il riferimento ad uno dei nomi presenti nell'elenco di Foglio1, ma per evitare errori di battitura ed avere lo stesso identico nome presente nell'elenco di Foglio1, volevo sapere se è possibile utilizzare una sorta di InputBox che però mi dia la possibilità di selezionare il nome appunto dall'elenco presente in Foglio1 A1:A100

Cercando in rete non sono mica riuscito a trovare qualcosa di adeguato.

Avete idea se può essere fattibile una cosa del genere? Come dovrei fare per costruirla?

[patel]

Vai su Dati,Validità, Intervallo di celle ....

[Biagio91]

Si, questo è per creare un elenco giusto? Se è così questo riesco già a farlo.

La curiosità era se è possibile inserire un elenco da cui scegliere su una inputbox, al posto di avere il classico spazio dove digitare, avere l'elenco.

Possibile?

[patel]

Non capisco la differenza tra quanto dici e la mia proposta, forse vuoi realizzare una finestra di dialogo ?

[Biagio91]

Presumo di si, ho visto le miniature del wiki e
https://wiki.openoffice.org/w/images/c/ ... dlg_04.gif
questa sembrerebbe ciò che serve a me.

Perdona il mio esprimermi da nabbo.

Mi manca capire come fare a costruirla...infine questa è la base da cui partire

Pazzesco, ho cercato in internet, nel forum, ovunque....mi sembra di non trovare lo Step0, trovo tutti che la usano tranquillamente e poi hanno problemi col codice o con l'inserimento dei dati o con la "formattazione" della Finestra di dialogo...ma io non riesco mica a capire proprio come fare per costruirla XD, mi manca la partenza.

Esiste una guida in merito??

Editato: Ok....Strumenti>Macro>OrganizzaMacro>OpenOffice Basic > NuovoModulo > Tasto Dx in basso sulla barra delle label > inserisci > dialog!! L'ho trovato!!!!

[Biagio91]

Ok, sono a buon punto, mi manca proprio la parte "finale" di questo progetto ovvero:
Popolare l'elenco della ComboBox, inserire il valore scelto su una cella se è stato premuto il Pulsante OK, altrimenti Annullare tutto e chiudere la Dlg.


Posto un file esempio, ho cercato di renderlo il più pratico possibile ma sono autodidatta e sicuramente qualcosa è fatto male (spero poca roba).
Attualmente sono bloccato su:

- Popolare l'elenco con i dati della colonna B del Elenco; in modo che se aggiungo dati all'elenco, vengano aggiornati i valori anche all'interno della ComboBox.
- Far funzionare i pulsanti OK e Annulla (se Off-Topic faccio nuovo Thread)

Grazie mille se riuscite a darmi un aiuto

Editato: Allegato eliminato; C'erano delle parti di Codice errate che potevano fuorviare. Allegato File definitivo Funzionante a fine post

Ciao

[Biagio91]

Forse dovrei cambiare il titolo in Finestra di Dialogo con elenco?

[patel]

Cambiare titolo sarebbe saggio.
Prova questa modifica

Codice: Seleziona tutto

dim Dlg As Object

'------------------
sub MostraDlg
DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.DlgEsempio)
call riempicombobox
Dlg.Execute()
end sub

Sub riempicombobox
sh = ThisComponent.Sheets.GetByName("ElencoID")
n=0
   For r = 5 To 34
      a=  Sh.getCellByPosition(1, r).String
      if a<>"" then 
         Dlg.getControl("cboID").AddItem(a,n)
         n=n+1
      end if
   next 
End sub

[Biagio91]

Ciao patel, grazie mille, funziona tutto alla grande, non sarei mai riuscito da solo...per esempio ancora non sarei stato in grado di usare in questo modo il ciclio for r=5 to 34 con l'If all'interno e poi usare il n=n+1 , next per far girare il tutto...splendido. Il metodo add item non lo conoscevo, mi sto leggendo come funziona.

Grazie mille

Per caso sei riuscito a dare un'occhiata pure al discorso dei pulsanti?
Non dovrei essere troppo distante dalla soluzione (spero)

Grazie mille
Ciao

[patel]

Puoi ottenere il valore selezionato dal combo con
Dlg.getControl("cboID").Text

[Biagio91]

Ciao,
Grazie mille patel, era proprio quello che mi serviva per concludere.

Sono riuscito a fare ciò che mi serviva e ho imparato molto anche questa volta.
Allego il file completo e una breve descrizione nel "Commento file".

Grazie mille ancora.