ExcelVBAで二つのセルに入力された時の判定

前へ 次へ
このQ&Aのポイント
  • ExcelVBAを使用して、セルA1とA2の両方に値が入力された場合に、セルA3に文字を入力するマクロを作成したいです。
  • 現在のプログラムでは、最初のIF文で常にTrueになってしまいます。この条件を満たすマクロの作り方を教えてください。
  • リリースするマクロのために、ExcelVBAを使ってセルA1とA2が入力された場合にセルA3に文字を入力する方法を教えてください。
回答を見る
  • ベストアンサー

ExcelVBA 二つのセルに入力された時の判定

セルA1とA2両方に値が入力された時、セルA3に文字を入力するマクロを作りたいです。 下記プログラムで試しているのですが、ステップインで見ると最初のIFでTrue判定されてしまいます。 どうすればこの条件を満たすマクロになるのか、教えて頂けないでしょうか。 以上、宜しくお願い致します。 Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Or Intersect(Target, Range("A2")) Is Nothing Then Exit Sub Else If Range("A1").Value <> "" And Range("A2").Value <> "" Then Range("A3").Value = "入力済み" End If End If End Sub

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

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.4

このようなセルへの入力を制御するロジックは結構作りました。 質問に関して、必要なことを考えてみました。（不必要かも） (1)A1、A2セルの２つとも何らかの入力があれば、 　　A3に「入力済み」と表示（質問の主旨） (2)ユーザー(Excel操作者)がA3セルを操作できない。（私の考える追加機能） (3)A1、A2セルの２つともに何らかの入力をしA3に「入力済み」と表示 　　された後、A1またはA2セルを消去したら、A3セルの「入力済み」を 　　クリアする。（私の考える追加機能） ※昔、検証者がこのようなことを指摘してくれました。善意の検証と悪意の検証ですね。悪意の方が何倍も助かりました。対象シートは「Sheet1」としています。 (2)への対応 　対象シートのセルを全て選択し、 　・右クリック＞セルの書式設定＞保護タブ＞ロックのチェックを外します。 　・A3セルを選択し、右クリック＞セルの書式設定＞保護タブ＞ロックを 　　チェックします。 　・校閲タブ＞シートの保護を実行します。 　これで、対象シートは、A3セルにユーザーからは入力できなくなります。 (1)への対応 　「(2)への対応」を行ったので、質問にある 　　「Range("A3").Value = "入力済み"」ができなくなります。当然ですね。 　これを回避するために、ProtectメソッドのUserinterfaceOnlyオプションを 　使います。保護をユーザの手動シート操作に対してのみ有効にし、マクロ 　からは無効にしてくれます。マクロからは変更できるわけです。 ThisWorkbookのコードペインに次を貼り付けます。 Book起動時に有効になります。 Private Sub Workbook_Open() 　With Worksheets("Sheet1") 　　.Unprotect　　 '// シート保護を解除 　　.Protect UserInterfaceOnly:=True '// シート保護を設定(UIのみ) 　End With End Sub (3)への対応 質問のコードは、動いたとしても、「入力済み」と表示された後、A1、A2セルに変更（クリア）がある場合、何もしません。２セルともに入力されていない場合の処理を書くべきでしょう。 Private Sub Worksheet_Change(ByVal Target As Range) 　If Not (Intersect(Target, Range("A1,A2")) Is Nothing) Then 　　If Range("A1").Value <> "" And Range("A2").Value <> "" Then 　　　Range("A3").Value = "入力済み" 　　Else 　　　Range("A3").Value = "" 　　End If 　End If End Sub

Nabco0925
質問者

お礼

ご丁寧にご解説して頂きありがとうございます。 とても参考になりました、記述して頂いたコードを使用させて頂きます。

その他の回答 (3)

  • kkkkkm
  • ベストアンサー率65% (1615/2454)
回答No.3

No1　の追加です。 もし、セルが離れていた場合や沢山ある場合にはAndで繋ぐより If Intersect(Target, Range("A1,A2")) Is Nothing Then みたいにした方が見やすいですね。

Nabco0925
質問者

お礼

そんな簡単なことで良かったのですね...。Intersectメソッドについてまだまだ勉強不足でした。 ご回答頂きありがとうございます。

  • kkkkkm
  • ベストアンサー率65% (1615/2454)
回答No.2

No1の他に、連続している場合は If Intersect(Target, Range("A1:A2")) Is Nothing Then なども使えます。

  • kkkkkm
  • ベストアンサー率65% (1615/2454)
