文書處理 - 求解VBA視窗輸入 - 電腦

前往內容


求解VBA視窗輸入

想利用VBA製作一個視窗輸入,EXCEL A欄及B欄都是單純輸入數字。


請幫忙看一下以下程式碼,使用時一直沒辦法從A3開始,而且沒辦法自動換下一行,這樣的程式碼需要怎麼修改~~拜託各位了

'1.新增資料
r = Range("A2").End(xlDown).Row + 1
Cells(r, "A") = TextBox1.Text
Cells(r, "D") = TextBox2.Text
'2.清除資料
TextBox1.Text = ""
TextBox2.Text = ""
'3.游標放在TextBox1上
TextBox1.SetFocus
您應該要由下往上找最後A欄最後一個非空白的儲存格。

所以應該將...
r = Range("A2").End(xlDown).Row + 1

這句改為...
r = Range("A" & Rows.Count).End(xlUp).Row + 1

希望有幫上忙,謝謝 ^^

1頁 (共1頁)

前往