Excelタイプmistmach 13

-4

私のコードに問題があります。Excelタイプmistmach 13

Sub SumZisk() 
    Dim suma As Integer 

    For i = 1 To 20 
     Set curCell = Cells(i, 3) 
     suma = suma + curCell.Value 
    Next i 


    Range("C21").Value = suma 


End Sub

エラー：すべての答えを入力しmistmach 13

感謝:)

出典

2016-05-20 Dortík

どのラインにエラーがありますか？私の推測では、範囲内のセルの1つには整数は含まれていませんが、範囲に含まれるものが何であるかを言うのに気にしていないので、確かに指示する方法はありません。また、これらの暗黙的に宣言された変数をすべて使用するのではなく、 'Option Explicit'を使うべきです。 –

@JohnColeman行番号：7 –

@Dortíkあなたのナンバリングシステムはあいまいです。私にとって、7行目は 'Next i'行です。また、私たちの修正をまだ試してみましたか？彼らは働いたのですか？一般的には、あなたの回答者に、何が効果的かどうかを知らせる必要があります。 –

それは私のために働きました。 Option Explicitでこれを試してみてください。

Option Explicit 

Sub SumZisk() 

Dim suma As Integer 
Dim i As Integer 
Dim curCell As Range 

For i = 1 To 20 
    Set curCell = Cells(i, 3) 
    suma = suma + curCell.Value 
Next i 

Range("C21").Value = suma 


End Sub

出典

2016-05-20 17:02:27 Brian

'Option Explicit'はうまくいきますが、このコードはおそらくまったく同じ行に全く同じ型エラーを持つでしょう。問題はコードではなく、コードと範囲の相互作用にあります。 –

あなたはCInt（）について正しいです。私は自分の答えを取り除いた。 –

@JohnColemanあなたは 'CInt（）'についてあなたは正しいです。上記のコードは私のために働いた。 – Brian

答えて

関連する問題