Excel VBAエラーオーバーフロー

Question

私は梱包問題3Dを解決するプログラムを持っています。私はデータの唯一の100行でプログラムを実行すると私のコードは動作しますが、私はすべてのデータを使用するとき、私はエラーがあります。ここでは

Run-time error '6':

Overflow

は私のコードです：

If rotationtype = 2 Then 
    Do While Worksheets(6).Cells(xrow, xcolumn).Value <> "" 
     ' 0,1 > inputan 
     If Worksheets(6).Cells(xrow, xcolumn).Offset(0, 1).Value > Worksheets(6).Cells(xrow, xcolumn).Value Then 
      Worksheets(6).Cells(xrow, xcolumn).Offset(0, 3).Value = Worksheets(6).Cells(xrow, xcolumn).Offset(0, 1).Value 
      Worksheets(6).Cells(xrow, xcolumn).Offset(0, 4).Value = Worksheets(6).Cells(xrow, xcolumn).Value 
      Worksheets(6).Cells(xrow, xcolumn).Offset(0, 5).Value = Worksheets(6).Cells(xrow, xcolumn).Offset(0, 2).Value 
     Else ' 0,1 < inputan 
      Worksheets(6).Cells(xrow, xcolumn).Offset(0, 3).Value = Worksheets(6).Cells(xrow, xcolumn).Value 
      Worksheets(6).Cells(xrow, xcolumn).Offset(0, 4).Value = Worksheets(6).Cells(xrow, xcolumn).Offset(0, 1).Value 
      Worksheets(6).Cells(xrow, xcolumn).Offset(0, 5).Value = Worksheets(6).Cells(xrow, xcolumn).Offset(0, 2).Value 
     End If 
     xrow = xrow + 1 
    Loop 
    Toplamkutusayisi = xrow - 2 
    xrow = 2 
Else 

どのようにC：私は、データの49606行を持っている

私はこのエラーを避ける？

Answer 1

変数を宣言しましたか？ xrowと整数オーバーフローのようなSoudns。

ちょうどあなたの手順の冒頭で

Dim xrow as long 

を追加します。

Answer 2

エラーから、私は問題がWorksheets(6)部分にあると仮定します。

ワークシートは7枚ありますか？覚えておきます：カウントは0から始まります！ 1ではない！

このような場合は、7ではなく6のへのインデックス変更：中

Worksheets(7).Cells(xrow, xcolumn).Value