作为转换在Excel中使用VBA文字处理负值
在本文中，我们将创建一个自定义函数将负字符串转换为整数。
本文的原始数据由字符串组成，后跟减号（-）。
我们想将这些字符串转换为整数。
逻辑解释
在本文中，我们创建了一个自定义函数ConvertNegNumbers，将字符串转换为整数。此函数以字符串值作为输入，并返回整数作为输出。
代码说明
Right（Var，1）=“-”
上面的代码用于检查字符串的最后一个字符是否等于减号（-）。
ConvertNegNumbers = CInt（“-”＆Left（Var，Len（Var）– 1））
在上面的代码中，left函数用于提取字符串中除最后一个字符以外的所有字符。 CInt函数用于将字符串值转换为整数。
请遵循以下代码
Option Explicit
Function ConvertNegNumbers(Var As String)
'Checking whether last character in the string is minus(-)
If Right(Var, 1) = "-" Then
'Converting string value to negative integer
ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))
Else
'Converting string value to integer
ConvertNegNumbers = CInt(Var)
End If
End Function
如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。
我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]