VBA Excel - 如果范围内有任何单元格

Question

我需要一个 MsgBox 来显示 一次如果某个范围内的任何单元格(在这种情况下为 F 列)在数字范围内(46 和 80)。下面是我认为可以工作的代码，但它没有做任何事情。我很确定我的 If 语句是错误的，但我不知道它需要是什么。

Sub CheckNumber()
Dim Lastrow As Integer
Dim srchRng As Range

Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Set srchRng = Range(Cells(84, 6), Cells(Lastrow, 6))

Dim InputValue As String

If WorksheetFunction.CountA(srchRng) > 46 And WorksheetFunction.CountA(srchRng) < 80 Then
frmCMCapsHS.Show
End If
End Sub

Answer 1

改变

If WorksheetFunction.CountA(srchRng) > 46 And WorksheetFunction.CountA(srchRng) < 80 Then
frmCMCapsHS.Show
End If

至

If WorksheetFunction.CountIfs(srchRng, ">46", srchRng, "<80") > 0 Then
frmCMCapsHS.Show
End If