|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
20-11-2014, 20.54.22 | #1 |
Newbie
Registrato: 21-10-2014
Messaggi: 12
|
list box
Ho creato un user form con una listbox1 che si riempie prendendo i dati da un'altro foglio posizionato in Hrova pi\tag pi.xls e qui va tutto bene solo che oltre riempire il listbox mi apre il file e a me non deve aprirsi. IL secondo problema come faccio richiamare dalla listbox1 la sola prima colonna con doppio clik saluti Pierpaolo allego file |
20-11-2014, 23.50.42 | #2 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: list box
Io metterei il codice per caricare il Listbox nell'evento initialize della form.
per esempio in questo modo: Codice:
Private Sub UserForm_Initialize() Dim Uriga As Long, elem As Variant Application.ScreenUpdating = False Set wk = Workbooks.Open(Filename:="C:\Prove\List.xlsm") Set sh = wk.Worksheets("Foglio1") Uriga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row Application.Windows(wk.Name).Visible = False Set colA = New Collection With sh Uriga = .Range("A" & .Rows.Count).End(xlUp).Row Set Rng = .Range("A1:A" & Uriga) For Each C In Rng colA.Add C.Value Next End With With Me.ListBox1 For Each elem In colA .AddItem elem Next End With wk.Close Set sh = Nothing Set wk = Nothing End Sub
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
21-11-2014, 16.51.11 | #3 |
Newbie
Registrato: 21-10-2014
Messaggi: 12
|
Rif: list box
Prima di tutto Grazie per la Vs disponibilità
IL listato funziona carica la list box e chiude il foglio da dove prende i dati. l'unica cosa che non riesco a caricare le altre due colonne B e C dove e ubicata la descrizione del punto e la categoria. Il clik sulla list box serve a prendere il codice " colonna A" della riga selezionata e inserirlo in unt texbox saluti Pier |
21-11-2014, 23.24.35 | #4 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: list box
devi caricare il TextBox al click sul Listbox, per cui il codice va nell'evento click del listbox.
quando clicchi sul listbox la voce presente nella colonna A viene inserita nel textbox il pulsante l'ho usato per chiudere la form. Il codice è questo Codice:
Private Sub CommandButton1_Click() Unload Me End Sub Private Sub ListBox1_Click() posiz = ListBox1.ListIndex + 1 h = ListBox1.List(posiz - 1, 0) TextBox1.Text = h End Sub Private Sub UserForm_Initialize() Dim Uriga As Long, conta As Long, indice As Long Application.ScreenUpdating = False Set wk = Workbooks.Open(Filename:="C:\Prove\Cartel1.xlsx") Set sh = wk.Worksheets("Foglio1") Uriga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row Application.Windows(wk.Name).Visible = False Uriga = sh.Range("A" & Rows.Count).End(xlUp).Row With Me.ListBox1 conta = 0 .ColumnCount = 3 For indice = 1 To Uriga .AddItem .List(conta, 0) = sh.Range("A" & indice).Value .List(conta, 1) = sh.Range("B" & indice).Value .List(conta, 2) = sh.Range("C" & indice).Value conta = conta + 1 Next End With wk.Close Set sh = Nothing Set wk = Nothing End Sub
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
22-11-2014, 09.36.11 | #5 |
Newbie
Registrato: 21-10-2014
Messaggi: 12
|
Rif: list box
grazie Alessandra
Funziona tutto, io per caricare texbox1 avevo usato il listato qui sotto Private Sub ListBox1_Click() With Me .TextBox1.Text = .ListBox1.List(.ListBox1.ListIndex, 0) .TextBox2.Text = .ListBox1.List(.ListBox1.ListIndex, 1) End With End Sub |
22-11-2014, 22.41.25 | #6 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: list box
va bene lo stesso, io ho abbreviato con una variabile
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
Task List Guru 4.0181 | WinTricks | News SOFTWARE | 0 | 12-06-2014 08.20.14 |
Task List Guru 3.064 | WinTricks | News SOFTWARE | 2 | 21-12-2013 07.55.08 |
Ampiezza di banda calo drastico con Mac Address List | franky | Internet e Reti locali | 5 | 24-01-2006 19.15.26 |
Spyware Block List File | Gervy | Sicurezza&Privacy | 4 | 29-06-2005 12.22.20 |
1)RISOLUZIONE PROBLEMA ALGORITMO IN C | caralu | Programmazione | 13 | 06-10-2004 11.35.40 |