| | Post: 34 | Registrato il: 05/06/2002
| Città: TORRE DEL GRECO | Età: 64 | Utente Junior | 2010 | | OFFLINE | |
|
  21/03/2020 19:38 | |
Buonasera a tutti anche se questo periodo nero che stiamo pasando per questo virus del ca....o che speriamo muoia presto e si tolga etc.etc. sono qui a chiedervi come sempre il vostro sostenziale aiuto che date sempre con la vostra cortese disponibilità vi allego un file per meglio farvi capire in realta non è un mio lavoro ma l'ho reperito in rete ed ho fatto qualche modifica l'unica cosa che non riesco a visualizzare nella listbox è il tempo anche se nel codice ho impostato le variabili come Dim As time mi aiutereste a modificare il codice e far visualizzare nella listbox esattamente il tempo hh.mm. grazie |
|
| | Post: 753 | Registrato il: 02/08/2015
| Utente Senior | Excel 2013 | | OFFLINE |
|
| 21/03/2020 21:11 | |
henrygioia, 21/03/2020 19:38:
... anche se nel codice ho impostato le variabili come Dim As time ...
Ciao,
hai dichiarato le variabili come TimelineState, che è un'altra cosa (e sono oggetti, non valori).
Ti riallego la parte di codice interessata:
Private Sub mCaricaListBox(ByVal sRicerca As String)
'dichiaro le variabili
Dim c As Range
Dim lCont As Long
Dim lng As Long
Dim d1 As Double ' TimelineState
Dim d2 As Double ' TimelineState
Dim d3 As Double ' TimelineState
Dim d4 As Double ' TimelineState
'valorizzo la variabile
lCont = 0
With Me.ListBox1
'pulisto la ListBox
.Clear
'carico la ListBox
For Each c In rng
'se il valore della cella
'è uguale a quello di ricerca
If c.Value = sRicerca Then
'aggiungo una riga alla
'ListBox e le passo i
'valori delle celle
.AddItem
.List(lCont, 0) = c.Value
.List(lCont, 1) = Format(c.Offset(0, 1).Value, "hh:mm")
.List(lCont, 2) = Format(c.Offset(0, 2).Value, "hh:mm")
.List(lCont, 3) = Format(c.Offset(0, 3).Value, "hh:mm")
.List(lCont, 4) = c.Offset(0, 4).Value
lCont = lCont + 1
End If
Next
'eseguo le somme colonna per colonna
For lng = 0 To Me.ListBox1.ListCount - 1
d3 = d3 + TimeValue(Me.ListBox1.List(lng, 3))
Next
'aggiungo la riga con i separatori
.AddItem
.List(.ListCount - 1, 0) = ""
.List(.ListCount - 1, 3) = "----"
'aggiungo la riga con i totali
.AddItem
.List(.ListCount - 1, 0) = "Totale"
.List(.ListCount - 1, 3) = Format(d3, "hh:mm")
End With
'Set a Nothing delle variabili oggetto
Set c = Nothing
End Sub
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare." |
| | Post: 34 | Registrato il: 05/06/2002
| Città: TORRE DEL GRECO | Età: 64 | Utente Junior | 2010 | | OFFLINE | |
|
| 22/03/2020 11:42 | |
Userform con somma in listbox Prima di tutto voglio ringraziarti per la splendida soluzione ma purtroppo i miei limiti mi costringono a chiederti di nuovo aiuto nel file che ti ho allegato c'è un'altra colonna nella listbox che sarebbe il tipo di permesso preso come vedi sono riuscito a farlo comparire nella listbox grazie al tuo sorgente nel codice adesso però sorge un problema la selezione della matricola purtroppo mi visualizza tutti i tipi di permesso mentre dovrei poter filtrare oltre alla matricola anche il tipo di permesso ho cercato di farlo ma non cisono riuscito ancora i permessi devono essere sempre scaricati da ore fisse ossia 18 ore annue e vorrei sempre se è possibile al totale ore fatte per quel permesso avere un sorta di warning quando si raggiunge la quota di 18 ore grazie come sempre |
| | Post: 754 | Registrato il: 02/08/2015
| Utente Senior | Excel 2013 | | OFFLINE |
|
| 22/03/2020 13:57 | |
Ciao,
questo è un problema completamente differente rispetto al "tema" della discussione.
Apri una nuova discussione (con un titolo adeguato) per questo nuovo "inghippo". ![[SM=g27822]](https://im0.freeforumzone.it/up/0/22/4980138.gif)
Ciao
Tore
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare." |
|
|
|
|