Excel VBA 用textbox新增表單資料問題
- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
回復 3# Sofie
Private Sub CommandButton1_Click()
n = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row + 1 '往最後有資料列+1貼上
If Range("b" & n) = "" Then
Sheets("Sheet1").Range("b" & n).Value = TextBox1.Value
End If
If Range("c" & n) = "" Then
Sheets("Sheet1").Range("c" & n).Value = TextBox2.Value
End If
End Sub |
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
回復 5# Sofie
If Range("B" & n) = "" And TextBox2.Value > 60 Then
If Range("C" & n) = "" And TextBox2.Value > 60 Then
判斷年齡的地方錯了....
從20列開始新增..沒想到怎麼做
因為目前是以第20列+最後一列的總列數 所以中間會一直空很大格 |
|
|
|
|
|
|
|
發表於 2016-5-20 10:42
| 