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

 졸따구 (zolddagu)

추천:  2
파일:     조회:  1111
제목:   VBA관련 질문입니다.
　 　 　
　 If Rcount Mod 65531 = 0 Then ' 맨 아랫줄이 65536이므로 ...
                       Rcount = 1
                       ccount = ccount + 13
                         If ccount = 251 Then  
                            intCount = intCount + 1
                            Worksheets.Add.Name = "LOT-" & intCount    
                             Set Sht = Worksheets("LOT-" & intCount)    
                            ccount = 1                                 
                            Rcount = 1                              
                        End If

여기서 시트를 추가하고 싶은데요......
지금 상태는 15칸씩 옆으로 데이터가 입력되고 있읍니다
옆으로 입력이 되지 않고 
새로운 시트를 추가하고 싶은데요.....
부탁드립니다
==============[마법사코리님 글에 대한 답변입니다]==============

안녕하세요.

다음 코드는 새로운 시트를 추가하고 시트이름을 지정해 주는 것입니다.

이 부분을
   Worksheets.Add.Name = "LOT-" & intCount    
   Set Sht = Worksheets("LOT-" & intCount)    

이렇게 바꾸어 보세요
   Set Sht = WorkSheets.Add
   Sht.Name = "LOT-" & intCount

그럼..
 		　
[불량 게시물 신고]  
마법사코리졸따구님 감사합니다
저번에도 도움을 받더니 요번에도 또 도움을 받는군요
감사합니다		08-27 (11:09)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-08-27(09:21)
최종수정일 : 2003-08-27(09:21)
　


 ◎ 관련글
  제 목   작성자   날짜
VBA관련 질문입니다. 마법사코리 2003-08-26
◎ VBA관련 질문입니다. 졸따구 2003-08-27