標題: [發問] Worksheet_Change 條件觸發問題 [打印本頁]

---

作者: cw3076    時間: 2015-11-26 23:35     標題: Worksheet_Change 條件觸發問題

請益,

在指定的欄位 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    時間: 2015-11-27 05:31

回復 1# cw3076

[attach]22626[/attach]

如果使用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    時間: 2015-11-27 22:20

Dear GBKEE 版大,

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)