Si has estudiado VB (visual basic), entra y ayúdame a interpretarlo y te daré 100 puntos.

Gracias

Private Sub Worksheet_Change(ByVal Target As Range)

Si Target.Column lt;gt; 14 o Target.Columns.Count gt 1, entonces salga de SubSi la columna de destino no es igual. a 14 O si el número de columna de destino es mayor que 1, salga

Application.ScreenUpdating = False desactiva la actualización de pantalla

Application.EnableEvents = False desactiva los eventos

Dim nRow, definición de i Las dos variables nrow e i son números enteros

Dim BeginR As Range, EndR As Range define el inicio y el final como rango

nRow = Range("n65536" ).End(xlUp). Row nrow=Número de filas registradas

Establecer BeginR = Range("b2").Offset(0, Range("n2"))

If Me.Shapes.Count gt ; 0 Luego 'Eliminar formas existentes

Me.Shapes.SelectAll

Selection.Delete

End If

Range(" B2: K" & nRow).FillDown

Para i = 3 To nRow '

Establezca EndR = Range("b" & i).Offset(0, Range( "n" amp; i))

'Dibujar líneas

Establecer DrawLine = Me.Shapes.AddLine(BeginR.Left BeginR.Width / 2, _

BeginR.Top BeginR.Height / 2, EndR.Left EndR.Width / 2, _

EndR.Top EndR.Height / 2).Line

Establecer BeginR = EndR

Siguiente

ActiveSheet.DrawingObjects.ShapeRange.Group

Con ActiveSheet.DrawingObjects.ShapeRange.Line

.DashStyle = msoLineSolid< /p >

.Weight = 1.5

.ForeColor.SchemeColor = 12

Terminar con

Application.EnableEvents = True Abrir y cerrar cosas p>

Application.ScreenUpdating = True

Establecer BeginR = N

nada Borrar variable

Establecer EndR = Nada

End Sub