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

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兔年全勤獎章

2^#

發表於 2013-3-22 13:24 | 只看該作者

回復 1# symis
看不懂你的說明!請傳上範例檔案,會清楚些.

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

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

3^#

發表於 2013-3-22 14:38 | 只看該作者

本帖最後由 symis 於 2013-3-22 14:41 編輯

顯示方式: 如圖:

謝謝!

Symis

http://upload.pmp4.net/view/g/20130322113919vt2q1.jpg.html

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

4^#

發表於 2013-3-22 14:38 | 只看該作者

Symis

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

5^#

發表於 2013-3-22 14:47 | 只看該作者

不好意思,3f的c5的14是多打的,故4f也是錯的
我重傳好了

Symis

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兔年全勤獎章

6^#

發表於 2013-3-22 17:38 | 只看該作者

回復 5# symis
是這樣嗎?

Option Explicit
Sub Ex()
Dim Rng As Range, i As Integer, e As Range
Set Rng = Range("A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9")
'Set Rng = Selection '或是工作表上選定的儲存格
For i = 1 To Rng.Areas.Count
'Areas 屬性套用至範例特定傳回 Areas 集合，此集合代表多重範圍中的所有範圍。唯讀。
'Count 屬性。傳回集合物件中物件數目。唯讀 Integer。
For Each e In Rng.Areas(i)
e.Value = e.Address '不知你要動輸入??資料
Next
Next
End Sub

複製代碼

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

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

7^#

發表於 2013-3-25 15:52 | 只看該作者

是的GBKEE 大,很感謝您
現在又有另一個需求: 類似像5f的圖,但是並不事先預定要輸入的範圍,而是輸入第每一格後,按tab到一下格,直到最底下為止。
這個需求我自己想一下,謝謝!

Symis

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兔年全勤獎章

8^#

發表於 2013-3-25 16:10 | 只看該作者

回復 7# symis
不事先預定要輸入的範圍
範圍是哪裡:須說明一下

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

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

9^# 倒序看帖

打印

字體大小: 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

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

10^#

發表於 2013-3-28 17:02 | 只看該作者

請問:
1. 在自動輸入的過程中,程式要怎知道哪一格有下拉式選單?
2. 知道了以後,程式要如何自動選擇第一項?
謝謝!

Symis