標題: Private Sub Worksheet_Change(ByVal Target As Range)怎麼用?? [打印本頁]

---

作者: color790    時間: 2012-1-19 00:19     標題: Private Sub Worksheet_Change(ByVal Target As Range)怎麼用??

剛在網路上有發現oobird版主這個好用程式, 但怎麼用了沒有反應, 有人可以幫忙看一下嗎? 感恩~~~
Private Sub Worksheet_Change(ByVal Target As Range)
x = "J11,K11,L11,M11"
If InStr(x, Target.Address(0, 0)) > 0 Then [D4] = ActiveCell.Value
End Sub

---

作者: register313    時間: 2012-1-19 00:36

回復 1# color790

程式碼沒有問題
先了解該程式之功能 再操作檔案
[attach]9261[/attach]

---

作者: GBKEE    時間: 2012-1-19 08:17

回復 1# color790
工作表的輸入後 儲存格會依 指令:工具->選項->編輯 的選項: 按Enter鍵後,移動選取的範圍  
請修為  If InStr(x, Target.Address(0, 0)) > 0 Then [D4] = Target.Value
Target 是程式所傳回的儲存格          ActiveCell  是作用中的儲存格
If InStr(x, Target.Address(0, 0)) > 0 Then [D4] = ActiveCell.Value
此程式碼有效 如圖  在編輯列 輸入後 勾選  儲存格會停留在此儲存格  


[attach]9263[/attach]

---

作者: color790    時間: 2012-1-19 09:53

本帖最後由 color790 於 2012-1-19 09:59 編輯

謝謝大家回答, 但....主要是為了方便, 所以這幾個儲存格都已事先寫好數字或文字, [D4]後面再做變化
比如[d4],[d5]....   [f4][f5].......
還是說有....."在編輯列 輸入後 勾選" 的巨集, 用錄的好像都看不出來

還是直接做button.....

---

作者: color790    時間: 2012-1-19 16:53

原來我需要的是
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sorry,  謝謝大家的回答

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)