Funció DESREF en Excel o de com fer TRANSPONER a lo bèstia

 

Càlcul lletra DNI / NIE amb funció en Excel

Una solució eficaç dins www.hojasdecalculoexcel.com

http://www.hojasdecalculoexcel.com/2008/04/calcular-la-letra-del-nif-o-del-dni.html

Sols he afegit la declaració "Dim Lista_de_letras as String" ja que tinc activat el Option Explicit.

Dins un mòdul escrius aquest codi:

Function LetradelNIF(NIF As Long)

'Controlamos que no sea un número mayor de 8 cifras

If NIF = 0 Or NIF > 99999999 Then

letradelNif = "NIF incorrecto"

Else

'Tenemos una constante que contiene las posibles letras que puede tener un NIF

Dim Lista_de_letras as String

Lista_de_letras = "TRWAGMYFPDXBNJZSQVHLCKE"

'Cogemos el NIF, lo dividimos entre 23 y nos quedamos con el resto. Luego

'al resto le sumamos 1, y obtenemos de la lista de letras, la que corresponda

'con ese número de NIF

letradelNif = Mid(Lista_de_letras, (NIF Mod 23) + 1, 1)

End If

End Function

Pel NIE sols cal canviar la X inicial per 0, la Y per 1 i la Z per 2.