返回列表下一主題上一主題發帖

[發問] Worksheet_Change 條件觸發問題

cw3076

中學生 Rank: 2

帖子: 42
主題: 12
精華: 0
積分: 283
點名: 1
作業系統: WINDOWS XP
軟體版本: SP2
閱讀權限: 20
來自: KAOHSIUNG
註冊時間: 2010-5-8
最後登錄: 2024-2-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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