Buongiorno a tutti.
In una form ho una combobox che mi mostra il totale algebrico di tutti gli importi che la compongono. Uso questo codice:
If txtSaldo1.Text < 0 Then txtSaldo1.ForeColor = &HFF&
If txtSaldo1.Text > 0 Then txtSaldo1.ForeColor = &HC000&
La combobox è popolata da importi negativi e positivi attraverso questo codice:
Dim xcol As Collection
Dim v As Variant
Dim lng As Long
Set xcol = New Collection
On Error Resume Next
With xlCartella.Sheets("Foglio2")
For lng = 3 To 452
If .Cells(lng, 40).Value <> 0 Then
xcol.Add .Cells(lng, 40).Value
End If
Next
End With
For Each v In xcol
With Me.txtSaldo1
.AddItem v
End With
Next
Il problema è che se il totale algebrico della combobox è un importo negativo, tutti gli importi che popolano la combobox sono di colore rosso, anche se tra essi ci sono importi positivi. Allo stesso modo, se il totale algebrico della combobox è un importo positivo, tutti gli importi che popolano la combobox sono di colore verde, anche se tra essi ci sono importi negativi. Quello che vorrei è che all’interno della combobox gli importi siano di colore verde se sono positivi, oppure di colore rosso se sono negativi.
Spero di essere stato abbastanza comprensibile.
Grazie