麻烦问下怎么对vba监控的品种代码和连续合约代码做比较

旦旦

麻烦问下 我正在学一点vba，需要对vba监控的品种代码和连续合约代码做比较， 用的是 Left(UCase(Code),2) ，像RB05和连续合约代码RB00 还可以用，遇到短的代码如M05 麻烦问下该咋处理

技术008

判断下代码长度，然后做不同的处理

旦旦

麻烦老师能不能帮着打下比较代码，才学习vba 对代码使用都拿不准 非常感谢

技术008

试下，vba编程基础建议用户可以百度下有些内容

旦旦

谢谢老师 用len命令解决了

103907

这个方法也不靠谱，有些品种比如SC2202，是这种格式的。比较合适的方法是把字母和数字分开，独立判断。

旦旦

谢谢提醒，品种代码长度大于3个的我取前2个字母都不重复，对我来说够用了

艳阳天:VBA

Function GetKindCode(sCode)
    GetKindCode = ""
    For i = 1 To Len(sCode)
        If IsNumeric(Mid(sCode, i, 1)) Then
            GetKindCode = Left(sCode, i - 1)
            Exit Function
        End If
    Next
End Function

用这个函数，传入合约代码就可以直接获取品种代码了，比如：传入I09,返回I,传入SRX01,返回SRX,不管你品种代码是几位。
原理：就是逐位判断是否为数字，找到数字，判断其所在位置，然后取前面的部分。

我的微信guotx-,欢迎交流！

旦旦

厉害 谢谢老师