下記のコードでは、行の挿入や行の消去をすると13のエラーが出てしまいます。
デバックでは、
If Val(Target.Value) = Val(Range("E" & Target.Row).Value) Then
を示しているのですが、
直し方が分かりません。。。
教えていただけましたら幸いです。
毎度、エラー時に「終了」を押して作業しています。
Windows10/Excel2019
で使用中です。
---------------------------
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A245")) Is Nothing = False Then
If Val(Target.Value) = Val(Range("E" & Target.Row).Value) Then
Application.EnableEvents = False
Target.Value = "'" & Target.Value
Application.EnableEvents = True
Else
MsgBox "番号が違います"
Application.EnableEvents = False
Target.Value = "再入力"
Application.EnableEvents = True
End If
ElseIf Intersect(Target, Range("B1:B245")) Is Nothing = False Then
If Target.Value = "1" Then
Application.EnableEvents = False
Target.Value = "済"
Application.EnableEvents = True
ElseIf Target.Value = "2" Then
Application.EnableEvents = False
Target.Value = "未確認"
Application.EnableEvents = True
End If
End If
End Sub
----------------------------
宜しくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
ローカルウィンドウ開き、1行目にブレークポイント設定し
行削除、追加する。その時のTarget.countを見て下さい。エクセルの列最大値16384?がセットされてきます。
この数値か、操作セル数では絶対無いであろう10000以上だったら、
Exit Subさせます。
No.2
- 回答日時:
こんばんは
ご提示のコードは、「変化したセル(=Target)が一つだけである」との仮定のもとに作成されていると思われます。
実際には、ご質問のように行(や列)を挿入したり、削除したり、あるいはセル範囲にペーストしたり、セル範囲を消去したりすると、変化したセル範囲全体がtargetとして渡されます。
(ご質問の場合だと、行全体)
複数セルの場合、Target.Value はそのセル範囲の値を持つ配列を意味します。(単体セルの場合には、セル値になります)
それを Val(Target.Value) として評価させようとすると、できないので
「エラー13 型が一致しません」になっているものと思います。
Target.Row はセル範囲の先頭のセルを代表値として返すので、エラーにはなりませんが、異なる行位置を取得してしまうので、処理の結果が予定とは違ってしまう可能性がありそうです。
Target.Cells.Cout でセル範囲内のセルの個数を取得できますので、最初にセル数を確認しておいて処理方法を決めるか、複数セルにも対応できるような処理にしておけば宜しそうに思います。
もしも、複数セルを順に処理するのなら
For Each c In Intersect(Target, Range("A1:A245"))
' c を用いた処理
Next c
のような形式にして、処理すれば可能と思います。
(Intersect()の内容がNothingだとエラーになりますので、事前チェックが必要です)
※ ただし、ご質問のように行そのものを挿入、削除した場合、挿入するとその行が、削除した場合は削除した行範囲(=実際にはもう存在しない)が渡されますので、そのままの処理で良いのかどうかはわかりませんが、注意が必要そうな気がします。
No.1
- 回答日時:
結合されたセルが邪魔してるんじゃないかな。
試しに、別名保存したBookのシート全体を選択して、セルの書式から「セルの結合」を解除してから試してみると良いでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
Excel VBA IF文がうまく動作し...
-
エクセルVBA 配列からセルに「...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excelで空白セル直前のセルデー...
-
特定の色のついたセルを削除
-
Excel VBAでCheckboxの名前を変...
-
複数指定セルの可視セルのみを...
-
VBAでユーザーフォームにセル値...
-
Excel-VBA セルのデータ書出し(Q2)
-
【VBA】写真の貼り付けコードが...
-
EXCEL VBA 文中の書式ごと複写...
-
下記のマクロの説明(意味)を...
-
オーバーフローを回避する方法?
-
excelで結合セルの場合にエラー...
-
[Excel VBA] このコードでは行...
-
VBAについて
-
EXCELのフォーム上でリアルタイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
【Excel VBA】一番右端セルまで...
-
Excelで空白セル直前のセルデー...
-
【VBA】写真の貼り付けコードが...
-
VBAコードについて教えてくださ...
-
【VBA】【ユーザーフォーム_Lis...
-
Excel 範囲指定スクショについ...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
VBA にて、条件付き書式で背景...
-
Excel VBAでCheckboxの名前を変...
-
複数指定セルの可視セルのみを...
-
Excel VBA IF文がうまく動作し...
-
エクセルのカーソルを非表示に...
-
入力規則のリスト選択
-
VBA 複数条件の分岐処理の上手...
おすすめ情報