Saltar al contenido

Ayuda con TREEVIEW


Recommended Posts

publicado

Hola a todos, he mirado en varios sitios, incluido aquí pero no consigo aclararme para poder crearlo, por eso os pido ayuda con esto.

Necesito crear un treeview con los datos que adjunto en el archivo, tambien si es posible si conoceis de algun tutorial donde lo explique con mucha claridad ya que tengo que crear otro treeview pero con más cosas.

Espero vuestra ayuda.

Gracias  

vademecum.xlsm

publicado

Hola @Marcos14, te dejo el adjunto.

Del control básicamente lo que debes saber es que se basa en jerarquías, utilizamos llaves para categorizar cada elemento  ejemplo:

'Creamos categorias principales

Me.TreeView1.Nodes.Add Key:="llave1", Text:="Elemento1"
Me.TreeView1.Nodes.Add Key:="llave2", Text:="Elemento2"

Aquí las llaves son "llave1" y "llave2", ahora si queremos agregar Subcategorias utilizamos esas llaves como relación:

Me.TreeView1.Nodes.Add "llave1", tvwChild, "E1", Text:="Estoy dentro de ELEMENTO1"

Me.TreeView1.Nodes.Add "llave2", tvwChild, "E2", Text:="Estoy dentro de ELEMENTO2"

Fíjate que la linea de código es diferente a la de arriba, aquí "llave1" y "llave2" se utilizan para indicar a que "Elemento" va a pertenecer y donde coloco "E1" y "E2" estas son las llaves de estas nuevas lineas

Por el momento queda así:

image.png.e95b2d9cc110e0abc69b5aee0f376280.png

Si necesitas una 2 subcategoria tendrías que copiar las misma linea anterior pero utilizando las llaves "E1" o "E2"

 Me.TreeView1.Nodes.Add "E1", tvwChild, "H1", Text:="Otra SubCategoria"

image.png.d1daa4defa2e5e5522ba0723e010378f.png

Ahora en mi ejemplo utilizo un ciclo for para poder cargar los datos, analiza el código y cualquier duda aqui estamos.

Saludos.

vademecum.xlsm

publicado
Hace 2 minutos , AlexanderS dijo:

Hola @Marcos14, te dejo el adjunto.

Del control básicamente lo que debes saber es que se basa en jerarquías, utilizamos llaves para categorizar cada elemento  ejemplo:


'Creamos categorias principales

Me.TreeView1.Nodes.Add Key:="llave1", Text:="Elemento1"
Me.TreeView1.Nodes.Add Key:="llave2", Text:="Elemento2"

Aquí las llaves son "llave1" y "llave2", ahora si queremos agregar Subcategorias utilizamos esas llaves como relación:


Me.TreeView1.Nodes.Add "llave1", tvwChild, "E1", Text:="Estoy dentro de ELEMENTO1"

Me.TreeView1.Nodes.Add "llave2", tvwChild, "E2", Text:="Estoy dentro de ELEMENTO2"

Fíjate que la linea de código es diferente a la de arriba, aquí "llave1" y "llave2" se utilizan para indicar a que "Elemento" va a pertenecer y donde coloco "E1" y "E2" estas son las llaves de estas nuevas lineas

Por el momento queda así:

image.png.e95b2d9cc110e0abc69b5aee0f376280.png

Si necesitas una 2 subcategoria tendrías que copiar las misma linea anterior pero utilizando las llaves "E1" o "E2"


 Me.TreeView1.Nodes.Add "E1", tvwChild, "H1", Text:="Otra SubCategoria"

image.png.d1daa4defa2e5e5522ba0723e010378f.png

Ahora en mi ejemplo utilizo un ciclo for para poder cargar los datos, analiza el código y cualquier duda aqui estamos.

Saludos.

vademecum.xlsm 25.61 kB · 0 descargas

Gracias @AlexanderS por tu pronta respuesta y explicacion aun mas clara voy a mirarlo y cualquier duda te comento

publicado

@AlexanderS tengo un par de preguntas, dentro del código que quiere decir H y la e

Private Sub UserForm_Initialize()
    Dim cel         As Range, llave As String
    
    For Each cel In Range("B5", [B5].End(xlDown))
        
        If cel.Offset(, -1) <> "" Then
            llave = "H" & cel.Row
            Me.TreeView1.Nodes.Add Key:=llave, Text:=cel.Offset(, -1)
        End If
        
        Me.TreeView1.Nodes.Add llave, tvwChild, "e" & cel.Row, Text:=cel
        
    Next
    
End Sub

 

publicado

@Marcos14, para crear las llaves es necesario incluir texto no pueden ser simplemente números, por lo cual incluí una letra antes. La "H" pertenece a las categorías principales y la "E" a las subcategorias.

Y por son "H" y "E" simplemente por que fue lo primero que se me ocurrió pudo haber sido cualquier otra letra o palabra.

Saludos 

publicado
Hace 8 minutos , AlexanderS dijo:

@Marcos14, para crear las llaves es necesario incluir texto no pueden ser simplemente números, por lo cual incluí una letra antes. La "H" pertenece a las categorías principales y la "E" a las subcategorias.

Y por son "H" y "E" simplemente por que fue lo primero que se me ocurrió pudo haber sido cualquier otra letra o palabra.

Saludos 

@AlexanderS entonces si quiero cargar una segunda subcategoria, he de incluir otra letra y otra variable?

publicado
Hace 7 minutos , Marcos14 dijo:

@AlexanderS entonces si quiero cargar una segunda subcategoria, he de incluir otra letra y otra variable?

Correcto solo que ahora la llave de relación seria "e" & cel.Row

Por ejemplo

