이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
![[레벨:2]](http://abyul.com/zbxe/modules/point/icons/default/2.gif "포인트:696point (74%), 레벨:2/30"){kind=icon}
정용규1. 1번시트를제외한 나머지시트 인쇄하기
현재 제가 해논코드로는 각각의 시트들마다 인쇄를 걸어줘서 (FOR ~NEXT 로) 인쇄속도가 느립이다.
이문서가 시트수가 항상 바뀌는대신 첫번째 시트에 실행버튼들을만들어놔서 첫시트만빼고 나머지 시트들을 빠르게 할수있는방법이 있을까요??
Sub 출력( )
Dim i as Long
for i = 2 to Application.min(thisworkbook.worksheets.count)
Thisowrkbook.Worksheets(i).printout
next
end sub
2.특정셀의 문자열내의 단어 지금 if 함수를 가지고 특정셀의 값들에 따라 특정한 값들을 다른셀에 넣고있는데 개중에 조금특수한경우가 (ex, B2셀의 값이 경남 서울시 에서 창원시 ) 저기서 시의 값들이 변화하는데 특정시일경우 elseif "XX시 일경우" Then 으로 조건을 걸고싶습니다. 저문자열에서 문자를 찾아내는방법은 어떻게 하나요?
2.특정셀의 문자열내의 단어 지금 if 함수를 가지고 특정셀의 값들에 따라 특정한 값들을 다른셀에 넣고있는데 개중에 조금특수한경우가 (ex, B2셀의 값이 경남 서울시 에서 창원시 ) 저기서 시의 값들이 변화하는데 특정시일경우 elseif "XX시 일경우" Then 으로 조건을 걸고싶습니다. 저문자열에서 문자를 찾아내는방법은 어떻게 하나요?
댓글 '8'
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨:30/30"){kind=icon}
아별쩝.. 바로 바로 답변을 드리지 못해서 아쉽네요.. +_+;;
추가질문에 해당하는 내용은..
INSTR()하시면 되구요.. 워크시트의 함수의 FIND와 비슷한 기능이지요..
워크시트함수랑 VBA함수를 비교해 놓은 게시물이 있으니 참고해보세요..
http://www.abyul.com/zbxe/84126
댓글로 질문하신 부분은
FOR ~ NEXT 순환문을 이용한 버블소트로 해결하시면 될 것 같네요..
인쇄문제는
글쎄요.. 보통은 각각의 시트를 PRINTOUT으로 날려주는데..
다른 방법이라면 시트들을 그룹으로 묶은 다음에 한방에 인쇄를 날리는 방법이 있겠네요..
실행속도면에서는 어떤게 더 빠를지는 해봐야 알 것 같습니다.
다만 코드에 Application.Min()는 왜 있는지 모르겠네요..
그냥 sheets.Count 하시면 될텐데..
도움이 되셨기를..
