我试图分解文本框字符串(序列号)并从初始文本框值开始,然后在 For 循环中将其增加 1。我不知道如何从文本框中的第一个字符串开始,然后将其增加 1,直到循环结束。
For i = j To countForms
If incSerialCheck = True Then 'Checkbox on userform to increment entered serial number
serialNum = serialNumber.Value
lastThree = Right(serialNum, 3)
LastThreeInt = CInt(lastThree)
LastThreePlusOne = LastThreeInt + 1
LastThreePlusOneStr = CStr(LastThreePlusOne)
NewSerialNumStr = Left(serialNum, Len(serialNum) - 3) & LastThreePlusOneStr
Else
NewSerialNumStr = serialNumber.Value
End If
Next i
您的代码即将完成。
' serialNum = serialNumber.Value
serialNum = "9875643"
lastThree = Right(serialNum, 3)
LastThreeInt = CInt(lastThree)
LastThreePlusOne = LastThreeInt + 1
LastThreePlusOneStr = Right(CStr(LastThreePlusOne), 3)
NewSerialNumStr = Left(serialNum, Len(serialNum) - 3) & LastThreePlusOneStr