LibreOffice Calc で、以下のプログラムを組んだのですが、(実行ボタンを押すと、以下のようなエラーがでてきてしまいます。昨日から困ってしまって先に進めないです。わかる方、いらっしゃれば、教えて下されば幸いです。
宜しくお願いします。
VBA
1Option VBASupport 1 2 3Private Sub 実行_Click() 4 Call 自作1 5End Sub 6 7 8 9Sub 自作1() 10 11 Dim lastRow As Integer 12 13 lastRow = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 14 15 For i = 2 To lastRow 16 17 Dim a As Integer 18 Dim b As Integer 19 20 a = Cells( i , 1 ).Value 21 b = Cells( i + 1 , 1 ).Value 22 23 Cells( i , 2 ).Value = a + b 24 25 Next i 26 27 28 29 30End Sub 31 32

回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。