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兔年全勤獎章
7# 跳轉到 »
發表於 2013-3-22 17:38 | 只看該作者
回復 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

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
6#
發表於 2013-3-22 14:47 | 只看該作者
不好意思,3f的c5的14是多打的,故4f也是錯的
我重傳好了
Symis

TOP

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
5#
發表於 2013-3-22 14:38 | 只看該作者
http://upload.pmp4.net/view/g/20130322113919vt2q1.jpg.html
Symis

TOP

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
4#
發表於 2013-3-22 14:38 | 只看該作者
本帖最後由 symis 於 2013-3-22 14:41 編輯

顯示方式: 如圖:

謝謝!
Symis

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2013-3-22 13:24 | 只看該作者
回復 1# symis
看不懂你的說明!請傳上範例檔案,會清楚些.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
2#
發表於 2013-3-22 11:12 | 只看該作者

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

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
12
返回列表 上一主題