나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 우진이아빠 (aks41)

추천:  2
파일:     세금계산서제작중[2].xls (87KB) 조회:  2071
제목:   [RE]데이터 저장을 하고 싶은데요.!!
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>

세금계산서 매출이 아닌 매입프로그램을 만들고 싶어서
만들어 보았는데 잘 안되네요.
막히는 부분을 도와 주시면 편집을 해서 
잘 활용해 보겠습니다.
즐거운 주말 되시길~~
==============[우진이아빠님 글에 대한 답변입니다]==============
코드를 아래와 같이 변경해 주세요....
Application.ScreenUpdating = False
Dim erow As Double

erow = Sheets("매입현황").Range("b65536").End(xlUp).Row + 1

With Sheets("매입현황")
.Range("b" & erow) = erow - 3
.Range("c" & erow) = Range("ai16")
.Range("d" & erow) = Range("f7")
.Range("e" & erow) = Range("d16")
.Range("f" & erow) = Range("ai20")
.Range("g" & erow) = Range("ai21")
.Range("h" & erow) = Range("ai22")
.Range("i" & erow) = Range("ab13")
.Range("j" & erow) = Range("ae20")
.Range("k" & erow) = Range("x2")
End With

Application.ScreenUpdating = True

End Sub

그리고 일련번호를 적용할려면 계산서발행시트 AC5에 아래의 수식을 넣어보세요.
=COUNTA(매입현황!B:B)-2
==============[정해원님 글에 대한 답변입니다]==============

해원님 감사드립니다.
그런데 저장단계에서 코드수정을 하였습니다.
하지만 저장단계에서 일련번호만 저장이 되고
나머지 내용들은 저장이 안되거든요.
뭐가 문제인지 잘 모르겠습니다.
첨부파일 올려드립니다.
보람된 하루 되시길..

 
[불량 게시물 신고]  
정해원"하지만 저장단계에서 일련번호만 저장이 되고
나머지 내용들은 저장이 안되거든요."
라고 하신것은 당연히 안될수 밖에 없네요..
수정은 코드 한줄만 하셨군요.
위의 답글의 코드와 파일안의 코드를 자세히 비교해 보십시오,,,
뭔가 다르게 되어 있기때문에 저장이 안되는 겁니다.
그래도 다른점을 찾지 못하겠으면 그냥 답글에 적은 코드를 복사하여
모듈2에 붙여넣고 실행을 해 보십시오.....(기존코드는 지우고)
With문을 사용하는것은 "~와 함께"라는 의미입니다.
그런데 파일안의 코드에서 밑에있는 Range~는 함께하지 못하고 따로 놀고 있는것(매입현황시트가 아닌 계산서발행시트)처럼 되어 있습니다.(이걸 잘 생각해 보시면 답이 보일겁니다)
직접 수정하여 드리면 간단하겠지만 이렇게 하므로써 하나씩 배워가는 겁니다.(^^)
08-24 (14:51)
삭제 ■신고
우진이아빠해원님 감사합니다.
이제 만족한 결과를 얻었어요..꾸~~벅
조금 편집좀해서 알람창이 열리면서 인쇄까지
진행을 하고싶어요
편집끝나는대로 파일 올려볼께요
감사 합니다..
08-24 (18:51)
삭제 ■신고
        
  

작성일 : 2003-08-24(11:58)
최종수정일 : 2003-08-24(12:00)
 


 ◎ 관련글

  제 목   작성자   날짜
데이터 저장을 하고 싶은데요.!! 우진이아빠 2003-08-23
[RE]데이터 저장을 하고 싶은데요.!! 정해원 2003-08-23
[RE]데이터 저장을 하고 싶은데요.!! 우진이아빠 2003-08-24