エクセル2019 VBAについて

質問

エクセル2019でVBAを使いコピーペーストの勉強中です、次の箇所(Dim i As integr)で、ユーザー定義型は定義されていませんと指摘されて止まってしまします、Sheet("データ")には3行のデータは入っています、VBA初心者のため、この後が、なかなか前に進めません、どうかよろしくおねがいします。
**********************************
Sub 練習()
Dim s1 As Worksheet: Set s1 = Worksheets("請求書")
Dim s2 As Worksheet: Set s2 = Worksheets("データ")
Dim r1 As Integer: r1 = 18
Dim r2 As Integer: r2 = 2
{ Dim i As integr }
For i = 0 To 2
s1.Range(s1.Cells(r1 + i, 1), s1.Cells(r1 + i, 3)).Value = s2.Range(s2.Cells(r2 + i, 2), s2.Cells(r2 + i, 4)).Value
s1.Cells(r1 + i, 4).Value = s1.sells(r1 + i, 2).Value * s1.Cells(r1 + i, 3).Value
Next
End Sub
***************************************

回答No.2

kkkkkm · ベストアンサー

> Dim r2 As Integer: r2 = 2

と

> { Dim i As integr }

を見比べてみてください。

integrは変だと思います。

「ツール」の「オプション」で「自動メンバー表示」にチェックを入れておくとasを入力した時点で選択肢が出ます。

お礼

本当の初歩で、スペルミスにも気が付かず、助かりましたこれからも精進しますのでよろしくおねがいします。

回答No.1

m3_maki

> Dim r2 As Integer: r2 = 2
> { Dim i As integr }

１行上と見比べてみましょう。

Dim i As Integer
ですね。

補足

本当の初歩のスペルミスで申し訳ありませんでした、これからも精進します。