主页 / computer / 问题 / 1803445
Accepted
snollygoster
Asked: 2023-08-10 20:30:21 +0800 CST

如何编辑以下VBA代码？

  • 772

我在另一个论坛上请求修改 VBA 代码，一个名叫“Harun24hr”的人帮我修改了一个代码（非常感谢他），但我没能完成第二个代码。

该代码计算银行帐号的密钥，但我想对其进行修改，以便代码从右侧取 10 个数字来计算相应的密钥。

例如，如果号码是：6465981，则代码将全部考虑在内，因为它有 7 个数字长。如果数字是007999990006465981，则需要0006465981来计算密钥。

代码是：

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 个回答

  1. Best Answer

    您可以使用该Right函数来获取字符串的最右边部分，所以...

    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

相关问题