Question

我正在通过 click事件从网站导入货币数据。

导入工作及其通过以下代码进行调用：

Option Explicit

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("F13")) Is Nothing Then
        Call GetCurrency
    End If
End If
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("F14")) Is Nothing Then
        Call UpdateCurrency
    End If
End If
End Sub

如果单击单元格F13，则运行GetCurrency宏，导入数据，非常棒。

但是单击F14不会导致任何结果。

更新货币宏看起来像这样

Sub UpdateCurrency()

Range("N15").Value = Range("I19").Value
Range("N14").Value = Range("I26").Value
Range("N16").Value = Range("I22").Value

 End Sub

这应该只更新其他一些单元格，以使另一个公式正常工作。问题是，为什么单击单元格F14不能运行UpdateCurrency函数？

Answer 1

它认为您需要稍微更改if语句。

Option Explicit

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Selection.Count = 1 Then
    If Target = Range("F13") Then
        If Not Intersect(Target, Range("F13")) Is Nothing Then
            Call GetCurrency
        End If
     Else
            If Not Intersect(Target, Range("F14")) Is Nothing Then
                Call UpdateCurrency
            End If
        End If
    End If
End Sub

一个宏在运行，另一个不在

1 个答案: