エクセルのマクロでセルの値変更時にエラーが出る問題の解決方法
- エクセルのマクロを使用してセルの値変更時に動作する場合、複数のマクロを記述した際にエラーが発生することがあります。
- 解決方法として、マクロのコード内の条件文を修正することで問題を解決することができます。
- 具体的には、各マクロの条件文内の範囲指定の方法を適切に修正する必要があります。
- ベストアンサー
エクセルのマクロ
セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。 どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub
- tsukajun
- お礼率82% (23/28)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
> 2つ書くとエラーが出ます。 それ以前にコンパイルエラーが出ませんか？ Select Case は End Select で終わらせる必要がありますよ。 そんなわけで、 > どのように直したら 二つを一つにまとめるだけです。 Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$EK$22" Range("EK24:EM28").ClearContents Case "$EK$24" Range("EK27:EM28").ClearContents Case Else ' 要らないけど Exit Sub ' 要らないけど End Select End Sub
関連するQ&A
- 【ExcelVBA】 既にあるマクロの間で実行させたいのです。
こんにちは 下のマクロを・・・ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const RangeName As String = "●入力" If Not Intersect(Range(RangeName), Target) Is Nothing Then Cancel = True If Target = "●" Then Target = "" Else Target = "●" End If End If End Sub このマクロの■ここで実行■で実行させたいのですが、どのようにしたらよいでしょう。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$D$1" Then Exit Sub Cancel = True Columns("A:U").Select Range("T1").Activate Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal Selection.Replace What:="ああ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("D1").Select End Sub ■ここで実行■ Private Sub Worksheet_Change(ByVal Target As Range) strAddress = "A1:A2000" On Error GoTo ErrorHandler If Target.Count > 1 Then GoTo ErrorHandler If Not Intersect(Target, Range(strAddress)) Is Nothing Then Application.EnableEvents = False Range(strAddress).ClearContents Target.Value = "●" End If ErrorHandler: Application.EnableEvents = True End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル イベントマクロのエラー回避
イベントマクロを初めて書いてみたのですが A列を全部選択して削除などをするとエラーがて出てしまいます 回避するにはどのようにしたら良いのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then Select Case Target.Value Case Is = "りんご" cellColor = 3 Case Is = "みかん" cellColor = 6 End Select End If If Not Intersect(Target, Range("B:B")) Is Nothing Then Select Case Target.Value Case Is = "りんご" cellColor = 6 Case Is = "みかん" cellColor = 3 End Select End If Target.Interior.ColorIndex = cellColor End Sub 以上が書いたものです。 皆様の知恵お貸しください 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロで二つの構文を繋ぐには
いつもお世話になります。 WIN7 EXCELL2010 です。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub ThisWorkbook に上記のマクロに下記のマクロを追加したいのですが、 End Sub の ところを End If End With などに変えたのですがうまくゆきません。 御指導お願いできませんでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("M3:V27")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case "○" Target.Value = "●" Case Else Target.ClearContents End Select Cancel = True End If End Sub 宜しくお願いいします。
- ベストアンサー
- Excel（エクセル）
- Worksheet_Change、名前の定義で分岐
エクセル2010です。 Worksheet_Change イベントで、名前の定義で分岐させようと思います。 下記二つの方法は思いつきましたが、ほかにもっと良い方法はないでしょうか？ 実際にはもっとたくさんの名前の定義があります。 ・Intersectで見る方法 Private Sub Worksheet_Change(ByVal Target As Range) Select Case True Case Not Application.Intersect(Target, Range("見積日")) Is Nothing Range("有効期限").Value = Range("見積日").Value + 60 Case Not Application.Intersect(Target, Range("Trigger")) Is Nothing If Target(1).Value = "AAAA" Then '(1)は結合セルクリア対策 MsgBox "BBBBを入力してください。" Range("BBBB").Select Else Range("BBBB").MergeArea.ClearContents End If Case Not Application.Intersect(Target, Range("BBBB")) Is Nothing If Target(1).Value = "日付入力" Then Range("BBBB").Value = InputBox("日付を入力してください。") End If End Select End Sub ・アドレスで見る方法 Private Sub Worksheet_Change(ByVal Target As Range) Select Case True Case Target(1).Address = Range("見積日")(1).Address Range("有効期限").Value = Range("見積日").Value + 60 Case Target(1).Address = Range("Trigger")(1).Address If Target(1).Value = "AAAA" Then '(1)は結合セルクリア対策 MsgBox "BBBBを入力してください。" Range("BBBB").Select Else Range("BBBB").MergeArea.ClearContents End If Case Target(1).Address = Range("BBBB")(1).Address If Target(1).Value = "日付入力" Then Range("BBBB").Value = InputBox("日付を入力してください。") End If End Select End Sub
- ベストアンサー
- その他MS Office製品
- マクロの解説をお願いします。
マクロを勉強したのが10年近く前ですっかり頭から抜けてしまっているので、教えていただければと思います。 前に質問して、回答をいただいたマクロの意味をどなたか教えてください。 http://okwave.jp/qa/q7430751.html Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B3:B100")) Is Nothing Then Select Case Target.Resize(1, 1).Value Case "イ" Target.Offset(, 1).Value = "A" Target.Offset(, 2).NumberFormatLocal = "0000" Target.Offset(, 2).Value = "0000" Target.Offset(, 3).Value = "-" Case "ロ" Target.Offset(, 1).Resize(, 3).ClearContents End Select End If Private Sub Worksheet とは？？ というところからの超初心者です。 なんとかこれから10年のブランクを埋めて勉強していきたいと思っています。 よろしくお願いします。 また、そこの質問にも書きましたが、Resizeはここではどうして必要なのかがわかる方がいらしたら教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- イベントマクロで「コンパイルエラー 因数は省略できません」
マクロ初心者です イベントマクロを作りました Sheet2の結合されたB44：E44のセルに入力すると自動的にマクロが働いて Sheet1のW1の値のみがSheet2の結合されたB44：E44のセルに貼り付けられるマクロなのですが 実行すると「コンパイルエラー 因数は省略できません」と表示されます マクロ自体は正しく動いているのですがどういうことなんでしょう Sheet2 Worksheet Change Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target.Range("B44:E44")) Is Nothing Then Exit Sub Application.EnableEvents = False Sheets(1).Select Range("W1").Copy Sheets(2).Select Range("B44:E44").Select ActiveSheet.Paste Application.CutCopyMode = False Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As Range)…この行が黄色になります If Intersect(Target.Range("B44:E44")) Is Nothing Then Exit Sub…intersectのところが青くなります こんな説明でわかってもらえるでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルVBAのイベントについて教えてください。
エクセルVBA初学者のです。 "C9"にいれるとchangeイベントが発生するコードなんですが、 "C9"のほかに"D1"においてもchangeイベントを発生させたいのですが 下記のコードに続けて書いてもイベントが発生しないのですが どのように書けばよいのでしょうか？ private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C9")) Is Nothing Then Exit Sub Range("H14:H56").Interior.ColorIndex = 2 If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub Range("G14:G56").Interior.ColorIndex = 2 End Sub よろしくお願いします。
- ベストアンサー
- Visual Basic
- 型が一致しない というエラー
Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("B1") Then Range("B3:B8").Select Selection.ClearContents End If End Sub というコードを書いています。 Ｂ３～Ｂ８は「数字」という書式です。 型が一致しない１３番のエラーが出ます。 原因と対処法を教えてください。 宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- エクセル イベントマクロ Changeイベントを複数作りたい
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub 以下マクロの内容 End Sub これでセルＡ1が変わるとイベントマクロが発生しますが セルＢ1が変わると別のマクロが発生し セルＣ1が変わるとまた別のマクロが発生し…とするには どうすればよいのですか 単純に並べて書いたらだめみたいだったんですけど
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでTargetのセルに設定された「名前の定義」の取得方法は？
例えば、A1、B2、C3セルに「名前の定義」で、それぞれ入力A、入力B、入力C という名前がつけてあります。 それらのセルに入力があった場合、Select Caseで分岐させ作動するマクロをつくりました。 簡略化すると以下のようなもので、一応正しく作動します。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub Select Case Target.Address(0, 0) Case "A1" MsgBox "A処理します。" Case "B2" MsgBox "B処理します。" Case "C3" MsgBox "C処理します。" End Select End Sub ただ、せっかくセルに名前を定義してあるのに、個々の入力セルの判定をTarget.Addressでしているのが不満です。 (￣～￣;) 定義された名前を使えないかと以下のようにやってみましたが実行時エラーで「サポートしてません」となってしまいます。 (T.T) Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub Select Case Target.Names.Name 'ここでエラー Case "入力A" MsgBox "A処理します。" Case "入力B" MsgBox "B処理します。" Case "入力C" MsgBox "C処理します。" End Select End Sub どうやったら、Targetに設定されている名前を取得できるのでしょうか？ (^∇^`)？ 実際の例はもっと対象が多いので、Select Caseを使わない以下の方法は避けたいのです。 If文の羅列（これでも正しく作動はします。） Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("入力A,入力B,入力C")) Is Nothing Then Exit Sub If Not Intersect(Target, Range("入力A")) Is Nothing Then MsgBox "A処理します。" ElseIf Not Intersect(Target, Range("入力B")) Is Nothing Then MsgBox "B処理します。" Else MsgBox "C処理します。" End If End Sub なにとぞよろしくお願いします。 (o。_。)oペコッ
- ベストアンサー
- オフィス系ソフト
お礼
うまく出来ました。 ありがとうございました。