12
返回列表 上一主題 發帖

[發問] EXCEL VBA．如何自動輸入資料(以tab跳下一格)

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2013-3-28 19:19 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
12#
發表於 2013-4-3 11:36 | 只看該作者
感謝GBKEE的教導,
我漏看本貼有第2頁,所以一直在等人回覆... 真是不好意思!
另外我對於 下拉選單 和 驗證清單, 傻傻分不清楚, 請問二者如何區別? (看起來都是combobox ? )
另外,對於您的code,我執行後,出現錯誤,圖片如下:

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

TOP

barrykuo

帖子
39 
主題
4 
精華
0 
積分
48 
點名
0  
作業系統
windows 7 
軟體版本
sp1 
閱讀權限
10 
性別
男 
註冊時間
2013-2-2 
最後登錄
2014-8-26 
13#
發表於 2013-4-4 10:05 | 只看該作者
  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的'去掉。
人生只有三天，只有活在今天最踏實

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2013-4-4 12:56 | 只看該作者
回復 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 這註解是說明也可以: 設定變數=工作表上所選擇的作用中儲存格範圍
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2013-4-4 15:04 | 只看該作者
本帖最後由 GBKEE 於 2013-4-4 15:06 編輯

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






如需上傳檔案  如圖:



資料驗證




下拉清單  ComboBox 控制項

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
16#
發表於 2013-4-9 11:04 | 只看該作者
感謝GBKEE 超級版大,您真的很適合當老師或教授,在這裡有點大才小用,埋沒人才啦!
請問:
1. 若要執行巨集後,讓程式自動輸入每一格,程式要怎知道哪一格有資料驗證清單或下拉式選單?
2. 知道了以後,程式要如何自動選擇 選單的第一項?
謝謝!
另外,(題外話)
不大了解,為何一定要按「回復」按鈕,參與者才能收到通知? 「引用」不行嗎? 「快速回復」不行嗎?
一般會以為只要留言,有設定接收通知的人都會收到才是。
Symis

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
12
返回列表 上一主題