Ver originales (Francés)

Cómo concatenar varios cuadros de texto

Resuelto
coupidon Mensajes publicados 98 Estado Miembro -  
Ant049 Mensajes publicados 157 Estado Miembro -
Hola,

tengo 3 cajas de texto con las que ingreso:
- horas en la primera
- minutos en la segunda
- segundos en la tercera
he elegido esta configuración por estética, en fin

me gustaría hacer un cálculo en VBA en Excel, utilizando la fecha y hora actual con la función

now()

pero ¿cómo puedo concatenar las 3 cajas de texto para permitirme hacer este cálculo?

gracias a quienes puedan ayudarme.....

1 respuesta

  1.
    Ant049 Mensajes publicados 157 Estado Miembro 22
     
    Hola,

    Para concatenar tus textbox: 
    Nomdetavariable = TextBox1.Value & ":" & TextBox2.Value & ":" & TextBox3.Value


    ¿Qué operación quieres realizar?

    --
    Cuando el sabio muestra la luna, el idiota mira el dedo
    0
    1. coupidon Mensajes publicados 98 Estado Miembro 1
       
      Quiero utilizar la fecha de hoy con now() en esta fecha, normalmente hay la fecha, el día, el año y las horas, minutos, segundos.

      Quiero en tres textbox ingresar las horas en uno, los minutos en otro y los segundos en el último
      y con eso deseo hacer el cálculo de los tres textbox junto con el now() del momento y que sume esas horas, ¿entiendes?

      Un ejemplo:
      textbox1: 5 horas
      textbox2: 20 minutos
      textbox3: 41 segundos

      Digamos que ahora "now()" estamos en jueves 08 de septiembre de 2016 10:06:06
      que un textbox4, por ejemplo, me muestre el resultado:

      15:26:47

      Eso parece simple en Excel, pero en VBA me cuesta, por eso pensaba en la concatenación.
      0
    2. Ant049 Mensajes publicados 157 Estado Miembro 22
       
      De acuerdo, te he puesto una posibilidad de concatenación en mi primer post.
      Para la suma, tienes que usar la función Time en VBA, que te devolverá la hora con minutos y segundos.
      ¡Ten cuidado con los formatos! Para sumar los dos, tendrás que adaptar el formato, te dejo ver eso y vuelve si te atascas.
      0
      1. coupidon Mensajes publicados 98 Estado Miembro 1 > Ant049 Mensajes publicados 157 Estado Miembro
         
        Buenas noches,

        he probado tu código, y así funciona, pero no logro encontrar cómo usar la función time en este código
        cuando uso la variable H y quiero hacer cálculos, me da errores, así que estoy bloqueado...
        he buscado cursos sobre VBA con la función time, pero con mi concatenación da error.
        no sé si se reconoce como una hora, así que puedo hacer el cálculo.


        Private Sub TextBox10_AfterUpdate()


        Dim H As String
        H = TextBox8.Value & ":" & TextBox9.Value & ":" & TextBox10.Value

        TextBox16.Value = H
        End Sub
        0
    3. coupidon Mensajes publicados 98 Estado Miembro 1
       
      pero sobre este tema han respondido a mis expectativas, así que considero que esta cuestión está resuelta, gracias.
      0
    4. Ant049 Mensajes publicados 157 Estado Miembro 22
       
      Hola,

      Tienes el método para concatenar tus cuadros de texto.
      En cuanto a la suma de los dos horarios:
      - intenta jugar con los formatos: 
      Format( tavaleur, "formato deseado")

      - mira funciones como DateAdd.
      0