1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

이거 왜 안될까여?? ㅠㅠ(메크로관련)

조회 수 2391 추천 수 0 2010.11.15 13:49:24

dim a1 as integer

dim i as integer

 

i=1

Sheets("Sheet1").Range(Range("c16").Offset((i - 1) * 7, a1), Range("c16").Offset((i - 1) * 7, 1364)).Value = Sheets("Sheet1_1").Range(Range("c16").Offset((i - 1) * 7, 0), Range("c16").Offset((i - 1) * 7, 1364 - a1)).Value

 

이렇게 로직을 짰는데 복사가 안되네요..왜 그런거죠???ㅠㅠ

 

다른시트의 내용을 복사해오려고 하는데 시트의 이동모습을 안보고....복사하고 싶어..이렇게 했거든여?

 

처음에 짠 내용은..

Sheets("Sheet1").select

Range(Range("c16").Offset((i - 1) * 7, a1), Range("c16").Offset((i - 1) * 7, 1364)).select

selection.copy

sheets("sheet1_1").select

range("c16").select

selection.paste

 

요런식으로 작성했던것 같아여... 이렇게하면... 실행은 되는데여... 시트이동이 눈에 보이더라구여...

질문다시한번 정리합니다.

 

Q) 다른시트의 내용 복사해올때... 그러면서offset조건을 주고.. (i의 값에 따른) 값만 복사해오려고 합니다.

어떻게 하면 될까여??


댓글 '2'

profile

[레벨:30]아별

2010.11.17 00:02:31
*.130.73.75

안녕하세요?

복사해서 붙여넣을때는 아래처럼 수식을 사용합니다.

복사할범위.copy 붙여넣을범위

 

다른 시트에 붙여넣으시려면 시트.범위로 정확히 지정해주셔야하구요.

 

원래 정확한 범위 지정은 아래와 같습니다.

Workbooks("웍북이름").Worksheets("시트이름").Range("셀주소")

Workbook과 Worksheet가 ActiveWorkbook이거나 ActiveSheet일 경우엔 생략이 가능해서

바로 Range("셀주소")로 사용하지만.. 기본적으로 ActiveSheet가 생략된 것이라는 것을 알고 계셔야합니다.

 

그래서 다른 시트를 지정할때면 대상시트.범위 로 하셔야합니다.

 

 

아래 코드를 참고하세요.

 

Sub copyToOtherSheet()
    Dim i As Integer:   i = 1
    Dim a1 As Integer:  a1 = 0
    Dim shtSource As Worksheet
    Dim shtTarget As Worksheet
    Set shtSource = Sheets("Sheet1")
    Set shtTarget = Sheets("Sheet1_1")

    With shtSource
        .Range(.Range("c16").Offset((i - 1) * 7, a1), .Range("c16").Offset((i - 1) * 7, 1364)).Copy shtTarget.Range("C16")
    End With
End Sub

 

 

완젼한 친절한 설명이었습니다. ㅎㅎ

[레벨:6]ryanoh

2010.11.22 08:55:38
*.239.74.58

아별님 감사합니다. ^______________^ 헤~~

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 40248
242 버젼이 만료 되었네요.ㅡㅡ [1] [레벨:2]헤히후 2011-01-01 2250
241 엑셀에서 컴퓨터시간 자동변경하기 [2] [레벨:1]사랑 2010-12-16 3927
240 엑셀에서 선을 연장하고 싶어요.. [4] [레벨:2]만쥬 2010-12-14 4085
239 엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7] [레벨:2]만쥬 2010-12-07 10171
238 아별님 헬프요~ 조건가져오기 및 정렬 [3] [레벨:1]흙암소 2010-12-06 2440
237 다량데이터 일부분씩 저장하기 [1] [레벨:1]해적 2010-12-06 2853
236 도형회전각도 메크로 조정 [3] [레벨:6]ryanoh 2010-11-22 3304
235 엑셀2010 상태표시줄 클릭하면 [1] [레벨:4]쟈니 2010-11-22 2907
» 이거 왜 안될까여?? ㅠㅠ(메크로관련) [2] [레벨:6]ryanoh 2010-11-15 2391
233 자동 필터의 기능을 사용하여 제작한 메크로를 대체 가능한가요? file [2] [레벨:1]이엑셀 2010-11-12 2840
232 아별님, 데이터 통합방법을 모르겠습니다~ [2] [레벨:1]노브레인 2010-11-10 2591
231 인쇄 미리보기후 생기는 점선 사라지게 하는방법 [7] [레벨:1]어쩌면 2010-11-04 8959
230 아별툴 감사히 잘 쓰고 있습니다.~~ [2] [레벨:3]알알 2010-11-03 2387
229 행열 바꿈 질문좀 드릴께요~ file [1] [레벨:2]yang1019 2010-11-03 2732
228 일별 구매 현황에서 품목별 최근,최고,최저 단가구하기 file [1] [레벨:1]강상준 2010-11-02 2949
227 엑셀왕초보 [1] [레벨:1]사슴 2010-10-29 2479
226 매크로 질문입니다. file [2] [레벨:1]east 2010-10-27 2383
225 체크하면 돈이 자동으로 옆에 써지는 함수 file [2] [레벨:4]쟈니 2010-10-26 2453
224 재미난 엑셀 기능구연 가능?? [1] [레벨:6]ryanoh 2010-10-25 3171
223 [엑셀초보]질문 올립니다... file [2] [레벨:1]김해영이 2010-10-18 2805