返回列表 上一主題 發帖

上次錯誤,重新整理, 如何把資料自動填入工作表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)
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
249  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-17 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-4-8 00:28 | 只看該作者
  1. Private Sub CommandButton2_Click()
  2. Dim ar(10)
  3. For i = 6 To 24 Step 2
  4.   ar(s) = Cells(i, 5).Value
  5.   s = s + 1
  6. Next
  7. Sheets("sheet2").[A4].Resize(, 10) = ar
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
3#
發表於 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

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
4#
發表於 2011-4-8 10:39 | 只看該作者
Sheets("sheet2").[A4].Resize(, 10) = ar

Sheets("sheet2").[A65536].End(3).Offset(1, 0).Resize(, 10) = ar

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
249  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-17 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-4-8 10:41 | 只看該作者
回復 3# 周大偉
這種問題太多了，請確實瞭解程式碼意義
以前也都有過解釋，請多爬文
以後這樣問題不再回覆

    Sheets("sheet2").[A65536].End(Xlup).Offset(1,0).Resize(, 10) = ar
學海無涯_不恥下問

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題