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

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

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

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-1-7 17:00 | 顯示全部帖子

這種目的應該用Worksheet_Change事件而不是Worksheet_SelectionChange事件。

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

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-1-10 13:38 | 顯示全部帖子

If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
這行是限定對單一儲存格輸入同時輸入的欄位必須是b欄才會執行動作。
你若拿掉會在任何地方輸入或改變時都執行。

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2011-1-10 18:40 | 顯示全部帖子

例如a1與b1儲存格都是文字不是數字，不能做運算。
程式碼：
On Error Resume Next
[c1] = [a1] * [b1]
這樣它不會告訴你任何錯誤訊息。

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

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