返回列表 上一主題 發帖

[發問] VBA userform textbox 值的傳送

[發問] VBA userform textbox 值的傳送

tb1是要傳送的值,我想要讓tb2來控制輸入的次數,但是要怎樣才能讓資料一直往下輸入,而不洗掉前面的?
擷取.JPG
2019-6-25 11:51

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

TOP

本帖最後由 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
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題