VBA エラーをスキップしたい

Question

Public Sub 入荷帳簿へ転記()
'入荷入力シートJ列の値と同じ値のシート名のA列最終行に入荷入力シートのB:DとG:Hの値代入

    Dim copyRow As Long         'コピー元の行番号
    Dim copySheet As Worksheet  'コピー元のシート
    Dim pasteRange As Range     '転記先のRangeオブジェクト
    Dim pasteSheet As Worksheet '転記先のシート

    Set copySheet = Sheets("入荷入力")

    For copyRow = 2 To 7
        If IsError(copySheet.Cells(copyRow, "J").Value) = False Then  'エラーのセルはスキップする
            Set pasteSheet = Sheets(copySheet.Cells(copyRow, "J").Value)
            Set pasteRange = pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1)
            pasteRange.Resize(, 3).Value = copySheet.Range(copySheet.Cells(copyRow, 2), copySheet.Cells(copyRow, 4)).Value
            pasteRange.Resize(, 2).Offset(, 5).Value = copySheet.Range(copySheet.Cells(copyRow, 7), copySheet.Cells(copyRow, 8)).Value
        End If
    Next

End Sub

エラーをスキップしたつもりなんですが、

Set pasteSheet = Sheets(copySheet.Cells(copyRow, "J").Value)　の部分で

J列には、数式がはいっており、
値がある場合は、問題ありませんが、今回、５行目の数式の値がエラーとなり0という表記の場合、copyrow=5でエラーが起きてしまいます。
エラーのスキップ方法に問題があるのでしょうか？
直し方がわからず困っております。。。

申し訳ありませんが、知恵をお貸しいただきたく投稿させていただきます。
情報の過不足が有りましたら補足いたしますので、コメントいただければ幸いです。

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

Comments

[meg_]

セルの数式が何か教えてください。

[mi07]

＝A5です。
＝IF(A5＝””、””、A5)も試してみましたが駄目でした…

[meg_]

セルのエラー値とは「#DIV/0!（0で除算）」などです。それ以外は「False」になるかと。

[mi07]

なるほど、エラーが出るような数式にすれば、このまま使えるということですね。ちょっと考えてみます！ありがとうございます！

Answer 1

動作確認してみましたが、エラーは出なくなりましたが、そのあとの値の代入が全くできなくなってしまいました。

すみません、こちらで、動作確認する環境にないのですが、
copySheet.Cells(copyRow, "J").Value
の内容は、シート名が入るのでしょうか。(Sheet1,Sheet2等)

もし
＝A5です。
＝IF(A5＝””、””、A5)も試してみましたが駄目でした…
から、想像して、
下記のいずれかなら
①エラー
②空白
③正しいシート名
①と②のケースを除外すれば、良いかと
If IsNumeric(val) = True And val > 0 Then の行を
If IsError(val) = False And val <> "" Then
に変更してみてください。

Comments

[mi07]

言葉足らずな説明に、想像していただきありがとうございます！
おそらく想像していただいた通りでエラーと空白を除外するという形式にすればよかったということですね。
IsNumericは知らなかったので、こちらも勉強になりました！
ありがとうございました！

Answer 2

とりあえず、修正してみました。（こちらで動作確認まではしていません）
copySheet.Cells(copyRow, "J").Valueの値数値でかつ０より大きければ、処理を行うように
しました。（値が1.67等の場合も実行されますので、整数か否かのチェックまではしていません）

あと、動作の内容には影響しませんので、修正していませんが
copySheet.Cells(copyRow, "J").Value　の内容はvalに格納されるので、
val=copySheet.Cells(copyRow, "J").Value より後の行では
copySheet.Cells(copyRow, "J").Valueの代わりにvalと記述したほうが簡単です。

例：
Set pasteSheet = Sheets(copySheet.Cells(copyRow, "J").Value)　ではなく
Set pasteSheet = Sheets(val) のほうが簡単です。

Public Sub 入荷帳簿へ転記()
'入荷入力シートJ列の値と同じ値のシート名のA列最終行に入荷入力シートのB:DとG:Hの値代入

    Dim copyRow As Long         'コピー元の行番号
    Dim copySheet As Worksheet  'コピー元のシート
    Dim pasteRange As Range     '転記先のRangeオブジェクト
    Dim pasteSheet As Worksheet '転記先のシート
    Dim val As Variant          '追加
    Set copySheet = Sheets("入荷入力")

    For copyRow = 2 To 7
        val = copySheet.Cells(copyRow, "J").Value   '追加
        If IsNumeric(val) = True And val > 0 Then   '変更
            Set pasteSheet = Sheets(copySheet.Cells(copyRow, "J").Value)
            Set pasteRange = pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1)
            pasteRange.Resize(, 3).Value = copySheet.Range(copySheet.Cells(copyRow, 2), copySheet.Cells(copyRow, 4)).Value
            pasteRange.Resize(, 2).Offset(, 5).Value = copySheet.Range(copySheet.Cells(copyRow, 7), copySheet.Cells(copyRow, 8)).Value
        End If
    Next

End Sub

Comments

[mi07]

ありがとうございます。
なるほど、そうですよね、硬い考えしてしまっていました。。。valの使い方勉強になります。

動作確認してみましたが、エラーは出なくなりましたが、そのあとの値の代入が全くできなくなってしまいました。
今から確認してみますが、もし、気が付くことあれば教えていただけると幸いですm(__)m