返回列表 上一主題 發帖

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

excel 2007 vba 如何寫自動輸入資料的code?

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

TOP

回復 1# symis
看不懂你的說明!請傳上範例檔案,會清楚些.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

顯示方式: 如圖:
scn-AutoInput範例2.jpg
2013-3-22 14:40

謝謝!
Symis

TOP

Symis

TOP

不好意思,3f的c5的14是多打的,故4f也是錯的
我重傳好了
scn-AutoInput範例.jpg
2013-3-22 14:47
Symis

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

TOP

回復 7# symis
不事先預定要輸入的範圍
範圍是哪裡:須說明一下
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

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

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

TOP

        靜思自在 : 滴水成河。粒米成蘿,勿輕己靈,勿以善小而不為。
返回列表 上一主題