回答No.1

If Intersect(Target, Range("A1")) Is Nothing And Intersect(Target, Range("A2")) Is Nothing Then にしてください。A1でもA2でもない場合。

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

関連するQ&A

  • エクセルで特定のセルへの直接入力だけを禁止したいんです。

    過去の質問を参考に『セルをダブルクリックすると"○"と入力される』というマクロを○⇒●⇒－⇒　　⇒○⇒・・・として使っているんですが、ダブルクリックの度にセルが直接入力の状態（縦の棒の点滅)になってしまい、一度他のセルをクリックしないと次へ進めずに困っています。 良い方法ってあるのでしょうか？ ちなみに使用しているマクロは Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Const rng As String = "A1:A3" '処理対象のセル範囲 If Not Application.Intersect(Target, Range(rng)) Is Nothing Then If Target.Value = "" Then Target.Value = "○" ElseIf Target.Value = "○" Then Target.Value = "●" ElseIf Target.Value = "●" Then Target.Value = "－" Else Target.ClearContents End If End If End Sub というものです。 よろしくお願いします。

  • 入力用のセルと管理用のセルを分けるには？？

    Private Sub Worksheet_Change(ByVal Target As Range) Dim myC As String Dim x As Range 　　If Intersect(Target, Range("A1,C2,D4")) Is Nothing Then Exit Sub 　　Select Case Target.Address(0, 0) 　　　　Case "A1": myC = "E" 　　　　Case "C2": myC = "F" 　　　　Case "D4": myC = "G" 　　End Select 　　If Cells(Rows.Count, myC).End(xlUp).Value = "" Then 　　　　Set x = Cells(Rows.Count, myC).End(xlUp) 　　Else 　　　　Set x = Cells(Rows.Count, myC).End(xlUp).Offset(1) 　　End If 　　x.Value = Target.Value End Sub 入力用セルと、管理用のセルを分けたい・・・・・ という質問をしてこのマクロを教えていただいたんですが、 実際には入力用にしたいセルが、４０箇所以上ありまして 一つ一つ反映させるのではなく、すべての箇所に入力して確認後に まとめて反映させたいのですが不可能でしょうか？？ 何か方法があるようでしたらヨロシクお願いします！！ エクセル２００３です。

  • エクセルにてダブルクッリクしたときの動作

    エクセルにて特定のセルをダブルクリックをした時に日付を表示させたくて以下のマクロを組みました。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean) If intersect(Target, Range("A1")) Is Nothing Then Exit Sub If ActiveCell = "" Then ActiveCell = Format(date, "yyyy") Cancel = True End If End Sub この場合A1セルをダブルクリックした時のみ西暦が入力されるようになっていますが、他のセルで、例えばB1セルでは月、C1セルでは日にちをダブルクリックで入力させるにはどうしたら良いでしょうか？ If intersect(Target, Range("A1")) Is Nothing Then Exit Sub のTarget, Rangeを書き換えて複数このマクロを書き込んだのですがうまく動作しなくて。 知恵を貸していただけると助かります。

  • エクセルマクロで値入力時に時間が自動入力できる

    あるセルに値が入力されたら、 他の場所にその時間が入力されるような エクセルマクロを作りたいと考えています。 インターネットで調べて 下記の様にして1ヵ所だけは入力できるようになりました。 '時間の自動入力 Private Sub Worksheet_Change(ByVal Target As Range) 'Dim k As Long 'i = 9 If Intersect(Target, Range("C8")) Is Nothing Then Exit Sub Else d2 = Time Range("G8").Value = d2 End If End Sub 上記のマクロだと C8固定になってしまうので、 C8～C100で　上から順番に入力したときに それぞれの入力時に動作するように 変更したいと考えています。 そこで変数を設定し、ifで1つづつ変数を増やす処理を入れる前に 実験的に以下の様に書き換えてみたのですが、 Dim i As Long i = 9 If Intersect(Target, Cells(9, 3)) Is Nothing Then 動作しませんでした。 インターネット上に載せてくれている方の情報では range用　みたいなことを書いてあるのを見たのですが、 やはりこの方法ではうまくいかないでしょうか？ よろしくお願いします。

  • エクセル　ダブルクリックで処理日の入力

    お世話になります。 先般、お教え頂きました別のダブルクリックイベントプロシージャと 下記の当日の日付を入力するという処理を同じシート上で行いたいのですが、ＶＢエディターにどのように記述したら良いかわかりません。 当方、かなりの初心者です。 よろしくご教授くださいませ。 【新しく加えたい処理】 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("b4:C999")) Is Nothing Then Exit Sub If ActiveCell = "" Then ActiveCell = Date Cancel = True End If End Sub 【もともと使っている処理】 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("h1:h999")) Is Nothing Then With Target If .Value = "" Then .Value = "有" ElseIf .Value = "有" Then .Value = "無" ElseIf .Value = "無" Then .Value = "" End If End With ElseIf Not Intersect(Target, Range("i1:i999")) Is Nothing Then With Target If .Value = "" Then .Value = "要" ElseIf .Value = "要" Then .Value = "不要" ElseIf .Value = "不要" Then .Value = "" End If End With End If End Sub よろしくお願いします。

  • エクセルマクロvbのchangeイベントで複数入力した時フリーズして困っています

    マクロ初心者で困っています。 セルに『新規』と入力すると、Ｔ２セルに『Ｆ』と表示されるようにしたのですが、 『新規』をコピーして複数セルに貼り付けると貼り付けた状態のままパソコンが動かなくなってしまいます。 複数のセルがchangeした場合、マクロを終了する方法はないでしょうか？ 教えて下さいm(_ _)m Private Sub Worksheet_Change(ByVal Target As Range) Dim tr As Integer Dim x As String If Intersect(Target, Range("H4:H253")) Is Nothing Then Exit Sub x = Target.Value tr = Target.Row If x = "" Then Exit Sub If x = "新規" Then Range("T2") = "F" 　 End sub

  • エクセル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ペコッ

  • VBA 範囲選択時エラー

    Private Sub Worksheet_SelectionChangeのVBAでA列B列C列でワンクリックで文字が入力できるように設定致しました。 その後、A列からC列を範囲選択してDeleteするとデバック　「実行時エラー　 型が一致しません」と出てしまいます。業務上、そのセルのデータは一気に消したいので困っております。どなたか分かる方よろしくお願い致します。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, rng_1 As Range, rng_2 As Range Application.EnableEvents = False Set rng_1 = Range("H17:H100") Set rng_2 = Range("I17:I100") Set rng_3 = Range("J17:J100") Set rng_4 = Range("K17:K100") Application.EnableEvents = True Set rng = Intersect(Target, rng_1) If Not rng Is Nothing Then Cancel = True If Target.Value = "" Then Target.Value = "(1)" Else Target.Value = "(1)" End If Else Set rng = Intersect(Target, rng_2) If Not rng Is Nothing Then Cancel = True If Target.Value = "(2)" Then Target.Value = Empty Else Target.Value = "(2)" End If Else Set rng = Intersect(Target, rng_3) If Not rng Is Nothing Then Cancel = True If Target.Value = "(3)" Then Target.Value = Empty Else Target.Value = "(3)" End If Else Set rng = Intersect(Target, rng_4) If Not rng Is Nothing Then Cancel = True If Target.Value = "(4)" Then Target.Value = Empty Else Target.Value = "(4)" End If End If End If End If End If End Sub

  • エクセルでセルの入力履歴をコメントで表示させる

    お世話になります　エクセルを勉強しているものです。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub myTime = "入力月日・時刻" & Chr(10) & Month(Date) & "月" & Day(Date) & "日" myTime = myTime & Chr(10) & Hour(Time) & ":" & Second(Time) Target.AddComment myTime End Sub を使うとコメント表示になるとあったので挑戦していますが 入力時は問題ないですが、そのセルの入力を削除してまた入力するとエラーになります。 これを回避する方法はありますか？　

  • 数値の入ったセルの色分け

    エクセル（2003）で数値の入ったセルを色分けしたいです。 色んなサイトを見て下記を書いてみましたが 数値を入力すると色が変わるのですが 別のところから数値をコピーペーストすると色が変わりません。 マクロでもVBAでもなんでもかまいません。 数値を5種類に分けてセルの色を変える方法を教えていただきたいです。 宜しくお願いいたします。 Private Sub Worksheet_Change(ByVal Target As Range) Dim myNO As Integer With Target If .Count > 1 Then Exit Sub If IsEmpty(.Value) Then Exit Sub If Not Application.Intersect(Target, Range("A1:AX51")) Is Nothing Then Select Case .Value Case Is <= 54: myNO = 3 Case 55 To 79: myNO = 39 Case 80 To 104: myNO = 4 Case 105 To 119: myNO = 33 Case Is >= 120: myNO = 6 End Select .Interior.ColorIndex = myNO End If End With End Sub

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する