在指定列的任何行中输入"TAK"值后打开新工作簿

Question

我想当某人输入单词"TAK"时在特定位置打开工作簿。在C列(从C2开始)

最终，许多人会在那里添加值，所以c列中会有越来越多的这样的行。每次用户键入&;tak &;，我希望打开一个特定的工作簿。

此刻我的代码看起来像这样，不工作-你能帮助吗?

Sub add_ticket()

Dim SrchRng As Range, cel As Range 
Set SrchRng = Range("C:C")

For Each cel In SrchRng
If cel.Value = "TAK" Then
Workbooks.Open "HERE IS THE LOCALIZATION OF FILE TO OPEN"
End If Next cel

End Sub

Answer 1

一个简单的例子是

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$C2:$C999")) Is Nothing Then
If Target.Value = Trim("TAK") Then
Debug.Print Target.Address & " Opening Workbook" ' Immediate window
Application.Workbooks.Open ("D:Temptest.xlsx")
End If
End If

End Sub