• ベストアンサー

Excelマクロで

Excelマクロで 範囲内を書き換えたときだけ 処理を通るようにしたいのですが どうしたらいいのか分かりません。 範囲がRange("A1:B10")で 書換がB5のとき 範囲内なので MsgBox "true" を 書換がC5のとき 範囲外なので MsgBox "false" を 範囲は変わるのでマクロでお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • emsuja
  • ベストアンサー率50% (1034/2055)
回答No.1

これでいいのですか？ Private Sub Worksheet_Change(ByVal Target As Range) Dim Flag As Integer Flag = True Select Case Target.Row Case 1 To 10 Case Else Flag = False End Select Select Case Target.Column Case 1, 2 Case Else Flag = False End Select MsgBox Flag End Sub

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • エクセル　マクロ　簡素化

    マクロ初心者です。 下記のデータのコピペする、マクロを使用しています。 下記にはAAAとBBBの2つのエクセルへのコピペのみしか記述していませんが、 その下に50ファイル分のファイル名、コピー元、コピー先だけが違うマクロが並んでいます。 メンテナンスや更新に手作業で行っているので、非常に時間がかかります。 例えば、別のシートにファイル名、コピー元、コピー先の一覧を作成し、 そのシートでファイル名、コピー元、コピー先を修正し、コピペができるようになるなど、 どうにかして簡素化したいのですが、どのように実現すればいいか、教えてくださると助かります。 ---------------------------------------------------------------------- Private Sub CommandButton1_Click() 　　Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\AAA.xls", UpdateLinks:=0) ThisWorkbook.Sheets("BBB").Range("A1:B1").Copy wb.Sheets("CCC").Range("A1:B1").PasteSpecial (xlPasteValues) Application.CutCopyMode = False Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\BBB.xls", UpdateLinks:=0) ThisWorkbook.Sheets("BBB").Range("A2:B2").Copy wb.Sheets("CCC").Range("A2:B2").PasteSpecial (xlPasteValues) Application.CutCopyMode = False Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True 'アイテム名、コピー元、コピー先、だけがちがう、同じようなマクロが50ファイル分ある。 End Sub

  • エクセルのマクロについて

    エクセルのマクロについて エクセル2007を使用しています。もしよかったら教えて頂きたいと思っております。 現在利用しているメインシート(Sheet16で認識)のD5:I500の範囲内で1～31範囲の数字がランダムに入力されています。 この数字群の入ったセルをルール化しているセル背景色塗りを自動で処理したいためマクロを作成しております。 その仕様として、10個のシート（シート名：Aセット配色～Jセット配色）を作成して、各シートのB3:H7範囲に1～31までの数字が入っており、それぞれ数字に背景配色しています。Sheet16内と数字と条件によって該当する10個のシート内（シート名：Aセット配色～Jセット配色）の中から1つのシートとが一致したらそのセット配色シートのセルそのものの書式も運んでくれるルール設計になっています。 （※Sheet16の上記記載している範囲に直接入力及びコピーをして数字が一致したら、色が変わる仕組みになっています。） 更に、Sheet16内のJ3セルにA～J迄の半角英字を入力規制セットしており、例えばそのセルにCを入力すればCセット配色（シート名）、A入力であればAセット配色（シート名）を見に行き、該当処理をして行くという仕様になっております。 そのマクロ（※げＮSheet16内に作成しています）が下記なのですが、拝見頂いて仕様がすぐお分かりになると思いますが、、 Private Sub Worksheet_Change(ByVal Target As Range) Dim v As Variant, c As Range, s As Range, myStr As String Dim rng As Range Set rng = Intersect(Target, Range("D5:I500")) If rng Is Nothing Then Exit Sub If Range("J3").Value = "" Then MsgBox "セット配色が未設定です。", vbCritical, "セットエラー " Exit Sub End If myStr = Range("J3").Value & "セット配色" Application.ScreenUpdating = False For Each c In rng.Cells For Each s In Worksheets(myStr).Range("B3:H7") v = c.Value If Not IsNumeric(v) Or v < 1 Or v > 31 Then Exit For c.Interior.ColorIndex = xlColorIndexNone c.Font.ColorIndex = xlColorIndexAutomatic If s.Value = v Then c.Interior.ColorIndex = s.Interior.ColorIndex c.Font.ColorIndex = s.Font.ColorIndex Exit For End If Next s Next c Application.ScreenUpdating = True Set rng = Nothing End Sub 今回の質問内容は、このマクロを少し仕様変更して、 C4：C500範囲でデータ書換えがあった場合にその瞬間、現行のJ3セルにその入力した英字と同じ値を表示させ次の処理に移行する方法にて上手くいかないかなと思っております。 上記のマクロを使用して追加組み込みをする前提で考えると、どういうコードを追加すれば実現出来ますでしょうか？ どうかご伝授頂けますと幸いです。 よろしくお願い申しあげます。

  • マクロでエラー

    Excelのチェックボックスについて ご質問致します。 デザインの都合上、 チェックボックスで「いずれか1つを選べる」ように マクロを作成しています。 １つの質問に対して３つの選択肢があります。 ・Ａボタンをチェックしたら、ＢとＣのチェックを外してセルの名前「質問1」に０を入力 ・Ｂボタンをチェックしたら、ＡとＣのチェックを外してセルの名前「質問1」に１を入力 ・Ｃボタンをチェックしたら、ＡとＢのチェックを外してセルの名前「質問1」に３を入力 ということをしたいです これが１２問ぐらいあります。 例えば質問１はこんな感じで作成しましたが エラーで、Ｅｘｃｅｌが終了してしまいます。 どの辺がおかしいのかご指摘頂けると嬉しいです Private Sub Q1_A_Click() ActiveSheet.Q1_A.Value = True ActiveSheet.Q1_B.Value = False ActiveSheet.Q1_C.Value = False ActiveSheet.Range("質問1").FormulaR1C1 = 0 End Sub Private Sub Q1_B_Click() ActiveSheet.Q1_A.Value = False ActiveSheet.Q1_B.Value = True ActiveSheet.Q1_C.Value = False ActiveSheet.Range("質問1").FormulaR1C1 = 1 End Sub Private Sub Q1_C_Click() ActiveSheet.Q1_A.Value = False ActiveSheet.Q1_B.Value = False ActiveSheet.Q1_C.Value = True ActiveSheet.Range("質問1").FormulaR1C1 = 3 End Sub

  • EXCEL マクロにて

    EXCELにて質問があります 別シートのピンクという文字列をB列から探すマクロを作成しました Private Sub CommandButton1_Click() Set aaa = Sheets("sheet1写真").Columns(2).Find("ピンク").Address(False, False) MsgBox aaa Application.Goto Sheets("Sheet1写真").Range(aaa) End Sub このマクロを実行しても型が一致しませんと言うエラーが出てしまいます 何がいけないのかさっぱりわかりませんどうかご教授お願いします

  • Excelの目次作成のマクロ

    Excel 2000 で本の目次を作りたいと、思いネットで下記ののようなマクロを見つけました。 Sub 索引作成() 　　Dim R As Range, R2 As Range, LastFound As Range 　　Dim Found As Boolean 　　Range("C2", Range("D65536").End(xlUp).Offset(1, 0)).Clear 　　For Each R In Range("A2", Range("A65536").End(xlUp)) 　　　　Found = False 　　　　Set LastFound = Range("C65536").End(xlUp) 　　　　For Each R2 In Range("C2", LastFound) 　　　　　　If R2.Value = R.Value Then 　　　　　　　　R2.Offset(0, 1).Value = R2.Offset(0, 1).Value & "," & R.Offset(0, 1).Value 　　　　　　　　Found = True 　　　　　　End If 　　　　Next 　　　　If Found = False Then 　　　　　　LastFound.Offset(1, 0) = R.Value 　　　　　　LastFound.Offset(1, 1) = R.Offset(0, 1).Value 　　　　End If 　　Next End Sub このマクロを使うと下記のような結果になるのですが、頁数の桁が多い場合（1000ページ以上）や、項目名の重複が多い場合は上手く動きません。 　A　　　　B　　　　C　　　　D 項目名　　頁 A　　　　　1 B　　　　　2 C　　　　　3 D　　　　　4 A　　　　　5 B　　　　　6 C　　　　　7 D　　　　　8 　　↓上記マクロを使うと 　A　　　　B　　　　C　　　　D 項目名　　頁 A　　　　　1　　　　A　　　　1,5 B　　　　　2　　　　B　　　　2,6 C　　　　　3　　　　C　　　　3,7 D　　　　　4　　　　D　　　　4,8 A　　　　　5 B　　　　　6 C　　　　　7 D　　　　　8 となりますが、頁が1000桁以上になると A B　　　　　　C　　　　　D 項目名　　頁 A　　　　　1000　　　　A　　　　100,010,04 B　　　　　1001　　　　B　　　　100,110,05 C　　　　　1002　　　　C　　　　100,210,06 D　　　　　1003　　　　D　　　　100,310,07 A　　　　　1004 B　　　　　1005 C　　　　　1006 D　　　　　1007 のようになります。 頁が1000桁以上になる場合や、項目名の重複が多くなる場合でも上手く動くマクロは無いものでしょうか。 何卒、宜しくお願いいたします。

  • エクセルマクロ・Cells.Find のエラー

    　 VBA初心者です。 ファイルA の C列 に入力されているデータが ファイルB に含まれているかどうか検索するマクロを Cells.Find を使って作ろうとしています。 データがファイルBに存在する場合は問題ありませんが存在 していない場合エラーが出て止まってしまいます。 ヘルプを見ると「セルが見つからなかった場合は、Nothingを返します」 と書かれていますが、どうもNothingとは返ってきません。 このエラーを回避する方法を教えてください。 例えばこんなマクロを組みました。 　For tate = 0 To 19 　　　Windows("ファイルA.xls").Activate 　　　Range("C1").Offset(tate, 0).Select 　　　データ = Range("C1").Offset(tate, 0) 　　　Windows("ファイルB.xls").Activate 　　　Cells.Find(データ, MatchCase:=False).Activate 　Next tate 例えば最後の2行を 　　　結果 = Cells.Find(What:=ISISDate, MatchCase:=False).Activate 　　　　　MsgBox (結果) 　Next tate とするとデータが含まれている場合は「True」と返ってきますが、 含まれていない場合は MsgBox が表示される前にエラーとなってしまいます。 とりあえずこのエラーを回避する方法をご存知でしたらお教えください。 　

  • エクセル2003のマクロでコマンドボタンでの貼り付けが出来ない。

    はじめまして、マクロ記載などコードを書くのは初めての初心者です。今回エクセル2003のマクロで、ワークシートから数値データーを他のワークシトに貼り付けようとコマンドボタンを作成して実行してるのですが、「実行時エラー1004、rangeクラスのserectメソッドが失敗しました」とのエラーが帰ってきます。 しかしマクロダイアログにコードを貼り付けて操作すると成功してしまいます。 コマンドボタンが使用出来ないのでしょうか？ 教えて頂けないでしょうか、何方かよろしくお願いいたします。 /////////////////////////////////////////// Private Sub CommandButton2_Click() Range("B5:AX14").Select Range("B5:AX5").Select Selection.Copy Sheets("報告FORMAT").Select Range("A72").Select　←ここで止まってしまってる様です。 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=True, Transpose:=False Range("A68").Select Sheets("管理format").Select Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("A2").Select End Sub //////////////////////////////////////////////////

  • エクセルマクロで

    エクセルマクロでファイルの有無を確認したくて 次のようなマクロを作りました。 Dim fso Const Folder = "D:\AAA" Const File = "*****.xlsx" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Folder & "\" & File) = False Then MsgBox "ファイルは存在しません" ファイル名の*****部分に Range("A1").Valueを使いたいのですがうまくいきません。 どのようになるのでしょうか。よろしくお願いします。

  • エクセルマクロ　繰り返して、別のシートへコピーしたい

    エクセルマクロ　繰り返して、別のシートへコピーしたい マクロ初心者のため、やり方が全くわかりません。 どなたか教えてください。 やりたいことは、 コピーするシートはあらかじめ作成しています。 簡素化の方法がわからないので、 とりあえず自分で作ってみたものが下にあるものです。 繰り返す方法がわからないので、 どなたか教えてください。 よろしくお願いします。 以下、作成したマクロです。 1行目から１０行目まで繰り返したくて、 1行目から2行目のセルの移動の差は１０行目までかわりません。 '1行目 Sheets("Sheet1").Select Range("B14:C14").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select Range("B15:C17").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B1").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False '2行目 Sheets("Sheet1").Select Range("B18:C18").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Sheets("Sheet1").Select Range("B19:C21").Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet2").Select Range("B2").Select Range("B2").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False

  • エクセルのマクロについて

    エクセルのマクロについて 領域の範囲選択→貼り付けの繰り返し処理をループで考えています。 領域の範囲選択し、貼り付け処理をマクロの自動記録で、出してみました。 Sub Macro1() Range("E6:G12").Select Selection.Copy Range("E17").Select ActiveSheet.Paste Application.CommandBars("Stop Recording").Visible = False End Sub この時に、「Range("E17").Select」の命令は「Cells」関数に置き換えられるのですが、「Range("E6:G12").Select」のように複数のセルの領域選択をする際に、「Cells」関数ではできないのでしょうか。 「Cells」関数を使えば、行列を数値にし、変数を使えば、LoopかFor命令で繰り返し処理ができるのですが、わかる方、解答ください。よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する