엑셀VBA - 이름,나이,성명 을 입력상자에 입력한 후 확인을 누르면 엑셀시트에 열에 맞추어 그대로 입력되게

Q : 엑셀 VBA 질문드립니다.

만들고 싶은게 

 

이름,나이,성명 을 입력상자에 입력한 후 확인을 누르면 

엑셀시트에 열에 맞추어 그대로 입력되게 하고싶은데 

어떻게 만들수 있을까요 ?

VBA 한번도 사용 안해봤습니다. 

 

A : 아래 처럼 구현하면 됩니다.

Private Sub CommandButton1_Click()

    Dim m As Workbook
    Dim ms As Worksheet
    
    Set m = Workbooks(ThisWorkbook.Name)
    Set ms = m.Sheets(ActiveSheet.Name)
    
    Dim START_ROW As Integer
    Dim LAST_ROW As Integer
    
    ' 입력이 시작 될 행 위치 지정
    START_ROW = 10
    
    ' 입력할 마지막 행 위치 지정
    LAST_ROW = ms.Cells(Rows.Count, 2).End(3).Row + 1
    
    ms.Cells(LAST_ROW, 2) = TextBox1.Text
    ms.Cells(LAST_ROW, 3) = TextBox2.Text
    ms.Cells(LAST_ROW, 4) = TextBox3.Text

    Dim rng As Range
    Set rng = ms.Range("B" & START_ROW & ":" & "D" & LAST_ROW)
    rng.Borders.LineStyle = 1
    
End Sub

<Reference>

https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=347234573&page=1#answer1