如何將VBA表單裡的內容設定新增到指定的SHEET

Jolie H

Jolie H
個人積分：11分
文章編號：63331961

11分

樓主

2017-02-14 3:04

請問各位大大

我已經用VBA將表單跟按鈕製作好,
但是就是不知道該如何讓表單輸入的好資料存到我要的SHEET欄位裡

請各位內行的大大們解解惑

2017-02-14 3:04 發佈

文章關鍵字 VBA表單 sheet 內容

hub

hub
個人積分：5分
文章編號：63332784

5分

2樓

2017-02-14 8:54

Private Sub CommandButton1_Click()
Sheets("工作表1").Cells(1, 1) = TextBox1.Text
End Sub

Jolie H

Jolie H
個人積分：11分
文章編號：63336297

11分

樓主

2017-02-14 13:23

cells(1,1)指的是輸入的欄位嗎

我上YOUTUBE看教學
寫出
r = Range("A3").End(xlDown).Row + 1
Cells(r, "A") = cmbA.Text
Cells(r, "B") = TextBox1.Text
Cells(r, "C") = cmbC.Text
Cells(r, "D") = cmbE.Text
Cells(r, "E") = cmbF.Text

是錯誤的
(cmbA.cmbC.cmbE.cmbF是下拉式選項的名稱,TextBox1是姓名輸入欄的名稱)

Jolie H

Jolie H
個人積分：11分
文章編號：63336431

11分

樓主

2017-02-14 13:34

hub wrote:
Private Su...(恕刪)

Jolie H

Jolie H
個人積分：11分
文章編號：63340298

11分

樓主

2017-02-14 19:35

Private Sub CommandButton1_Click()
Range("A2").Select
Selection.End(xlDown).Select

Sheets("LeaveApplication").Range("A" & ActiveCell.Row + 1) = cmbA.Text
Sheets("LeaveApplication").Range("B" & ActiveCell.Row + 1) = TextBox1.Text
Sheets("LeaveApplication").Range("C" & ActiveCell.Row + 1) = cmbC.Text
Sheets("LeaveApplication").Range("D" & ActiveCell.Row + 1) = cmbE.Text
Sheets("LeaveApplication").Range("E" & ActiveCell.Row + 1) = cmbF.Text
If Application.Value = TURE Then Sheets("LeaveApplication").Range("F" & ActiveCell.Row + 1) = "Application"
If Cancel.Value = TURE Then Sheets("LeaveApplication").Range("F" & ActiveCell.Row + 1) = "Cancel"

End Sub

寫入會出現在第5列
新增第2筆卻又會把第一次輸入的資料蓋過

snare

snare
個人積分：3057分
文章編號：63341713

3057分

6樓

2017-02-14 22:21

Jolie H wrote:
寫入會出現在第5列
新增第2筆卻又會把第一次輸入的資料蓋過...(恕刪)

Private Sub CommandButton1_Click()

lastrow = Sheet1.Range("a1").CurrentRegion.Rows.Count + 1
Sheets("sheet1").Cells(lastrow, 1) = ComboBox1.Text
Sheets("sheet1").Cells(lastrow, 2) = TextBox1.Text
Sheets("sheet1").Cells(lastrow, 3) = ComboBox2.Text
Sheets("sheet1").Cells(lastrow, 4) = ComboBox3.Text
Sheets("sheet1").Cells(lastrow, 5) = ComboBox4.Text

End Sub

Jolie H

Jolie H
個人積分：11分
文章編號：63342500

11分

樓主

2017-02-14 23:53

snare wrote:
Private Sub...(恕刪)

還是沒辦法

snare

snare
個人積分：3057分
文章編號：63342781

3057分

8樓

2017-02-15 0:28

Jolie H wrote:
還是沒辦法...(恕刪)

程式碼100%正確
如果您没有思考一下,只是複製→貼上。
照抄程式碼到您的表單，當然不行
原因我不想解釋