运行时错误'6'溢出

Question

我不知道为什么，但是在弹出窗口输入某个ID号时出现运行时错误：3038776336。我已经尝试将变量从字符串更改为Long，但这不起作用。我还缺少什么？

<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css">
<script src="https://code.jquery.com/jquery-2.1.1.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"></script>


<section id="about">
    <div class="container">
        <div class="row">
            <div class="col-xs-4 col-xs-offset-6">
                <h2 class="section-heading">Some Header</h2>
            </div>
        </div>
        <div class="row alignBottom">
            <div class="col-xs-5 col-xs-offset-1">
                <p>Some content</p>
            </div>
            <div class="col-xs-5 col-xs-offset-1">
                <p>Some more content</p>
            </div>
        </div>
    </div>
</section>

Answer 1

1. dim ID为double
2. 从“If Cells（Cont，10）= CLng（ID）Then”
中删除CLng

Answer 2

运行时错误6是溢出。您的值大于Long的最大值。根据您的操作，您不需要将值转换为Long。试着把它留作String。

Dim ID As String
ID = InputBox("ID #")
...
If StrComp(Cells(Cont, 10).Text,ID,vbTextCompare) = 0 Then
...