- 帖子
- 20
- 主題
- 2
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2012-11-7
- 最後登錄
- 2014-12-27
 
|
20#
發表於 2013-9-21 10:59
| 只看該作者
回復 19# GBKEE
呃...我是典型的捨近求遠...我一直還在論壇爬文 都沒看到類似的 原來在電腦說明裡
還有 我想問一下 若說 用相同的語法 但 放在不同的SHEET裡 參造的範圍也不一樣 是否可行呢
比方說 原本放在SHEET1裡的是G大所提供的- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim data As Range, Y As Variant
- Application.EnableEvents = False
- If Not Intersect(Target, [A1:A10]) Is Nothing Then
- ' Set data = ['sheet2'!$A$1:B$25]
- 'Y = Application.VLookup(Target, data, 2, 0)
- Y = Application.VLookup(Target, ['sheet2'!$A$1:B$25], 2, 0)
- Target.Offset(, 1) = IIf(IsError(Y), "", Y)
- End If
- Application.EnableEvents = True
- End Sub
- Option Explicit
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim data As Range, Y As Variant
- Application.EnableEvents = False
- If Not Intersect(Target, [D1:D10]) Is Nothing Then
-
- Y = Application.VLookup(Target, ['sheet4'!$C$1:D$25], 2, 0)
- Target.Offset(, 1) = IIf(IsError(Y), "", Y)
- End If
- Application.EnableEvents = True
- End Sub
位移數也相同 要的條件也相同 只是參造的SHEET不一樣而已 卻無法執行 不知到底是為什麼 |
|
發表於 2013-9-21 11:23
| 
