以下通過在目標單元格中??輸入值時添加公式來完成我想要的操作，然后在單元格為空時洗掉所述值。
但是，如果我要右鍵單擊并洗掉目標范圍內的該行，我會一直遇到除錯錯誤，有沒有辦法防止這種情況發生？
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C11:C1000")) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, -1).Formula = "=VLOOKUP(" & Target.Address & ",UIDs!$F$3:$H$750,3,FALSE)"
Else:
Target.Offset(0, -1).Value = ""
End If
End If
End Sub
除錯錯誤：
然后，If Target.Value <> "" Then如果我單擊除錯，它會帶我去。
uj5u.com熱心網友回復：
您可以確認這Target只是 1 個單元格（因為它會比洗掉一行時更多）：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C11:C1000")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value <> "" Then
Target.Offset(0, -1).Formula = "=VLOOKUP(" & Target.Address & ",UIDs!$F$3:$H$750,3,FALSE)"
Else
Target.Offset(0, -1).Value = ""
End If
Application.EnableEvents = True
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/490344.html