標題: [發問] 下拉式選單連結的儲存格無法啟動Worksheet_change [打印本頁]

---

作者: Joker33006    時間: 2011-2-26 00:32     標題: 下拉式選單連結的儲存格無法啟動Worksheet_change

小弟想做一個簡單的訂單介面，如下圖。
[attach]4871[/attach]
如圖所示，
我用ActiveX控制項做了一個下拉式選單，
並將內建的LinkedCell設定在G6。
底下是我的程式碼，如果我直接在G6輸入文字，Sub就會運作，
所以Sub應該沒問題。
但如果是我從下拉式選單內做選擇，雖然文字一樣會顯示在G6，
但是Sub就不會運作了。

• Private Sub Worksheet_Change(ByVal Target As Range)
  
• Dim irow As Integer
  
•    If Target.Column = 7 And Target.Row >= 5 Then
  
•       irow = Target.Row
  
•       Sheet4.Cells(irow, 9).Value = Application.WorksheetFunction.VLookup(Target.Value, Sheet2.Range("b:K"), 3, False)
  
•      End If
  
• End Sub
  

我Google過，也在論壇上爬過文，
但因為沒有頭緒是哪個環節出問題，加上又是新手，
所以找不到關鍵所在。
可以麻煩前輩們幫我看一下問題是出在哪嗎? 感恩。

---

作者: Joker33006    時間: 2011-2-26 02:26

本帖最後由 Joker33006 於 2011-2-26 02:32 編輯

剛剛自己試了一陣子，問題解決了。
我加了一個Sub就能正常運作。

Private Sub ComboBox1_Change()
Shee4.[G6].Value = Sheet4.[g6].Value
End Sub

不過這樣就太累贅了，而且也不知道為什麼會發生之前的問題，
還是希望有大大能解答我的疑惑。

---

作者: GBKEE    時間: 2011-2-28 17:42

回復 2# Joker33006

改成這樣可以嗎?
   

1. Private Sub ComboBox1_Change()
   
2.   Dim irow As Integer
   
3. irow = Range(ComboBox1.LinkedCell).Row
   
4. Sheet4.Cells(irow, 9).Value = Application.WorksheetFunction.VLookup(ComboBox1, Sheet2.Range("b:K"), 3, False)
   
5. End Sub

複製代碼

---

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