입고 데이터 추가하기-코드 제공,파일제공(복붙용)

재고관리프로그램-Ver.1.xlsm

0.03MB

입고 데이터를 자동입력해주는 매크로 코드를 제공하겠습니다. 아래 복붙하시면 바로 사용 가능합니다.

Sub 데이터입력()
    Dim input_data As String
    Dim data As Integer
    data = 3
    Do While (Cells(data, "B").Value <> "")
        data = data + 1
    Loop
    input_data = "B" & Trim(Str(data)) & ":" & "E" & Trim(Str(data))
    Range(input_data).Value = Range("G3:J3").Value
End Sub

재고 데이터를 하나하나 입력할 시간이 없어요.. 견적서로 오는 거라서

걱정하지마세요. 한꺼번에 입력하는 코드도 제공하겠습니다.

위 영상을 보시면 "견적서"라는 시트에 있는 데이터를 버튼 하나에 다 옮기는 것을 볼 수 있습니다.

코드는

Sub 견적서입력()
    Dim input_data As String
    Dim data As Integer
    data = 3
    Do While (Cells(data, "B").Value <> "")
        data = data + 1
    Loop
    input_data = "B" & Trim(Str(data)) & ":" & "E" & Trim(Str(data + 100))
    Range(input_data).Value = Worksheets("견적서").Range("B3:E100").Value
End Sub

입니다.

 

위 코드를 입맛대로 바꾸고 싶으신 분들은 코드 설명을 담고 있는 아래 링크를 참고해주세요.

 

그리고 도움이 되셨다면 좋아요랑 댓글 부탁드립니다.

 

피드백 및 질문도 얼마든지 환영이예요 ㅎㅎ

 

1. 매크로 지정 방법 링크

https://ksm30546.tistory.com/11

매크로 사용 방법

 

2. 코드 이해 링크

https://ksm30546.tistory.com/12

입고 데이터 추가하기 코드 분석

※ 해당 코드들은 개인적 이용과 상업적 이용이 모두 가능합니다. 다만, 블로그나 게시물에 업로드할 목적일 경우 출처를 꼭 표시해주세요.