GBKEE

回復 10# symis
在你的檔案中,不是下拉選單應是驗證清單.
預設工作表中移動儲存格的事件

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Not Target.Validation Is Nothing Then Target = Split(Target.Validation.Formula1, ",")(0)
   
4. End Sub

複製代碼

下載 (17.93 KB)

2013-3-28 19:19

symis

感謝GBKEE的教導,
我漏看本貼有第2頁,所以一直在等人回覆... 真是不好意思!
另外我對於 下拉選單 和 驗證清單, 傻傻分不清楚, 請問二者如何區別? (看起來都是combobox ? )
另外,對於您的code,我執行後,出現錯誤,圖片如下:

(註: 奇怪,用本網的圖片上傳功能,都不能成功,超慢)
excel檔案如下:
http://www.funp.net/599274

barrykuo

1. Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
   
2.     'Set Rng = Selection

複製代碼

請問GBKEE大大，您寫'Set Rng = Selection意思是，在Excel執行中選擇儲存格，可以設定Rng等於選定的儲存格嘛？如果把'Set Rng = Selection的'去掉。

GBKEE

回復 14# barrykuo
Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
設定變數="A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9"這些範圍
'Set Rng = Selection 這註解是說明也可以: 設定變數=工作表上所選擇的作用中儲存格範圍

GBKEE

回復 12# symis
你的圖示是系統 要求你要更新參照
檔案中有名稱定義=INVKind_13  參照到其他活頁簿  ->    ='C:\work\租稅減免附冊\Sample檔\[101txt_3.xlsm]清單選項'!$D$52:$D$54

下載 (12.45 KB)

2013-4-4 15:02

如需上傳檔案  如圖:

下載 (31.81 KB)

2013-4-4 15:00

資料驗證

下載 (62.48 KB)

2013-4-4 15:01

下拉清單  ComboBox 控制項

下載 (55.57 KB)

2013-4-4 15:03

symis

感謝GBKEE 超級版大,您真的很適合當老師或教授,在這裡有點大才小用,埋沒人才啦!
請問:
1. 若要執行巨集後,讓程式自動輸入每一格,程式要怎知道哪一格有資料驗證清單或下拉式選單?
2. 知道了以後,程式要如何自動選擇 選單的第一項?
謝謝!
另外,(題外話)
不大了解,為何一定要按「回復」按鈕,參與者才能收到通知? 「引用」不行嗎? 「快速回復」不行嗎?
一般會以為只要留言,有設定接收通知的人都會收到才是。