Excel VBA 用textbox新增表單資料問題

Sofie

大家好~

最近才開始學習VBA，想要設計textbox來新增表單資料，目前寫的程序可以執行，但是都會蓋掉第一列的標題欄，想請問該如何修改才能讓資料直接從第二列開始依序往下新增，謝謝!


Book.zip (22 Bytes)

下載次數: 4

2016-5-19 14:58

luhpro

回復 1# Sofie

壓縮檔大小只有 22 個Bytes -----> Excel檔沒加進來, 請重壓後再重傳上來.

Sofie

重新上傳附件了，感謝提醒!

執行前的表格↓

下載 (14.63 KB)

2016-5-20 09:01

執行後的表格↓（標題就被覆蓋了，想修改成從第二列開始新增資料，邏輯不太好想不出來 ）

下載 (14.8 KB)

2016-5-20 09:01

1. Option Explicit
   
2. Public n As Integer
   
3. Private Sub CommandButton1_Click()
   
4. n = n + 1
   
5.    
   
6.     If Range("b" & n) <> "" Then
   
7. 
   
8.    
   
9.     Sheets("Sheet1").Range("b" & n).Value = TextBox1.Value
   
10.    
    
11.     End If
    
12.      If Range("c" & n) <> "" Then
    
13. 
    
14.    
    
15.     Sheets("Sheet1").Range("c" & n).Value = TextBox2.Value
    
16.    
    
17.     End If
    
18. End Sub

複製代碼

Book.zip (9.86 KB)

下載次數: 12

2016-5-20 08:58

starry1314

回復 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

Sofie

回復 4# starry1314

感謝回覆!

後來我繼續延伸問題，想按年齡級距於不同起始列新增資料，比如說年齡大於60歲的從第20列開始新增，
步驟1. key 張XX  12
步驟2. key 林OO 65
步驟3. key林OO 24
但是當年齡大於60的資料進來之後，第三筆小於60歲的資料就會跟著步驟3的結果往下新增，而不是從步驟1的結果往下，

想請問我少判斷了什麼地方，謝謝~

下載 (47.57 KB)

2016-5-23 11:37

1. Private Sub CommandButton1_Click()
   
2.     n = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row + 1 '往最後有資料列+1貼上
   
3. 
   
4.    
   
5.     If Range("b" & n) = "" And TextBox2.Value > 60 Then
   
6.    
   
7.             
   
8.          Sheets("Sheet1").Range("b" & 20 + n).Value = TextBox1.Value
   
9.    
   
10.    
    
11.          Sheets("Sheet1").Range("c" & 20 + n).Value = TextBox2.Value
    
12.          
    
13.       Else
    
14.          
    
15.          Sheets("Sheet1").Range("b" & n).Value = TextBox1.Value
    
16.    
    
17.    
    
18.          Sheets("Sheet1").Range("c" & n).Value = TextBox2.Value
    
19. 
    
20. 
    
21.    
    
22.     End If
    
23.    
    
24. End Sub

複製代碼

starry1314

回復 5# Sofie
    If Range("B" & n) = "" And TextBox2.Value > 60 Then
    If Range("C" & n) = "" And TextBox2.Value > 60 Then

判斷年齡的地方錯了....
從20列開始新增..沒想到怎麼做
因為目前是以第20列+最後一列的總列數 所以中間會一直空很大格

koo

x = TextBox2.Value
    If x < 60 Then
        y = [B20].End(xlUp).Row + 1
    Else
        y = [B65536].End(xlUp).Row + 1
        If y < 20 Then y = 20
    End If
    Cells(y, 2) = x

ML089

1. Option Explicit
   
2. Public n As Integer
   
3. Private Sub CommandButton1_Click()
   
4.     If TextBox2.Value > 60 Then n = 20 Else n = 2
   
5.     Do
   
6.             If Cells(n, "B") = "" Then Exit Do
   
7.             n = n + 1
   
8.     Loop
   
9.     Sheets("Sheet1").Cells(n, "B").Value = TextBox1.Value
   
10.     Sheets("Sheet1").Cells(n, "C").Value = TextBox2.Value
    
11. End Sub

複製代碼

Sofie

回復 6# starry1314

回復 7# koo

回復 8# ML089

感謝各位前輩的分享，目前使用koo大的方法可行!