[땡큐엑셀vba & 엑셀매크로] 선택셀 옆에 값 붙여넣기

실행전

 

실행후

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=279455003
'
'첨부한 파일의 B2:D5 테이블에 입력된 값을 C10:G32 붙여 넣기 하고 싶습니다.
'단, 실행버튼을 클릭한 날짜와 A10:A32에 입력된 날짜가 일치할 경우 해당 열에 입력이 되어야 하는데요, VBA를 통해 가능할지 문의드립니다.


'
'source by 땡큐엑셀vba & 엑셀매크로
'
Sub 주간데이터()

    '일자를 먼저 선택하세요
    'Selection의 위치는 일자가 되고 offset(행,열)을 사용하여 위치를 잡습니다.
    
    Selection.Offset(0, 1) = Cells(2, "C") 'a
    Selection.Offset(0, 2) = Cells(3, "C") 'b
    Selection.Offset(0, 3) = Cells(4, "C") 'c
    Selection.Offset(0, 4) = Cells(5, "C") 'd
    Selection.Offset(0, 5) = Cells(2, "D") 'e
    
    MsgBox "완료되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

선택한날짜에 값 붙여넣기-selection_offset-땡큐엑셀vba.xlsm

0.05MB