表單輸入後自動帶入表格

PIPI

下載 (163.92 KB)

2020-4-8 23:51

繼上次發問後
上次的問題已經慢慢解決了
只差最後一個步驟一直沒有頭緒

我想按下加入後把Text裡的填寫入D10及F10位置
然後下一個品項新增的接續著後面新增
但點擊後沒有任何反應
不知道該如何修正...

Private Sub CommandButton1_Click()
        
    If myb.Text = "" Then
        
        MsgBox ("請輸入數量")
        
        Me.myb.SetFocus
      
        Exit Sub
        
    Else
   
        If Sheets("結帳").Range("D10") = "" Then
   
            r = 2
            
        Else
        
            r = Range("D9").End(xlDown).Row + 1
            
        End If
                  
            Cells(r, "D") = mya.Text
            
            'Sheets("結帳").Cells(r, "F") = myb.Text
            
    End If  
   

End Sub

s3526369

1. Private Sub CommandButton1_Click()
   
2.     If myb.Text = "" Then
   
3.         
   
4.         MsgBox ("請輸入數量")
   
5.         
   
6.         Me.myb.SetFocus
   
7.       
   
8.         Exit Sub
   
9.     Else
   
10.    
    
11.         If Sheets("結帳").Range("D10") = "" Then
    
12.             r = 10
    
13.         Else
    
14.             r = Sheets("結帳").[D65536].End(xlUp).Row + 1
    
15.         End If
    
16.             Sheets("結帳").Cells(r, "D") = mya.Text
    
17.             Sheets("結帳").Cells(r, "F") = myb.Text
    
18.             
    
19.     End If
    
20. End Sub

複製代碼

試看看是不是你要的