OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    호야 (hoho) 추천:  2 파일:     출하통지서(견본).xls (72KB) 조회:  3519 제목:   양식에서 행삽입시 수식도 동시에 삽입될수 있는 메크로
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요. 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...):  * 아래줄에 질문을 작성하세요 >> 출하 통지서 양식을 만들었는데  출하주가 많으면 행을 삽입하여야 하는데  행을 삽입하면 옆의 수식을 다시 입력하여야하고 행이 메크로로 삽입이 되면서 수식가지 입력이 되었으면 좋겠구요 또 1장을 더만든뒤 3번장이 삽입되면 현재는 가운데서 삽입이 되는 데 마지막에 삽입이 될수 있으면 좋겠습니다. 또한 쉬트가 추가 될수있습니다. 아니면 자료를 일목요연하게 입력이되면 출하 공판장별로 한장씩 만들어야 하니까 한꺼번에 자료를 분류하여공판장별로 출하통지서 만들어지게 할수는 없는지요 고수님들의 도움을 요청합니다. 질문이 너무 장황해서리 미안합니다. 　 [불량 게시물 신고]
정해원 행이 삽입된만큼 수식을 아래로 쭉 끌기를 하세요. "현재는 가운데서 삽입이 되는 데 마지막에 삽입이 될수 있으면 좋겠습니다." 는 코드를 아래와 같이 수정해 보세요. Sub InsertRows()     Dim i As Integer     Dim j As Integer             j = Val(InputBox("삽입할 행 수를 입력하세요", "삽입행 수//Exceller"))     If j <= 0 Then Exit Sub        Range(Cells(36, 1), Cells(36 + j - 1, 1)).EntireRow.Insert Shift:=xlDown End Sub 08-06 (22:46) ⓧ삭제 ■신고
작성일 : 2003-08-06(19:41) 최종수정일 : 2003-08-06(19:41)