질문과 답변
소프트웨어 엑셀 VBA 관련 문의
2022.09.26 14:30
Private Sub CommandButton1_Click()
Dim lngR As Long
lngR = Range("D65536").End(xlUp).Row + 1
Range("C" & lngR) = "=row()-2"
Range("D" & lngR) = Me.TextBox1
Range("E" & lngR) = Me.ComboBox1
Range("F" & lngR) = Val(Me.TextBox3)
With Range("C" & lngR).Resize(1, 4)
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter
End With
Range("D" & lngR + 1).Select
Application.CutCopyMode = False
Unload UserForm1
End Sub
해당 예제에 나와있는 부분을 sheet2번으로 적용하려고 하는데 방법이 있을까요?
댓글 [1]
-
지후빠 2022.09.26 14:37
Dim lngR As Long 다음 행에 아래 코드를 넣어 보십시오.
Sheets("Sheet2").Select