間違っていないはずのエラー。「err13:型がちゃうで」

Question

型が違うって言われます。
直すべき場所がわかりません。
このエラーが出るのは複数のセルをいっぺんに変更(削除)したときです。

Answer 1

Target は変更対象のセル（複数）ですので、複数のセルに対する Target.Value は配列として返っています。
そのため 配列 = ""（文字列）という比較が行われ、型が一致しないのでエラーになります。

Answer 2

原因はkaz.Suenagaさん提示のとおりと思います。

エラーが発生した際、原因を特定するためには、考えられる要因をひとつひとつ潰していくのが基本です。

今回の場合、問題となっている判定文には
①(Target.Column = 1)
②(Target.Row = 2)
③(Not Target.Value = "")
と３つも要素があります。

例えばこれを分解して１個ずつの条件文に変更してみると、問題が③にあることに気がつけます。

If (Target.Column = 1) Then
    If (Target.Row = 2) Then
        If(Not Target.Value = "") Then
           'ここにくるまでのどこでエラーが発生するかを試してみる
        End If
    End If
End If

一度にたくさんの問題を抱えて訳が分からなくなってしまったときは、小さな単位で少しずつ検証していくことで徐々に問題が見えてきますよ。

そして問題がわかったら次はどう解決するか？ですが、これは今回の質問内容だけでは汲み取ることができません。
この処理が何を目的としていているのか、どういう状況で利用されるのか、説明が足りていません。

---

最後に少し苦言を述べさせていただきます。

今回のようにスクリーンショットでソースコードを張り付けるのは、質問する人はラクかもしれません。

しかし回答する側の立場からすると、試しに動かそうにも画像を見てコードを手入力しなければなりませんよね？
そこまでして回答してくれる優しい人がどれほどいるでしょうか。

今回は、エラーの原因の調べ方、質問の投げ方、質問タイトルのつけ方、いろいろなところが雑すぎだったと思います。
今後はそのあたりも気にしながら、開発スキルもコミュニケーションスキルも磨いてもらえるとうれしいです。

頑張ってください。

Comments

[otftrough]

いやいや、画像でコード載せる方が手間ですよｗ

[jawa]

・・・ではなぜ敢えてその選択をしたのか。
そして苦言を述べられたのが気にさわったのかもしれませんが、この回答。
私が改善したほうがいいといったのはまさにそういうところなのですが、伝わらないようですね。
もう何も言うことはありません。失礼しました。

[otftrough]

ありがとうございました

Answer 3

ここですかね？

Not Target.Value = ""

NotがTarget.Valueにかかってるんじゃないでしょうか？

こうしてみては？

Target.Value <> ""

Comments

[otftrough]

よくわかりません。

[ttyp03]

回答の意味がわからないということでしょうか？
修正してみたけど解決しないということでしょうか？

[otftrough]

<>というのがなんなのかわかりませんでした。
<>の中にはなにか書くべきなんでしょうか？そのまま書きましたが、同じエラーが出ました。

[ttyp03]

<> は不等号の意味です。

こちらでも試してみたところ、セルを複数選択したときにエラーになるようです。
原因はkaz.Suenagaさんがおっしゃっている通りです。
対策としては複数選択状態かを判定して、単一セルのときにのみ Target.Value を参照するようにすると良いと思います。

If (Target.Column = 1) And (Target.Row) = 2 And (Target.Count = 1) Then
If Not Target.Value <> "" Then
～
End If
End If

Worksheet_Changeイベント自体複数セルを受け付けないのであれば、関数の入り口ではじいてしまった方がいいかもしれません。

[otftrough]

ありがとうございます