VBA에서 변수로 영역 지정하는 방법과 구문의 구조에 대한 질문입니다

VBA
작성자
공대생
작성일
2020-09-24 19:21
조회
82
안녕하세요 회사에서 쓸 사용자정의 폼을 만드려고 VBA를 공부하고 있습니다.

 

간단하게는 시트 내 마지막 페이지의 전체 셀 영역을 (페이지 나누기로 구분되는 영역) 복사해서

그 아래 페이지로 그대로 붙여넣으려고 하고 있고

좀 더 나중에는  팝업창에 필요한 정보들을 입력하면 지정된 셀로 데이터 입력이 되고 인쇄까지 할 수 있는 그런 폼을 만드려고 합니다.

 

아직 극 초반이라 감이 안잡혀서 행 복사하는 부분에서 막히고 있는데

Rows(1:25).select

위의 명령어는 문제가 없는데 행을 변수로 지정하려고하면 문제가 생기는 것 같습니다.

엑셀 한 페이지는 25행 정도로 구성되고 이걸 반복적으로 복사하면서 아래로 붙이려고 하는데 뭐가 잘못된걸까요?

Sub 매크로2()
'
' 매크로2 매크로
'
Dim a, b As Integer

ActiveSheet.UsedRange.Select
a = Selection.Rows.Count - 24
b = Selection.Rows.Count
Rows(a:b).select
Selection.EntireRow.Copy
Range("Selection.Rows.Count + 1").Select
Selection.Insert shift:=xlDown

End Sub

결국엔 한페이지의 내용을 행복사하여 다음 페이지에 넣는 것인데 어떻게 풀어야하는지 모르겠습니다.

고수분들의 도움 부탁 드립니다.

