Excel VBA 用textbox新增表單資料問題
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- Office
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-4-10
- 最後登錄
- 2016-7-11
|
Excel VBA 用textbox新增表單資料問題
大家好~
最近才開始學習VBA，想要設計textbox來新增表單資料，目前寫的程序可以執行，但是都會蓋掉第一列的標題欄，想請問該如何修改才能讓資料直接從第二列開始依序往下新增，謝謝!
 Book.zip (22 Bytes)
|
-
-
Book.zip
(22 Bytes)
|
|
|
|
|
|
|
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- Office
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-4-10
- 最後登錄
- 2016-7-11
|
|
|
|
|
|
|
|
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- Office
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-4-10
- 最後登錄
- 2016-7-11
|
回復 4# starry1314
感謝回覆!
後來我繼續延伸問題，想按年齡級距於不同起始列新增資料，比如說年齡大於60歲的從第20列開始新增，
步驟1. key 張XX 12
步驟2. key 林OO 65
步驟3. key林OO 24
但是當年齡大於60的資料進來之後，第三筆小於60歲的資料就會跟著步驟3的結果往下新增，而不是從步驟1的結果往下，
想請問我少判斷了什麼地方，謝謝~
- Private Sub CommandButton1_Click()
- n = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row + 1 '往最後有資料列+1貼上
-
- If Range("b" & n) = "" And TextBox2.Value > 60 Then
-
-
- Sheets("Sheet1").Range("b" & 20 + n).Value = TextBox1.Value
-
-
- Sheets("Sheet1").Range("c" & 20 + n).Value = TextBox2.Value
-
- Else
-
- Sheets("Sheet1").Range("b" & n).Value = TextBox1.Value
-
-
- Sheets("Sheet1").Range("c" & n).Value = TextBox2.Value
-
- End If
-
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 4
- 主題
- 1
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- Office
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2016-4-10
- 最後登錄
- 2016-7-11
|
回復 6# starry1314
回復 7# koo
回復 8# ML089
感謝各位前輩的分享，目前使用koo大的方法可行! |
|
|
|
|
|
|
|
發表於 2016-5-19 15:03
| 
）