Me.TreeView1.Nodes.Add "e" & cel.Row, tvwChild, "R" & cel.Row, Text:=cel

También no se si lo tenias claro, el porque uso cel.row, pero por las dudas es porque las llaves deben ser siempre únicas entonces como los números de las filas  no se van a repetir los utilizo con esa instrucción, con lo cual por ejemplo la llave de la RITALINA es "E7" ya que se encuentra en la celda #7 y le estoy colocando una "e" al principio.

Espero no confundirte mucho con mis explicaciones.

Saludos. 

publicado
Hace 27 minutos , AlexanderS dijo:

Correcto solo que ahora la llave de relación seria "e" & cel.Row

Por ejemplo

Me.TreeView1.Nodes.Add "e" & cel.Row, tvwChild, "R" & cel.Row, Text:=cel

También no se si lo tenias claro, el porque uso cel.row, pero por las dudas es porque las llaves deben ser siempre únicas entonces como los números de las filas  no se van a repetir los utilizo con esa instrucción, con lo cual por ejemplo la llave de la RITALINA es "E7" ya que se encuentra en la celda #7 y le estoy colocando una "e" al principio.

Espero no confundirte mucho con mis explicaciones.

Saludos. 

Lo siento @AlexanderS si te estoy molestando mucho, lo estoy intentando hacer pero no se en que me equivoco, te adjunto el archivo

estudio.xlsm

publicado
Hace 33 minutos , Marcos14 dijo:

Lo siento @AlexanderS si te estoy molestando mucho, lo estoy intentando hacer pero no se en que me equivoco, te adjunto el archivo

No hay problema, es un gusto poder ser de ayuda.

Ahora bien hay un problema con el código, el ciclo for, ya que tienes espacios en blanco entre tus filas y la columna C no es capas de determinar la ultima fila con datos puesto que esta en la columna B, hay que usar otro truco para determinar la ultima fila con datos.

Después cada una de las jerarquías o categorías deben ser evaluadas por separado.

Mira el código, creo que esta mas claro ahora, incluso podrías intentar agregar una categoría mas para practicar.

Comentas Saludos.

 

estudio.xlsm

publicado
Hace 7 minutos , AlexanderS dijo:

No hay problema, es un gusto poder ser de ayuda.

Ahora bien hay un problema con el código, el ciclo for, ya que tienes espacios en blanco entre tus filas y la columna C no es capas de determinar la ultima fila con datos puesto que esta en la columna B, hay que usar otro truco para determinar la ultima fila con datos.

Después cada una de las jerarquías o categorías deben ser evaluadas por separado.

Mira el código, creo que esta mas claro ahora, incluso podrías intentar agregar una categoría mas para practicar.

Comentas Saludos.

 

estudio.xlsm 21.84 kB · 0 descargas

@AlexanderS muchas gracias ahora lo entiendo mucho mejor, repito gracias por tu paciencia y explicación, por mi tema concluido 

publicado
Hace 5 minutos , Marcos14 dijo:

@AlexanderS muchas gracias ahora lo entiendo mucho mejor, repito gracias por tu paciencia y explicación, por mi tema concluido 

Con gusto!! cualquier otra consulta, no dudes en preguntar.

Saludos

publicado
En 23/6/2020 at 16:53 , AlexanderS dijo:

Con gusto!! cualquier otra consulta, no dudes en preguntar.

Saludos

@AlexanderS me ha surgido una duda como se pasaría un item seleccionado de un TREEVIEW a un TEXTBOX 

publicado

@Marcos14, para trabajar con los Ítems dentro de un Treeview se utilizan el evento NodeClick, él detectará cuando demos click sobre uno de los ítems. Ejem:

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Me.TextBox1 = Node.Text

End Sub

Intenta colocar dentro de ese evento node. después de el punto el IDE de VBA te dará sugerencias sobre las instrucciones que puedes utilizar.

Saludos.

publicado
Hace 6 horas, AlexanderS dijo:

@Marcos14, para trabajar con los Ítems dentro de un Treeview se utilizan el evento NodeClick, él detectará cuando demos click sobre uno de los ítems. Ejem:


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Me.TextBox1 = Node.Text

End Sub

Intenta colocar dentro de ese evento node. después de el punto el IDE de VBA te dará sugerencias sobre las instrucciones que puedes utilizar.

Saludos.

Gracias @AlexanderS funciona perfectamente, por cierto gracias a tu explicación estoy con otro treenview con mas nodos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    3    1

  • Crear macros Excel

  • Mensajes

    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click()     If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1     Else        Hoja58.Range("B5").Value = 1     End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else        Hoja59.Range("B5").Value = 1     End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00 Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad cuando introduzco texto en los TextBox 5, 6 y 7 y dicho texto es mas largo que el ancho de los Texbox el texto se copia en una misma línea lo que dificulta verificar la redacción, así como visualizar cualquier error por lo cual necesito me ayuden con una macro que justifique el texto dentro de los Textbox, he probado usar la función Multiline sin obtener el resultado esperado. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad utilizo los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se aplique desde la Fila 5 en adelante. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para que la fecha aparezca en el Textbox2: Private Sub UserForm_activate() Me.TextBox2.Value = VBA.Date End Sub Sin embargo, una vez guardo los datos la fecha cambia de formato y se guarda en formato mm/dd/yyyy en vez de dd/mm/yyyy y este cambio de fecha me distorsiona los resultados de las fórmulas en las Columnas J en las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • ¡Hola! Después de un buen tiempo ausente...  @Gabriela hg ya que veo que tienes Excel 365, te dejo mi solución para piezas y gramos.   Extraer piezas - gramos 365_GP.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.