Início / computer / Perguntas / 1803445
Accepted
snollygoster
Asked: 2023-08-10 20:30:21 +0800 CST

Como editar o seguinte código VBA?

  • 772

Eu pedi em outro fórum para modificar um código VBA, um cara chamado « Harun24hr » me ajudou com um código (muito obrigado a ele), mas não consegui fazer com o segundo.

O código calcula a chave de um número de conta bancária, mas quero modificá-lo para que o código pegue 10 números da direita para calcular a chave correspondente.

Por exemplo, se o número for: 6465981, o código levará tudo em consideração, pois tem 7 números. Se o número for 007999990006465981, será necessário 0006465981 para calcular a chave.

O código é:

Public Function RIP(Cle_RIP As String) As String

If Cle_RIP = "" Then
   Cle_RIP = 0
End If

RIP = Cle_RIP * 100
RIP = RIP - 97 * Int(RIP / 97)
RIP = RIP + 85

If RIP < 97 Then
   RIP = RIP + 97
Else
   RIP = RIP
End If

RIP = RIP - 97
RIP = 97 - RIP

If RIP < 10 Then
   RIP = "0" & RIP
Else
   RIP = RIP
End If
End Function
vba

1 respostas

  1. Best Answer

    Você pode usar a Rightfunção para obter a parte mais à direita de uma string, então...

    Public Function RIP(Cle_RIP As String) As String

    Cle_RIP = Right(Cle_RIP, 10)

    If Cle_RIP = "" Then
       Cle_RIP = 0
    End If

'.....rest of your code
    • 3

relate perguntas