ＶＢＡの基本操作について

Question

いつもおせわになっております。
さて、以下の件につきご教授いただければと思います。どうぞよろしくお願いいたします。
以下では正常にうごくのですが、

Const maxcolumn = 39
Dim j As Long
Dim n As Long**ボールドテキスト**
Dim t As Long
Dim lastrow As Long

With Worksheets("計算表")

For j = 2 To maxcolumn
lastrow = Worksheets("間隔").Cells(Rows.Count, j).End(xlUp).Row
n = Worksheets("間隔").Cells(lastrow, j).Value

If lastrow > 1 Then
.Cells(12, j).Value = n

If lastrow >= 3 Then
.Cells(13, j).Value = n + Worksheets("間隔").Cells(lastrow - 1, j).Value

End If
End If

Next j

End With
End Subここに言語を入力
コード

t = Worksheets("間隔").Cells(lastrow - 1, j).Value
これに問題があるようで、
t = Worksheets("間隔").Cells(lastrow ＋1, j).Value
やオフセットにしても、マイナスにするとエラーになります。

特にセル結合しているわけではなく一行目がラベルになっているというだけです。。

Const maxcolumn = 39
Dim j As Long

Dim n As Long

Dim t As Long

Dim lastrow As Long


With Worksheets("計算表")


For j = 2 To maxcolumn

    lastrow = Worksheets("間隔").Cells(Rows.Count, j).End(xlUp).Row
    
    n = Worksheets("間隔").Cells(lastrow, j).Value
    t = Worksheets("間隔").Cells(lastrow - 1, j).Value
    
       
    If lastrow >= 3 Then
    .Cells(12, j).Value = n + t
           
  End If 
Next j
    
 
  End Withここに言語を入力
コード

Comments

[hatena19]

どの行でエラーになり、エラーメッセージはなんですか。

[m.ts10806]

タイトルと中身が合致してません。
タイトルは要件を記載してください。

[kohan]

t = Worksheets("間隔").Cells(lastrow - 1, j).Value
この行でエラーになり、アプリケーション定義またはオブジェクト定義のエラーですということです、、

よろしくお願いいたします。。

[TanakaHiroaki]

データがない列あれば、そこでエラーが出るのではないでしょうか。

[hatena19]

エラーが出たときにデバッグを押して、lastrow の値を確認してみてください。1になっているということはないですか。

[kohan]

はい、、そのとおりに１とイミディエイトウインドウに出てきました。

[kohan]

m.ts10806　様

大変申し訳ございませんでした。
以後、要件に近いタイトルをつけるように気を付けます。

[m.ts10806]

質問は編集できますので、いつ来るか分からない「以後」に後回しにするのではなく、本質問から対応してください。

[kohan]

TanakaHiroaki

ご回答ありがとううございます。そうですね、、それがなんで起こるのか、、

[hatena19]

もう、お気づきだと思いますが、その場合、
Cells(lastrow - 1, j)
だと0行目を参照することになりますが、シートに0行目はないので当然エラーになります。

Answer 1

    t = Worksheets("間隔").Cells(lastrow - 1, j).Value

とりあえず上記を下記に変更した場合はどうなりますか。

    If lastrow > 1 Then t = Worksheets("間隔").Cells(lastrow - 1, j).Value

Comments

[kohan]

ありがとうございます、、、
いかんせん、初心者を接頭語のように使うとうざいとは思いますが、こういうところで本当にデバックしても、、、というより、こういうデバックの仕方さえわからず、、更には、１と出ていも、こういう対処をするということも思いつきませんでした。
If lastrow >= 3 Then
.Cells(12, j).Value = n + t
で、3行目を選んでいると思い込んでいるので、視点が固定化していました、、
本当に感謝いたします。