返回列表 上一主題 發帖

[發問] 下拉式選單連結的儲存格無法啟動Worksheet_change

Joker33006

帖子
2 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
Vista 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
Taiwan 
註冊時間
2011-2-25 
最後登錄
2011-2-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-26 00:32 | 只看該作者

[發問] 下拉式選單連結的儲存格無法啟動Worksheet_change

小弟想做一個簡單的訂單介面，如下圖。

如圖所示，
我用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

帖子
2 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
Vista 
軟體版本
office2007 
閱讀權限
10 
性別
男 
來自
Taiwan 
註冊時間
2011-2-25 
最後登錄
2011-2-28 
2#
發表於 2011-2-26 02:26 | 只看該作者
本帖最後由 Joker33006 於 2011-2-26 02:32 編輯

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

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

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 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
複製代碼

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題