帖子: 42
主題: 13
精華: 0
積分: 61
點名: 0
作業系統: xpp-sp2
軟體版本: 2003sp2
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2017-1-24

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-3-25 17:44 | 只看該作者

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

我用的是: EXCEL 2007
檔案在:
http://www.FunP.Net/467011
執行時,開啟巨集,不開連結
內有3個sheet: 第10頁,第11頁,第13頁
我已經寫好一段vba,能自動依欄號填入資料
問題1: 因原作者的tab跳格設計不良,故在判斷上並不理想,導致可能有漏輸入的格子,該如何因應?
問題2:第13頁已經能自動輸入白底的格子,黃底格不用輸入,請問,綠底格為下拉式選單,或日期格式,要怎樣才能自動輸入?
我想: 遇下拉式選單,一律選第一項,遇年月日,一律填99/12/31
感謝!

樓主熱帖

Symis

symis

中學生 Rank: 2

帖子: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

barrykuo

小學生 Rank: 1

帖子: 39
主題: 4
精華: 0
積分: 48
點名: 0
作業系統: windows 7
軟體版本: sp1
閱讀權限: 10
性別: 男
註冊時間: 2013-2-2
最後登錄: 2014-8-26

13^#

發表於 2013-4-4 10:05 | 只看該作者

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

複製代碼

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

人生只有三天，只有活在今天最踏實

TOP

symis

中學生 Rank: 2

帖子: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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
在你的檔案中,不是下拉選單應是驗證清單.
預設工作表中移動儲存格的事件

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

複製代碼