[發問] Worksheet_Change 條件觸發問題

cw3076

請益,

在指定的欄位 B3:B7 使用下拉選單可完成條件觸發帶入以下的 i 值到工件表，
但是如果使用Keyin方式則無法帶入 i 值．
B3:B7 有使用資料驗證，附上sample ，煩請先進提點．感謝

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B7")) Is Nothing Then
        i = Worksheets("Defect Code").[A:A].Find(ActiveCell.Value).Offset(, 1).Resize(, 2)
        Range(Target.Address).Offset(, 1).Resize(, 2) = i
    End If
End Sub

GBKEE

回復 1# cw3076

下載 (89.47 KB)

2015-11-27 05:30

如果使用Keyin後按下Enter  ActiveCell <> Target

試試看

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim i As Variant
   
4.     If Not Intersect(Target, Range("B3:B7")) Is Nothing Then
   
5.         i = Worksheets("Defect Code").[A:A].Find(Target.Value).Offset(, 1).Resize(, 2) '下拉ok
   
6.         Target.Offset(, 1).Resize(, 2) = i
   
7.     End If
   
8. End Sub

複製代碼

cw3076

Dear GBKEE 版大,

   卝常感謝指導，可以解決問題．謝謝~