返回列表 上一主題 發帖

[發問] Worksheet_Change 條件觸發問題

cw3076

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

test.zip (27.8 KB)

收藏 分享

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
1  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2024-8-13 
3#
發表於 2015-11-27 22:20 | 只看該作者
Dear GBKEE 版大,

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2015-11-27 05:31 | 只看該作者
回復 1# cw3076



如果使用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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題