VBA測試如果單元格在一個範圍內

Question

我想測試給定的單元格是否在Excel VBA中的給定範圍內。做這個的最好方式是什麼？

Answer 1

Determine if a cell is within a range using VBA in Microsoft Excel：

從鏈接網站（保持信貸最初的提交者）：

VBA宏尖貢獻的Erlandsen Data Consulting 提供Microsoft Excel應用程序的開發，模板定製， 支持和培訓解決方案

Function InRange(Range1 As Range, Range2 As Range) As Boolean 
    ' returns True if Range1 is within Range2 
    InRange = Not (Application.Intersect(Range1, Range2) Is Nothing) 
End Function 


Sub TestInRange() 
    If InRange(ActiveCell, Range("A1:D100")) Then 
     ' code to handle that the active cell is within the right range 
     MsgBox "Active Cell In Range!" 
    Else 
     ' code to handle that the active cell is not within the right range 
     MsgBox "Active Cell NOT In Range!" 
    End If 
End Sub 

Answer 2

從幫助：

Set isect = Application.Intersect(Range("rg1"), Range("rg2")) 
If isect Is Nothing Then 
    MsgBox "Ranges do not intersect" 
Else 
    isect.Select 
End If 

Answer 3

如果兩個範圍進行測試（你定單元和你給定的範圍）並不在同一個Worksheet，然後Application.Intersect拋出一個錯誤。因此，辦法避免是像

Sub test_inters(rng1 As Range, rng2 As Range) 
    If (rng1.Parent.Name = rng2.Parent.Name) Then 
     Dim ints As Range 
     Set ints = Application.Intersect(rng1, rng2) 
     If (Not (ints Is Nothing)) Then 
      ' Do your job 
     End If 
    End If 
End Sub 

Answer 4

@ mywolfe02給出了一個靜態的範圍代碼，以便他INRANGE工作正常，但如果你想添加的動態範圍，然後用這一個與他INRANGE功能。當你想填充數據來修復開始單元格和最後一列也是固定的，這會更好。

Sub DynamicRange() 

Dim sht As Worksheet 
Dim LastRow As Long 
Dim StartCell As Range 
Dim rng As Range 

Set sht = Worksheets("xyz") 
LastRow = sht.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row 
Set rng = Workbooks("Record.xlsm").Worksheets("xyz").Range(Cells(12, 2), Cells(LastRow, 12)) 

Debug.Print LastRow 

If InRange(ActiveCell, rng) Then 
'  MsgBox "Active Cell In Range!" 
    Else 
     MsgBox "Please select the cell within the range!" 
    End If 

End Sub 

Answer 5

這裏是另一種選擇以查看是否範圍內存在的細胞。如果您像我一樣遇到Intersect解決方案問題。

If InStr(range("NamedRange").Address, range("IndividualCell").Address) > 0 Then 
    'The individual cell exists in the named range 
Else 
    'The individual cell does not exist in the named range 
End If 

InStr是一個VBA函數，用於檢查一個字符串是否存在於另一個字符串中。

https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/instr-function