MS Excel 2003: filtre la serie final de números en direcciones de hipervínculo

0

Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.

MS Excel 2003: filtre la serie final de números en direcciones de hipervínculo

Este tutorial de Excel explica cómo escribir una macro para filtrar la serie final de números en una dirección de hipervínculo en Excel 2003 y versiones anteriores (con capturas de pantalla e instrucciones paso a paso).

P: Descargué una tabla de la web que contiene referencias de hipervínculos a Microsoft Excel 2003/XP/2000/97. Necesito filtrar la serie final de números para cada dirección de hipervínculo y colocarlos en una columna como números. ¿Cómo puedo hacer esto?

R: Puede incluir la siguiente función en una hoja de cálculo para filtrar la serie final de números en una dirección con hipervínculo en Excel.

Function FinalNumberSeries(pCell) As Long

   Dim LChar As String
   Dim LLength As Integer
   Dim LStart As Integer
   Dim LExit As Boolean

   LLength = Len(pCell)
   LStart = LLength
   LExit = False

   'Search backwards through the string until a non-numeric
   'character is found
   Do Until LExit = True
      LChar = Mid(pCell, LStart, 1)

      If IsNumeric(LChar) = False Then
         LExit = True
      ElseIf LStart = 1 Then
         LExit = True
      End If

      LStart = LStart - 1
   Loop

   FinalNumberSeries = Mid(pCell, LStart + 2)

End Function

Luego puede hacer referencia a esta nueva función en su hoja de cálculo.

Por ejemplo, en la celda B1 podrías ingresar lo siguiente:

=FinalNumberSeries(A1)
(Visited 1 times, 1 visits today)