最近開始練習如何用VBA寫些小的介面
以方便記錄一些朋友指導教授所需的資訊
試問：如何按按鈕一次，row的數值就+1，已導致繼續換列輸入？
以下是我按鈕的寫法
Private Sub CommandButton1_Click()
row = 3
ActiveSheet.Cells(row, 1) = UserForm1.TextBox1.Text '取出品項
ActiveSheet.Cells(row, 2) = UserForm1.TextBox2.Text '取出發票號碼
ActiveSheet.Cells(row, 3) = UserForm1.TextBox3.Text '取出價格
ActiveSheet.Cells(row, 4) = UserForm1.ComboBox1.Text '取出品項的文字
If Cells(row, 4).Value <> "" And Cells(row, 3).Value <> "" And Cells(row,
2).Value <> "" And Cells(row, 1).Value <> "" _
Then row = row + 1: TextBox4.Text = row _
Else _
: MsgBox "請補足空白處" & Chr(13) & "請重新輸入", 16, "輸入錯誤1"
'TextBox4.Text = 0
End Sub

你的問題是要換到新的位置嗎 可以用.cells(r,c).select或是 .TextBox1.SetFocus 看放哪邊

再在放一個TextBox來顯示目前資料是第幾列再放一個微調按鈕 +1下一列 -1上一列

我是想按下按鈕後，把文字放到第3列，放完把row改成4以此類推，每按完一下，先將文字放到指定格子，再換行

使用「資料表單」功能應該可以做一樣的事而且更robust

謝謝樓上，把我想要的功能全部做完了，感謝

阿？你確定嗎 我剛發現在2010找不到這個功能不知道藏到哪裡去了 好像要自訂功能區才能找出來 >_<

我是將Sheet1內Z1存放的資料讀進來放到變數內經過上面的運算後，將變數+1，再放回Z1內