ＶＢＡ基本構文の作り方

Question

いつもご尽力いただきまして、ありがとうございます。

連投になりますが、なぜ？エラーになるのか、、、
.Cells(13, j).Value = n + Worksheets("間隔").Cells(lastrow - 1, j).Value
これならエラーなしで動くのですが、
これを
t =   Worksheets("間隔").Cells(lastrow - 1, j).Value 
もしくは、
t =   Worksheets("間隔").Cells(lastrow - 1, j).Offset(-1,0)
として、
 .Cells(13, j).Value = n + t
とするとエラーになります。
－1、もしくはOffset(-1,0)
に問題があるようで、、これを取り除くと動きますし、プラス値なら動きます。。

原因がわからず、一応そのまま式にすると動くのですが、なぜだろうかと、、前にも同じような感じになって、結局そのまま代入式作らずに使ったことがあり、よろしければ、連投ですが、原因を教えていただければと思います。


Private Sub Worksheet_Change(ByVal Target As Range)

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

ママチャリ · Accepted Answer

それならそうと最初から言ってくれれば、常連回答者さんを失わずに済んだものを・・・（教えてくれる人、減っちゃいましたね。っていうか、いなくなっちゃうかもですよ）。

さて、本題です。
次の二つは、同じじゃないです（きっぱり！！）

【エラーにならない】
If lastrow >= 3 Then
.Cells(13, j).Value = n + Worksheets("間隔").Cells(lastrow - 1, j).Value

【エラーになる】
n = Worksheets("間隔").Cells(lastrow, j).Value
t = Worksheets("間隔").Cells(lastrow - 1, j).Value
If lastrow >= 3 Then
.Cells(13, j).Value = n + t

例えば、変数 lastrow が、ゼロの場合、エラーにならない方は、何もせずにIF文を抜けます。
方やエラーになる方は、「ｎ=～」の2行分の命令は実行されてしまうので、ここでエラーが発生します。
エラーにならない方と同じにするなら、「If lastrow >= 3 Then」をもっと上に書かないといけません。

めぐみん_ · Answer

原因を探るには現象を把握する必要があるのでは？

lastrow にいったいどんな数値が入っている時に起こるのか？
それはなぜそうなるのか？

コードを提示されるより実際のSheetで確かめるのがわかりやすいかと。
そしてデバッグにより変数の値の調べ方を知るべきです。

https://excel-ubara.com/excelvba1/EXCELVBA490.html

とか。

Qchan1962 · Answer

こんにちは
度々ご質問を拝見しますが、デバッグに関するご質問の場合、
どこでエラーになり、どのようなエラーになるのかを示さなければ、
いけないと思います。
更に出来れば、デバッグの検証結果などを加えるべきです。

t = は、どこに入るのですか？これ大事だけど、、、
もっとも、If lastrow > 1 Then　内であっても　If lastrow >= 3 Then内であってもエラーになる可能性がありますね。

t = Worksheets("間隔").Cells(lastrow - 1, j).Offset(-1,0)の場合
If lastrow > 1 Thenの条件下なら、
lastrowが3の時、エラー13　（ラベルが文字列の場合）
該当セルの値が文字列ならlastrowの値に関係なく　エラー13
lastrowが2の時、1004エラー

少しずれますが、
n = Worksheets("間隔").Cells(lastrow, j).Value
t = Worksheets("間隔").Cells(lastrow - 1, j).Value
t = Worksheets("間隔").Cells(lastrow - 1, j).Offset(-1,0)
.Cells(13, j).Value = n + Worksheets("間隔").Cells(lastrow - 1, j).Value
示されているプロシージャの場合、上記はすべてエラーになる可能性があります。これは理解できますか？

.Cells(13, j).Value = n + t　に関しては各変数に代入する段階でエラーが返るので問題ないように思います。

各セルにはどのような値が入っているのでしょう？
Cells(lastrow - 1, j).Offset(-1,0)が示すセルアドレスはどこでしょう。

＊エラー該当位置やエラー№などが不明で且つt =の挿入位置も分かりませんので、見切りで頓珍漢な回答かも知れません。

少し自身で変更してすぐ躓くのは、教えてもらったコードの意味を理解していないせいです。たとえ理解していたとしても、ご自身で検証して解決方法にたどり着けるようにしなければ、先に進みません。

明らかにデバッグしていないようなので、
ある程度のデバッグ方法やデバッグの知識を学習しなければ、これ以上のスキルアップは望めそうにないと思います
一応、3度目なので今後は、デバッグを覚えなさいアドバイスはしませんね。

めぐみん_ · Answer

No.1です。

私なら。
まずエラーが出た際に変数： j にカーソルを重ねて『 j = ?』と『どの列が問題なのか』を調べますね。

そしてシートの作成方法として横方向にセルを結合したりはしません。
例えばＡ列とＢ列が行毎に結合されているとします。
データは２行目以降入ってます。
Cells で１列ずつ最終行を取得するとします。
Ａ列はデータの最後の行が最終行になりますが、Ｂ列の最終行は１行目です。
これは結合セルの一番左のセルが有効であってそれより右のセルにはデータが入っていないと言う扱いになります。

シート情報として以前出ていたのかどうかは遡って調べるのも何なので、取り敢えずミスりそうな件と言う事で書かせていただきました。

Qchan1962 · Answer

＃２です
＞ご回答いただきありがとうございます。特にセルの結合はしておりません。
私の回答に結合などと言うキーワードはないと存じます。また、エラー内容なども返信にないようですね。
つまり、時間を割いて回答した内容をろくに読まずに返信された事だと推測します。誠意あるやり取りが出来そうもないので、追記回答を辞退させて頂きます。
悪しからず

ママチャリ · Answer

念のため、確認させてください。

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

上記では、動くのですよね？
下記では、アプリケーション定義またはオブジェクト定義のエラーになるのですよね？

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

または、

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

ママチャリ · Answer

イミディエイトウインドウに、

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

を入れると、アプリケーション定義またはオブジェクト定義のエラーと出てくるのですか？

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

を入れると動くということですか？

最初の方（動かない方）に、If lastrow >= 3 Then　が無いのは何故ですか？

ＶＢＡ基本構文の作り方

原因を探るには現象を把握する必要があるのでは？

こんにちは

No.1です。

＃２です

念のため、確認させてください。

イミディエイトウインドウに、

それならそうと最初から言ってくれれば、常連回答者さんを失わずに済んだものを・・・（教えてくれる人、減っちゃいましたね。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング