VBA-选择指定的范围后，在下一个单元格上调用函数

Question

我有一个空单元格范围，例如：A1到A5

每当A1到A5单元格被填满时，我希望有一个私有子调用B1到B5上的函数。

知道吗？

Answer 1

因此，您将使用Worksheet Change Event+IsEmpty方法来帮助您确定"每当A1到A5单元格填满时"。对于使用工作表事件进行编程，您应该将代码放在相应的工作表对象中，而不是普通的模块对象中。下面的代码将让你启动

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A5")) Is Nothing Then
For Each cell In Me.Range("A1:A5")
If IsEmpty(cell.Value) Then
Exit Sub
End If
Next cell
'Call YourOwnFunction(......) From Here...
End If
End Sub

如果您想要单元格的任何都被填满，而不是所有单元格都被填满：

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1:A5")) Is Nothing Then
For Each cell In Me.Range("A1:A5")
If Not IsEmpty(cell.Value) Then
'Call YourOwnFunction(......) From Here...
Exit Sub
End If
Next cell      
End If      
End Sub

Answer 2

在工作表模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountA([A1:A5]) = 5 Then
'// Your code here
End If
End Sub