감사합니다.



 
전체 4

  • 2020-09-25 00:23

    부럽습니다 저도 많이 노력해서 많은 질문을 할수있기 바랍니다 ㅎ


    • 2020-09-25 11:03

      일단 복사는 아래처럼 수정해서 정상 작동하는데

      Rows 나 Range 에 변수를 좌표로 설정하는 방법에 대한 이해가 좀 부족한것 같네요

      셀주소를 지정할때는 문제가 없는데 셀 주소를 변수로 넣을때의 연산자 사용법이 미숙해서 에러가 나는것 같습니다

      이 부분에 대해 따로 강의를 하신적이 있으신가요?

       

      Sub 페이지추가()
      '
      ' 페이지추가 매크로
      '

      '
      Dim a, b As Integer
      ActiveSheet.UsedRange.Select
      a = Selection.Rows.Count - 24
      b = Selection.Rows.Count

      Range("A" & a, "A" & b).EntireRow.Select
      Selection.Copy
      Selection.Insert Shift:=xlDown

      End Sub


      • 2020-09-27 16:50

        안녕하세요.

        명령문을 아래와 같이 수정해보시면 도움이 되실 듯 합니다.

        질문자분께서 원하시는 정확한 동작이 아닐 수도 있지만, 명령문을 적절히 수정하시면 금방 쉽게 구현하실 수 있을 겁니다.

        답변이 도움이 되셨길 바랍니다.

        Sub 페이지추가()
        '
        ' 페이지추가 매크로
        '
        
        '
        Dim a, b As Integer
        ActiveSheet.UsedRange.Select
        a = Selection.Row
        b = Selection.Rows.Count
        
        With Range("A" & a, "A" & b)
        .EntireRow.Copy
        .Insert Shift:=xlDown
        End With
        
        End Sub

        • 2020-09-29 23:51

          하나의 시트에 여러개의 형식이 존재하게 될때,
          가로줄 전체를 복사하게 되면 간혹 문제가 될 때가 있더군요.

          - 행 이동문제 등

          정확한 복사 영역을 지정하는 것으로 보완해 봤습니다.

           

          Sub 페이지추가()

          Dim iCol As Long
          Dim iRow As Long
          Dim iStart As Long
          Dim xOffset As Integer '// 시작하는 컬럼 번호

          xOffset = 1

          ActiveSheet.UsedRange.Select
          iStart = Selection.Row
          iRow = Selection.Rows.Count
          iCol = Selection.Columns.Count

          Range(Cells(iStart, xOffset), Cells(iRow, iCol)).Copy
          Range(Cells(iRow + 2, xOffset), Cells(iRow + iRow + 2, iCol)).Select
          ActiveSheet.Paste

          End Sub


      전체 1,328
      번호 카테고리제목작성자작성일추천조회
      1323 차트/그래프
      New 연결하여 붙여넣기(그림) 선택옵션에서 안보여서용 ㅠㅠ도와주세용 (2)
      윤사슴 | 2020.10.21 | 추천 0 | 조회 23
      윤사슴2020.10.21023
      1322 기능/도구
      New 조건부서식 아이콘표시 문의 첨부파일 (8)
      글래스 | 2020.10.21 | 추천 0 | 조회 26
      글래스2020.10.21026
      1321 차트/그래프
      New 선생님.. 첨부파일 (1)
      rpaq**** | 2020.10.21 | 추천 0 | 조회 23
      rpaq****2020.10.21023
      1320 함수/공식
      New 다운받은게 추가기능에서 설치가 된거 같은데 작동을 안하네요. 첨부파일 (1)
      Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 19
      Fund 꿈전사2020.10.21019
      1319 문서서식
      New 원하는 프르그렘 엑셀 유료 제작도 해주시나요? (1)
      Fund 꿈전사 | 2020.10.21 | 추천 0 | 조회 37
      Fund 꿈전사2020.10.21037
      1318 VBA
      New 엑셀에서 아웃룩일정 입력하는 방법에 관한 질문 (2)
      naver_5f8b682a12bb7 | 2020.10.21 | 추천 0 | 조회 19
      naver_5f8b682a12bb72020.10.21019
      1317 문서서식
      New 인쇄물 좌측하단 사용자정보 삭제방법 문의 첨부파일 (2)
      naver_5f8ee15a8602b | 2020.10.20 | 추천 0 | 조회 20
      naver_5f8ee15a8602b2020.10.20020
      1316 함수/공식
      New 재고 중복 차감 되는 문제... 첨부파일 (1)
      skya**** | 2020.10.20 | 추천 0 | 조회 34
      skya****2020.10.20034
      1315 VBA
      New 동일한 이름을 가진 통합 문서를 동시에 열 수 없습니다 첨부파일 (1)
      당신을축복하는올빼미 | 2020.10.20 | 추천 0 | 조회 20
      당신을축복하는올빼미2020.10.20020
      1314 VBA
      New 셀 범위 조건으로 메시지 팝업창 처음 한번만 뜨게 할 수 있나요? (2)
      와따나 | 2020.10.20 | 추천 0 | 조회 31
      와따나2020.10.20031
      1313 함수/공식
      New 공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. 첨부파일 (2)
      casanova | 2020.10.20 | 추천 0 | 조회 30
      casanova2020.10.20030
      1312 기능/도구
      New 다중필터 엑셀 추가기능 (Excel 추가기능 Addin) 설치 파일 좀 보내주실 분;;.. (1)
      쨍하고해뜬오후 | 2020.10.20 | 추천 0 | 조회 21
      쨍하고해뜬오후2020.10.20021
      1311 차트/그래프
      New 선생님... - 엑셀 VBA 차트 계열 색 변경 자동화 매크로 첨부파일 (2)
      rpaq**** | 2020.10.20 | 추천 0 | 조회 30
      rpaq****2020.10.20030
      1310 함수/공식
      New Xlookup 활용 문의 첨부파일 (1)
      K_Division | 2020.10.20 | 추천 0 | 조회 26
      K_Division2020.10.20026
      1309 VBA
      New 여러개의 참조 삽입 방법 (7)
      써머데이즈 | 2020.10.20 | 추천 0 | 조회 24
      써머데이즈2020.10.20024
      1308 함수/공식
      New 엑셀초보입니다. 다른시트 내용을 VLOOKUP을 이용해서 가져오기 ㅠ (3)
      el**** | 2020.10.20 | 추천 0 | 조회 38
      el****2020.10.20038
      1307 함수/공식
      New 서식들어간 일자 concat 조합 첨부파일 (2)
      내뀨바라기 | 2020.10.19 | 추천 0 | 조회 31
      내뀨바라기2020.10.19031
      1306 함수/공식
      New 엑셀초보자입니다. if함수 수식좀 알려주세요... (1)
      이재똥 | 2020.10.19 | 추천 0 | 조회 30
      이재똥2020.10.19030
      1305 함수/공식
      New 안녕하세요 if함수 질문있습니다. (2)
      glass | 2020.10.19 | 추천 0 | 조회 23
      glass2020.10.19023
      1304 VBA
      New 안녕하세요 vba 크롤링 질문드립니다. (1)
      jaebe**** | 2020.10.19 | 추천 0 | 조회 25
      jaebe****2020.10.19025
      1303 함수/공식
      New 동일한 이벤트 가 발생한 기간을 표시하는 함수 구하는 방법 질문드립니다. 첨부파일 (6)
      몽골리용 | 2020.10.19 | 추천 1 | 조회 45
      몽골리용2020.10.19145
      1302 VBA
      New VBA를 이용하여 CSV 데이터를 정해진 서식에 입력할때의 방식 질문 (4)
      dpd**** | 2020.10.19 | 추천 0 | 조회 30
      dpd****2020.10.19030
      1301 문서서식
      New 조건부 서식으로 일치하지 않는 셀의 텍스트색 변환 (2)
      Border | 2020.10.19 | 추천 0 | 조회 36
      Border2020.10.19036
      1300 함수/공식
      선배님들 제발 도와주십시요.. 첨부파일 (2)
      장전동오니기리 | 2020.10.18 | 추천 0 | 조회 67
      장전동오니기리2020.10.18067
      1299 함수/공식
      원데이터에서 다중조건을 추출해서 평균을 구하는 함수는 어떻게 써야하나요? 첨부파일 (3)
      2020WorldChampionLAD | 2020.10.17 | 추천 0 | 조회 57
      2020WorldChampionLAD2020.10.17057
      1298 함수/공식
      방대한 데이터 정리 문의 드립니다! (3)
      포뇨 | 2020.10.17 | 추천 0 | 조회 66
      포뇨2020.10.17066
      1297 함수/공식
      일정관리 불러오는 함수 첨부파일 (6)
      오제 경기의왕 | 2020.10.16 | 추천 0 | 조회 75
      오제 경기의왕2020.10.16075
      1296 피벗테이블
      공정별 날짜별 작업인원 수를 표시할려고하는데 도움이 필요합니다. (1)
      casanova | 2020.10.16 | 추천 0 | 조회 63
      casanova2020.10.16063
      1295 차트/그래프
      오빠두엑셀 선생님 질문드립니다. 첨부파일 (1)
      rpaq**** | 2020.10.15 | 추천 0 | 조회 73
      rpaq****2020.10.15073
      1294 VBA
      참조 셀 추가 (1)
      써머데이즈 | 2020.10.15 | 추천 0 | 조회 54
      써머데이즈2020.10.15054