返回列表 上一主題 發帖

上次錯誤,重新整理, 如何把資料自動填入工作表2

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-7 23:52 | 顯示全部帖子

上次錯誤,重新整理, 如何把資料自動填入工作表2

本帖最後由 周大偉 於 2011-4-8 00:04 編輯

大大好:
上次錯誤,重新整理, 如何把工作表3資料填入工作表2,
工作表3,黃色儲存格是填寫資料,當填寫後, 用者按下按鈕, 資料便填入工作表2,
而資料不斷輸入, 故工作表2資料不斷向下填寫新增,
請大大們教導, 附件

bb.rar (5.44 KB)
收藏 分享

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
2#
發表於 2011-4-8 07:10 | 顯示全部帖子
大大, 早晨
謝謝協助, 有一問題, 資料可以輸入, 但當輸入資新資料時, 是覆蓋原有資料, 可否做到在工作表3輸入新資料, 而在工作表2, 資料接住上筆資料往下又延續, 謝謝!
Private Sub CommandButton2_Click()
Dim ar(10)
For i = 6 To 24 Step 2
  ar(s) = Cells(i, 5).Value
  s = s + 1
Next
Sheets("sheet2").[A4].Resize(, 10) = ar
End Sub

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題