標題: [發問] 關於VBA資料存入的問題 [打印本頁]

---

作者: av8d    時間: 2011-9-19 13:57     標題: 關於VBA資料存入的問題

本帖最後由 av8d 於 2011-9-19 14:43 編輯

[attach]7880[/attach]

當資料存入後~如何讓他先針對日期判斷資料底部~然後貼上一列~
不然他會遇到空就補上去~這樣就會出錯@@
我繼續努力研究中~感謝各位大大的光臨!

---

作者: GBKEE    時間: 2011-9-19 17:13

回復 1# av8d

1. Private Sub CommandButton1_Click()
   
2.     'Dim T1 As Date, T2 As String, T3 As String, T4 As String
   
3.     'T1 = TextBox1.Value
   
4.     'Sheets("Data").[A65536].End(3)(2, 1) = T1
   
5.     Sheets("Data").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
   
6.     'Sheets("Data").Cells(Rows.Count, "A").End(3).Offset(1).Resize(1, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4)
   
7.     'Rows.Count=> 工作表 列的總數 2003版->65536 , 2007版以上 ???
   
8.     'Resize(1, 4)  該物件代表調整後的範圍。  原本為1列1欄 調整為1列4欄
   
9.     Unload Me
   
10. End Sub

複製代碼

---

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