ターゲットセルが複数のセルの範囲内にあるかどうかをテストする方法：Excel VBA

Question

私は以下のコードをオンラインで入手できましたが、今はそれを複数のセル、 "列。これはどうすればいいですか？

私は元のコードを書いていないので、それを編集する方法については適切な手がかりがありません。私が納得させたいのはTarget.Addressだと理解していますが、私が使用しようとしているロジックはデバッガのエラーにしかなりません。

Dim Oldvalue As String 
Dim Newvalue As String 

On Error GoTo Exitsub 
If Target.Address = "$I$1" Then 
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then 
    GoTo Exitsub 
    Else: If Target.Value = "" Then GoTo Exitsub Else 
     Application.EnableEvents = False 
     Newvalue = Target.Value 
     Application.Undo 
     Oldvalue = Target.Value 
     If Oldvalue = "" Then 
      Target.Value = Newvalue 
     Else 
      Target.Value = Oldvalue & ", " & Newvalue 
     End If 
    End If 
End If 
Application.EnableEvents = True 
Exitsub: 
Application.EnableEvents = True 
End Sub 

Answer 1

ナイーブなアプローチは、列Iのすべてのセルかかわらず、ループになるとTargetに対するチェックを行うだろう。簡単な方法はIntersectを使用することです。

' Set up the range you're interesting in 
Dim myRange As Range 
Set myRange = ThisWorkbook.Sheets("Sheet1").Range("I1:I100") 

' Replacing "If Target.Address = "$I$1" Then" 
If Not Intersect(myRange, Target) Is Nothing Then 
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then 
     ... 
    End If 
End If 

ただし、このタスクがどのようなものであっても、別のアプローチを見つけることは価値があります。 Application.Undoを使用すると、実際に何が行われるのかわからなくても元に戻すことができないという盲目的な呼びかけのように、いくつかの点で問題が発生するでしょう。