エクセルVBA次の行に追加する追加のエントリエクセルVBAでちょっと新しい

Question

イム、私はユーザーフォーム

を使用してExcelで私の次の行に任意のデータを追加傾ける要するに、このいずれかでいくつかの修正を必要としますこれは、このいずれかを試してみてください私のコード

Private Sub CommandButton1_Click() 
Dim ssheet As Worksheet 


Set ssheet = ThisWorkbook.Sheets("Sheet1") 

nr = ssheet.Cells(Rows.Count, 1).End(x1Up).Row + 1 

ssheet.Cells(nr, 1) = CDate(Me.Label1) 
ssheet.Cells(nr, 2) = Me.ComboBox1 
ssheet.Cells(nr, 3) = Me.ComboBox2 

End Sub 

Answer 1

です：

Private Sub CommandButton1_Click() 
    Dim ssheet As Worksheet 

    Set ssheet = ThisWorkbook.Sheets("Sheet1") 

    nr = ssheet.Range("A1048576").End(xlUp).Row + 1 

    ssheet.Cells(nr, 1) = 1 
    ssheet.Cells(nr, 2) = 2 
    ssheet.Cells(nr, 3) = 3 
    End Sub