標題: 上次錯誤,重新整理, 如何把資料自動填入工作表2 [打印本頁]

---

作者: 周大偉    時間: 2011-4-7 23:52     標題: 上次錯誤,重新整理, 如何把資料自動填入工作表2

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

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

[attach]5283[/attach]

---

作者: Hsieh    時間: 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

複製代碼

---

作者: 周大偉    時間: 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

---

作者: ANGELA    時間: 2011-4-8 10:39

Sheets("sheet2").[A4].Resize(, 10) = ar

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

---

作者: Hsieh    時間: 2011-4-8 10:41

回復 3# 周大偉
這種問題太多了，請確實瞭解程式碼意義
以前也都有過解釋，請多爬文
以後這樣問題不再回覆

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)