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

 정해원 (bada2420)

추천:  2
파일:     조회:  1999
제목:   [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
 
[불량 게시물 신고]  
        
  

작성일 : 2003-08-23(23:50)
최종수정일 : 2003-08-24(00:00)
 


 ◎ 관련글

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