更改事件中的 Excel VBA 参数不是可选错误

Question

我将下面的代码放在一起，但在这一行出现“Argument not optional”错误:

If Rs >= 2 And Range.Value("Q2") = 0.2 Then

任何人都可以看到问题是什么？

Private Sub Worksheet_Calculate()
Dim Rs As Long

If Range("B2").Value = 1 And Range("Q2").Value = 0.2 Then Exit Sub
  Rs = Application.WorksheetFunction.CountIf(Range("A1:A5"), "<10")
  If Rs >= 2 And Range.Value("Q2") = 0.2 Then
   Range("B2").Value = 1
  Else
   Range("B2").Value = ""
End If

End Sub

Answer 1

尝试这个:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rs%
  If (Target.Column = 1) and (Target.Row < 6) Then
    If Not ((Range("B2").Value = 1) And (Range("Q2").Value2 = 0.2)) Then 
      Rs = Application.WorksheetFunction.CountIf(Range("A1:A5"), "<10")
      If Rs >= 2 And Range("Q2").Value2 = 0.2 Then
        Range("B2").Formula = 1
      Else
        Range("B2").ClearContents
      End If
    End If
  End If
End Sub

这是说您的范围的地址被省略了(因为“Q2”在该行中放置得太晚了)。
您可以在 https://docs.microsoft.com/en-us/office/vba/api/excel.range.value 找到这方面的文档。