Sub Button53_Click()
Dim rowsvalue As Integer
Dim rowsnum As Integer
rowsvalue = Sheet1.Range("C38").Value
rowsnum = Math.Round(rowsvalue / 20, 1)
k = 0
For Counter = 16 To 46
Worksheets("Single L Angle").Cells("F", Counter).Value = rowsnum * k
k = k + 1
Next Counter
End Sub
セル「C38」から値を取得し、それを20で割り、それらの値をセルF16-> F36に貼り付けるVBコードを作成しようとしています。これまでのところすべて問題ありませんが、次の点については次のとおりです。
Worksheets("Single L Angle").Cells("F", Counter).Value = rowsnum * k
Mismatch 13 エラーが発生し続けます。