You are here:--[RISOLTO] Rosso per orario negativo in textbox
[RISOLTO] Rosso per orario negativo in textbox2019-01-24T11:23:18+02:00

Home Forum Domande su Excel Generale [RISOLTO] Rosso per orario negativo in textbox

  • Autore
    Articoli
  • Avatarlino55
    Partecipante
      Post totali: 8

      Ciao a tutti,  per visualizzare le ore negative in rosso in una textbox  ho usato una macro come da file allegato, dove sbaglio perchè mi viene sempre nero sia valori positivi che negativi. Allego file d’esempio

      http://www.filedropper.com/rosso

      Grazie a chi può aiutarmi. Ciao  :bye:

       

       

       

       

      • Questo argomento è stato modificato 8 mesi, 3 settimane fa da sid sid.
    • BySalvBySalv
      Amministratore del forum
        Post totali: 518

        Ciao Lino55, il tuo problema che hai usato l’evento “Change” del Textbox, quando viene aperta l’userform solo se scrivi direttamente il valore negativo nel Textbox allora diventa Rosso.

        non devi creare l’evento change, ma basta soltanto l’attivazione dell’userform, con la colorazione del testo

        vedi che ti ho anche messo un textbox direttamente nel foglio che compare quando varia la cella “L10”.

        vedi tu quale possa servire

        Ciao By Sal :bye:

        http://www.filedropper.com/rosso_2

      • Avatarlino55
        Partecipante
          Post totali: 8

          Ciao sal,  perdona la mia ignoranza (è solo una domanda per il resto è RISOLTO) ma nella textbox il segno meno   come nella cella “L10” non appare. Non dovrebbe leggere il valore uguale della cella? (ripeto è solo una domanda per capire). Grazie e ciao alla prossima :bye:

        • BySalvBySalv
          Amministratore del forum
            Post totali: 518

            Ciao Lino, non non legge il valore uguale alla cella ma inserisce solamente l’orario, questo perche ogni valore inserito nella Textbox diventa testo, quindi non considera il segno negativo, in quanto il Negativo e la conseguenza del formato applicato alla cella.

            per avere il segno negativo modifica il codice dell’userform in questo modo.

            Private Sub UserForm_Initialize()
             
                Dim tb As Object
                Dim tt
                
                Application.ScreenUpdating = False
                Sheets("Foglio1").Select
                tt = Cells(10, 12)
                If tt < 0 Then
                    TextBox1.ForeColor = &HFF&
                    TextBox1 = Format(tt, "-hh:mm")
                Else
                    TextBox1.ForeColor = &H80000008
                    TextBox1 = Format(tt, "hh:mm")
                End If
            End Sub

            Ciao By Sal :bye:

          • Avatarlino55
            Partecipante
              Post totali: 8

              Ciao sal, grazie OK “risoltissimo” :yahoo:

            Devi essere loggato per rispondere a questa discussione.

            Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

            Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

            Chiudi