질문과 답변
소프트웨어 엑셀 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
번호 | 제목 | 글쓴이 | 조회 | 등록일 |
---|---|---|---|---|
[공지] | 질문과 답변 게시판 이용간 유의사항 | gooddew | - | - |
99687 | 하드웨어| HDMI에서 DP로 케이블 교체했는 데 화면이 끊김이 [3] | toto65 | 801 | 04-13 |
99686 | 기 타| mega 다운시 전송 할당량 초과? [5] | 짚신 | 404 | 04-13 |
99685 | 윈 도 우| Ventoy를 이용하여 install.wim 설치 할수 있나요. [1] | 익명7861 | 467 | 04-13 |
99684 | 윈 도 우| WIN11 보내기 문의 [1] | 뷰티블마인 | 303 | 04-13 |
99683 | 소프트웨어| Directory Opus 창색 바꾸기 [3] | 나래바다 | 233 | 04-13 |
99682 | 소프트웨어| Directory Opus 새창 안열리게.... [8] | 미리내i | 289 | 04-12 |
99681 | 모 바 일| 테블릿에 원pe [7] | 농부 | 556 | 04-12 |
99680 | 윈 도 우| 업데이트이후 네트워크 인쇄 불가 문제 아직도 해결안해줬... [4] | 영구당 | 289 | 04-12 |
99679 | 소프트웨어| 어도비 검색하다 이런 창에 모르고 들어왔는데 ㅠ ㅠ [8] | 음트트트 | 838 | 04-12 |
99678 | 윈 도 우| win11 시작메뉴 아이콘 자동정렬 문의 [4] | 뷰티블마인 | 260 | 04-12 |
99677 | 윈 도 우| 윈도우 재 설치 전에 한번 질문 드립니다. 조언 좀 부탁 드... [8] | 큰봉이 | 499 | 04-12 |
99676 | 소프트웨어| vm 네트워크 독립된 ip사용시 [2] | 컴아저씨훈 | 192 | 04-11 |
99675 | 소프트웨어| ip 고정하는 방법이 있나요? [3] | 아데방 | 421 | 04-11 |
99674 | 하드웨어| 모니터 수리방법 문의드려요 [8] | 『ⓖⓤⓝ』 | 486 | 04-11 |
99673 | 소프트웨어| IDM 제대로 되는건 없나요? [2] | 건스 | 547 | 04-11 |
99672 | 윈 도 우| 윈도우11 설치 문의드립니다. [7] | 뽀로로 | 360 | 04-11 |
99671 | 소프트웨어| 배치파일 고수님 도와주세요, [5] | 좋은데이 | 345 | 04-11 |
99670 | 윈 도 우| 윈도우 순정파일 다운로드 [5] | billy | 914 | 04-11 |
99669 | 소프트웨어| MS Office 2024 빈 폴더 삭제 되는 현상 | 꼴통 | 348 | 04-11 |
99668 | 소프트웨어| IDM 삭제가 안됩니다. [3] | 햇님 | 344 | 04-11 |
Dim lngR As Long 다음 행에 아래 코드를 넣어 보십시오.
Sheets("Sheet2").Select