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

symis

工作表中,有不規則的cell要輸入測試資料,數量很多,假設是:(A1:C1,F1:H1,A3:C3,F3:H3,B5:B7,D5:D7,E5:E7,A8,C9:D9)
請問如何能讓電腦自動輸入資料?
輸入的資料從1開始,逐次加1即可,這樣無論文字或數字皆可適用
(唯一會有問題的是日期欄位,輸入的數字可能會不合法,故暫不考慮,還是有高人有解?)
謝謝!

GBKEE

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

symis

顯示方式: 如圖:

下載 (42.47 KB)

2013-3-22 14:40

謝謝!

symis

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

symis

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

下載 (46.19 KB)

2013-3-22 14:47

GBKEE

回復 5# symis
是這樣嗎?

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

複製代碼

symis

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

GBKEE

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

symis

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

symis

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