標題: [發問] VBA userform textbox 值的傳送 [打印本頁]

---

作者: s13030029    時間: 2019-6-25 11:51     標題: VBA userform textbox 值的傳送

tb1是要傳送的值，我想要讓tb2來控制輸入的次數，但是要怎樣才能讓資料一直往下輸入，而不洗掉前面的?
[attach]30929[/attach]

---

作者: ciboybj    時間: 2019-6-25 21:30

回復 1# s13030029
一點建議供你參考
在你的FOR迴圈前 先取得A欄最後一筆的列數 （變數K）
接著 把原本FOR迴圈中 CELLS(1,A)改成 CELLS(K,A)

---

作者: n7822123    時間: 2019-6-26 00:08

本帖最後由 n7822123 於 2019-6-26 00:22 編輯

回復 1# s13030029


你沒給檔案，我不知道工作表名稱，隨便取一個工作表名稱，你自己改吧

Set sht = Sheets("工作表1") '自己改要填入值的工作表名稱
n& = sht.UsedRange.Rows.Count '該工作表有資料的列數
If n = 1 And sht.[A1] = "" Then n = 0 '若[A1]無資料UsedRange.Rows.Count也會給1，所以n要改為0
For i = n + 1 To n + tb2.Value '從n+1開始，往下填，無資料:n=0
  Cells(i, "A") = tb1.Value
Next

---

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