間斷輸入時如何讓程式也可以帶出資料 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 間斷輸入時如何讓程式也可以帶出資料

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

間斷輸入時如何讓程式也可以帶出資料

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

1^# 跳轉到 »

發表於 2011-1-11 21:41 | 顯示全部帖子

回復 7# hugh0620

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 2 Then
Exit Sub
End If
On Error Resume Next
Target(1, 2) = Sheet2.[B:b].Find(Target)(1, 2).Value
Target(1, 3) = Sheet3.[B:b].Find(Target(1, 2))(1, 2).Value
End Sub

複製代碼

另外按鍵問題,要回到傳統的sub(),這樣做會很麻煩

80 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 君子為目標，小人為目的。

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