Corso VBA Excel ITA - 65 - Userform e controlli (listbox parte 1)

[@raffaelesala992]

Ciao Nicola, ho una domanda sulla formattazione del contenuto di una listBox: Carico i dati, formattati correttamente, da una Tabella Excel, mi vengono riportati nella listBox senza formattazione, faccio una qualsiasi operazione dalla listBox tipo Cancella, aggiungi o modifica e quando la ricarica la presenta con i dati correttamente formattati.......non capisco. Di seguito le routine Private Sub UserForm_Initialize() Sheets("Supp_Base_Production").Activate carica_Shotc lstShotc.ColumnCount = 34 lstShotc.ColumnWidths = "139,95;0;0;0;0;0;35;40;38;38;40;23;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0" cmdModificaShot.Enabled = False cmdCancellaShot.Enabled = False End Sub Sub carica_Shotc() Dim matrice_0() As Variant ReDim matrice_0(33) As Variant matrice_0 = Range("B6:AH25") lstShotc.List = matrice_0 End Sub Sub compila_lista_Shotc() lstShotc.AddItem lstShotc.List(lstShotc.ListCount - 1, 0) = Cells(r, 2) lstShotc.List(lstShotc.ListCount - 1, 6) = Format(Cells(r, 8), "0.00") lstShotc.List(lstShotc.ListCount - 1, 7) = Format(Cells(r, 9), "0.00") lstShotc.List(lstShotc.ListCount - 1, 8) = Format(Cells(r, 10), "0.00") lstShotc.List(lstShotc.ListCount - 1, 9) = Format(Cells(r, 11), "#,##0.0") lstShotc.List(lstShotc.ListCount - 1, 10) = Format(Cells(r, 12), "#,##0.0") lstShotc.List(lstShotc.ListCount - 1, 11) = Format(Cells(r, 13), "0.00%") End Sub Dove sbaglio?? Grazie, Raffaele

[@NickTheGeek]

Ciao Raffaele, nel codice non vedo il punto da cui viene chiamata la sub compila_lista_Shotc; inoltre, con che istruzioni (ad esempio) cancelli una riga dalla listbox?

[@raffaelesala992]

@@NickTheGeek sì esatto, seleziono una riga e la cancello, al refresh della listbox si formattano i numeri....

[@NickTheGeek]

Ok risolto via email.

[@marcoperrotta9619]

Ciao Nick. Ormai non ti mollo un attimo. Ho ascoltato i video sui combobox e sui listbox mentre preparavo la pastiera di grano, quindi potrei essermi perso qualcosa :-) . Ho un paio di domandine. 1) La differenza tra i due è soltanto sul modo in cui appaiono le loro liste (menu a tendina o lista completamente a vista)? 2) Anni fa per la tesi di laurea feci un programmino in Visual Basic e mi sembra di ricordare che esiste un controllo che permette una scelta multipla. Ricordo male? Grazie, ciao, Marco

[@NickTheGeek]

Ciao Marco, la differenza principale risponde a entrambe le domande, e cioè la listbox permette la scelta multipla, mentre la combo no; per farlo, nella listbox modifica la proprietà MultiSelect (0 = selezione singola, 1 = selezione di una nuova voce ad ogni click del mouse, 2 = selezione di più voci anche tenendo premuto Shift per selezionare tutte le voci intermedie tra la prima e la seconda cliccata, come in Windows)

[@alessandrovastalegna3348]

Ciao, grazie per i tuoi video che sono davvero fatti bene. Potresti spiegare come fare una casella di ricerca nella quale scrivere una parte della stringa da cercare?.. in poche parole quello che si fa normalmente mettendo gli asterischi... per avere una ricerca più dinamica e ottimizzata in un foglio. grazie!

[@NickTheGeek]

Ciao, grazie a te per il commento. Per fare quello che chiedi devi usare la funzione INSTR (la trovi nel video 14), scrivendo codice che, al clic sul pulsante, faccia un ciclo tra tutte le celle che vuoi verificare e decidere poi cosa fare se trova la stringa. Ad esempio, supponendo che le celle da verificare siano quelle della colonna A: Private Sub CommandButton1_Click() ultima_riga = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To ultima_riga If InStr(Cells(i, 1), TextBox1.Value) Then MsgBox ("Testo trovato alla riga " & i) End If Next i End Sub In pratica all'inizio verifica qual è l'ultima riga scritta nella colonna A, quindi il ciclo va dalla riga 1 all'ultima riga. Poi verifica con INSTR se il contenuto della textbox1 è presente nella cella; se lo trova, allora mostra una message box. Il codice da scrivere all'interno della IF dipende da cosa vuoi fare esattamente quando la subroutine trova la stringa; ad esempio potresti voler evidenziare tutte le celle che contengono la stringa; in questo caso, all'interno della IF il codice (al posto della message box) dovrebbe essere: Cells(i, 1).Interior.Color = RGB(100, 240, 100) Fammi sapere

[@ciroliuzzi4072]

Stimatissimo Nick, seguo con molto interesse i suoi tutorial sulla programmazione VBA per excel e a tale proposito le chiedo se può fornire maggiori chiarimenti sulle userform multi pagine grazie alle quali si inseriscono maggiori informazioni in un'unica userfor. Questa richiesta ansce dalla necessità di avere una userform per popolare record con molte colonne. La ringrazio anticipatamente e con l’occasione la saluto. Ciro Liuzzi.

[@NickTheGeek]

Buonasera Ciro, vedi se ti può essere utile il video 76 di questa stessa playlist; più di quello non farò sulle pagine in una userform.

[@ciroliuzzi4072]

@@NickTheGeek ho già visto questo video. Le userform a cui mi sono riferito sono quelle con n linguette nella stessa userform per i servire più campi in una sola userform

[@NickTheGeek]

è proprio nel video 76 che ne parlo, ci sono 3 linguette con campi diversi

[@ciroliuzzi4072]

la useform alla quale mi riferisco è quella che potrà vedere nel video che collegato al seguente indirizzo: kzbin.info/www/bejne/h3qnaaSJpNpjoLM (Excel VBA: Using the MultiPage Control in your Userforms)

[@NickTheGeek]

Sì è proprio il controllo che mostro nel video 76, infatti se guardi il nome del controllo è Multipage sia nel mio video sia in quello che mi hai linkato.

[@matteogentilcore7262]

Ciao nik. Potresti fare un video o una serie su come usare le api e importarle in vba ?

[@NickTheGeek]

Ciao, mi dispiace ma non ho mai usato VBA per interagire con le API

[@matteogentilcore7262]

@@NickTheGeek che peccato.. grazie lo stesso