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

 졸따구 (zolddagu)

추천:  2
파일:     조회:  2008
제목:   시트를 생성할때..(vba)
　 　 　
　 폼으로 시트를 생성할라구 합니다....

근데 폼이름을 정해주는 과정에서 같은 이름의 시트가 이미 생성되어 있으면...

메세지 박스가 떠서 '이미 만들어진 시트입니다.' 라는 문구가 뜨고..

다시 이름을 입력하게 하는 방법좀 알려주세영~~ㅜ.ㅠ

==============[G.J-M님 글에 대한 답변입니다]==============

안녕하세요?

다음 코드는 'txt시트이름'이라는 텍스트박스에 시트이름을 입력하고 'btn시트생성'이라는 명령버튼을 누르면 시트가 만들어 지는 이벤트 프로시저입니다.

Sub btn시트생성_Click()
  If txt시트이름 = "" Then
    MsgBox "시트이름을 입력하세요"
    txt시트이름.SetFocus
    Exit Sub
  Else
    Dim Sht As WorkSheet
    Dim strA As String
    strA = txt시트이름.Value
    For Each Sht In WorkSheets
      If Sht.Name = strA Then
        MsgBox "이미 만들어진 시트입니다" & vbCr & "시트이름을 다시입력하세요"
        txt시트이름 = ""
        txt시트이름.SetFocus
        Exit Sub
      End If
    Next Sht
    Set Sht = WorkSheets.Add
    Sht.Name = strA
  End If
End Sub

그럼.. 		　
[불량 게시물 신고]  
G.J-M감사 합니다.^^09-12 (17:22)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-09-12(13:02)
최종수정일 : 2003-09-12(13:55)
　


 ◎ 관련글
  제 목   작성자   날짜
시트를 생성할때..(vba) G.J-M 2003-09-12
◎ 시트를 생성할때..(vba) 졸따구 2003-09-12