如果整数是重复数,VBA简单测试?

时间:2017-01-18 16:53:50

标签: vba

我有一个整数我想测试它是否是一个重复的数字,即
999个
9999
99999个

用于整数的输入值范围是任何三到五位数字,有时这个数字可能都是9。除了使用多个OR语句之外,我想知道是否有更“优雅”的方法来测试它?

2 个答案:

答案 0 :(得分:2)

像这样file = open("Verbs.txt", "r") data = str(file.read()) table = eval(data) num_table = len(table) new_table = [] for x in range(0, num_table): newstr = table[x].replace(")", "") split = newstr.rsplit("(") numx = len(split) for y in range(0, numx): split[y] = split[y].split(",", 1)[0] new_table.append(split[y]) num_new_table = len(new_table) for z in range(0, num_new_table): print(new_table[z])

答案 1 :(得分:-1)

这是一个简短的小例子,可以帮助您入门。这个vba代码检查它是否是你的重复号码之一(999,9999,99999),如果它是你的重复号码之一,则会打个消息框。

Sub Test()

    Dim MyVal As Long
    MyVal = Range("A1").Value

    If MyVal = 999 Or MyVal = 9999 Or MyVal = 99999 Then
        MsgBox "Integer is a repeating number."
    Else
        MsgBox "Integer is not a repeating number."
    End If

End Sub