作者soracho (空)
看板Visual_Basic
標題[VBA ] 如何每按一下按鈕就換行
時間Mon Jan 26 17:50:16 2015
最近開始練習如何用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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.224.162.226
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1422265818.A.678.html
推 tsongs: 你的問題是要換到新的位置嗎 可以用.cells(r,c).select 01/26 18:42
→ tsongs: 或是 .TextBox1.SetFocus 看放哪邊 01/26 18:44
推 potawei: 再在放一個TextBox來顯示目前資料是第幾列 01/26 20:51
→ potawei: 再放一個微調按鈕 +1下一列 -1上一列 01/26 20:52
→ soracho: 我是想按下按鈕後，把文字放到第3列，放完把row改成4 01/26 22:37
→ soracho: 以此類推，每按完一下，先將文字放到指定格子，再換行 01/26 22:38
→ MOONRAKER: 使用「資料表單」功能應該可以做一樣的事而且更robust 01/27 08:59
→ soracho: 謝謝樓上，把我想要的功能全部做完了，感謝 01/27 10:26
→ MOONRAKER: 阿？你確定嗎 我剛發現在2010找不到這個功能 01/27 12:01
→ MOONRAKER: 不知道藏到哪裡去了 好像要自訂功能區才能找出來 >_< 01/27 12:02
→ soracho: 我是將Sheet1內Z1存放的資料讀進來放到變數內 01/29 00:05
→ soracho: 經過上面的運算後，將變數+1，再放回Z1內 01/29 00:07