Forum Excel VBA

Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic.

calcolo tra label

› Excel e gli applicativi Microsoft Office › calcolo tra label

Login Registrati
Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
  • Autore
    Articoli
  • 08/05/2018 alle 9:42 #4267 Score: 0 | Risposta

    Dodi
    Partecipante
      2 pts
      buon giorno a tutti voi
      esiste un modo per calcolare utilizzando label? o non si può?
      in pratica ho 3 label
      label50
      label47
      label49
       
      ora mi occorrerebbe che nella label 50 mi compaia il risultato.
      Mi spiego
      la label 47 e label 49 si popolano in automatico attingendo dal foglio"gestionale"
      ora quello che mi servirebbe e far fare una sottrazione tra label 47 e label 49
      in pratica 
      label50=label47-label49
       
      ho provato cosi ma niente 
       
      Private Function ToVal1(txt As Object) As Double
       
      ToVal1 = IIf(Len(Trim(txt.Caption)), Val(Replace(Replace(Replace(txt.Caption, ".", ""), ",", "."), "€", "")), 0)
      End Function
      Private Sub Calcolo()
       
           Label50.Caption = ToVal1(Label47) - ToVal1(Label49)
       
      End Sub
      Private Sub label50_Change()
      Calcolo
      End Sub
      Private Sub label49_Change()
      Calcolo
      End Sub
      Private Sub label47_Change()
      Calcolo
      End Sub
       
      in pratica ho provato ad adattare un codice che a sua volta se non ricordo male con la collaborazione di Albatros e Patel mi sistemarono la parte delle migliaia e la formattazione.
       
      qualcuno di voi puo essermi di aiuto?
       
      grazie 
      08/05/2018 alle 15:24 #4272 Score: 0 | Risposta

      oregon
        Veramente te l'avevo suggerito io quel codice (con le textbox).
         
        E funziona anche con le Label.
         
        Fai ATTENZIONE alle virgolette che usi " " " " ... con il copia incolla potrebbero essere sbagliate ... ripassa sulle virgolette correggendole se serve.
        08/05/2018 alle 15:26 #4273 Score: 0 | Risposta

        dodi
          Scusate il disturbo ho risolto in qsto modo
          con un ComandBotton.
          Posto ugualmente la soluzione per tutti coloro che faranno una ricerca nel forum.
          Magari può tornare utile a qualche altro utente.
           
          ho formattato anche se il valore e in negativo il risultato e in Rosso.
           
          Saluti a tutti.
           
          poi se qualcuno vuol suggerirmi anche come risolvere la prima richiesta ringrazio, 
          e apprendo una cosa nuova.
           
           
           
           
           
           
           
           
           
           
          'Codice per calcolo (Residuo Contratto)
           
          Private Sub CommandButton25_Click()
          If Label47.Caption = "" Then
              MsgBox ("Fai doppio Clik su listbox per selezionare un Impresa")
              ListBox1.SetFocus
          Exit Sub
           
          End If
          Label50.Caption = CDbl(Label47.Caption) - CDbl(Label49.Caption)
          Label50 = Format(Label50, "€ #,##0.00")
           
           If CDbl(Label50) < 0 Then
              Label50.ForeColor = &HFF&
          Else
             Label50.ForeColor = &H0&
          End If
          End Sub
        08/05/2018 alle 19:16 #4276 Score: 0 | Risposta

        Dodi
          Ciao Oregon 
          Scusa se mi sono confuso. Si e vero hai ragione 
          Sei stato te a suggerirmi la soluzione a suo tempo. 
          Pardon 
        • Autore
          Articoli
          • Login Registrati
          Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
          Rispondi a: calcolo tra label
          Gli allegati sono permessi solo ad utenti REGISTRATI
          Le tue informazioni: