Para los fanáticos de las macros aquí les dejo esta función para calcular el dígito verificador, lo mismo pero más barato.
Function NSS(Numero As String)
If Len(Numero) < 10 Then 'Si tiene menos de 10 dígitos
NSS = "Faltan Dígitos " & Numero 'Pone un mensaje seguido del número
Exit Function 'y termina la función
End If
If Len(Numero) > 11 Then 'si tiene más de 11 dígitos
NSS = "Muchos Dígitos " & Numero 'pone un mensaje seguido del número
Exit Function 'y termina la función
End If
Dim i As Integer 'para cada dígito
Dim j As Integer 'para la suma
Dim k As Integer 'trabajo temporal
For i = 1 To 10 'para cada digito, hasta la posición 10
k = Val(Mid(Numero, i, 1)) 'convierte a valor
If (i Mod 2) = 0 Then 'si la posición del dígito es par (el operador '= 1' define inpar)
k = k * 2
If k > 9 Then 'si el resultado es mayo a 9
k = k - 10 'se suma el primer dígito
k = k + 1 'con el primer dígito
End If
End If
j = j + k
Next i
Digito = Application.WorksheetFunction.RoundUp(j, -1) - j 'al resultado le restamos la decena más alta y obtenemos el dígito
If Len(Numero) = 10 Then 'si tiene 10 dígitos
NSS = Mid(Numero, 1, 10) & Digito 'agrega el numero más el dígito
End If
If Len(Numero) = 11 And Digito = Val(Right(Numero, 1)) Then 'si tiene 11 dígitos y el último es igual al calculado
NSS = Numero 'deja el numero igual
ElseIf Len(Numero) = 11 And Digito <> Val(Mid(Numero, 11, 1)) Then 'si tiene 11 dígitos y el último no es igual al calculado
'aparece un mensaje
msg = MsgBox("El Dígito verificador " & Mid(Numero, 11, 1) & " del Número de Seguridad Social '" & Mid(Numero, 1, 10) & "' no corresponde a " & Digito & "." & Chr(13) & "¿Desea cambiarlo?", vbYesNo + vbQuestion, "Dígito Verificador" )
If msg = vbYes Then 'si elije YES a cambiar el dígito
NSS = Mid(Numero, 1, 10) & Digito 'pone el numero con el digito calculado
Else 'si no
NSS = Mid(Numero, 1, 10) & "?" 'pone el número con un signo en lugar del dígito
End If
End If
End Function
solo pondrian en la ceda =NSS(B1) ó =NSS(10 digitos del Número)
considerando que la celda A2 es donde están los 10 dígitos del número
« Antes de que los reinos cambien, los hombres deberán cambiar »
