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

 황기성 (latinum)

추천:  2
파일:     조회:  2379
제목:   [RE]초본데..큰 소린 쳐 놓고..핼미..
     
  도와 주세요. 현재 쓰고 있는 양식을 대화상자를 통해 값을 입력 받을 려고 하는데 생각 보다 쉽지 않네요.. 큰소린 쳐 놓고..흠..게다가 보시면 알겠지만 아주 기촌데도..부탁드립니다..
제가 알고 싶은은 모듈(?)을 알고 싶어요.. 즉 대화상자로 입력값을 받아서 확인을 누르면 결과시트의 회색에 그 값이 입력 되게요..꼭이요..
==============[이뿐이님 글에 대한 답변입니다]==============
안녕하세요? 이뿐이 님!

?? 지금도 다이얼로그시트를 사용하시다니 놀랍기 그지 없습니다만...

대충 아래와 같이 합니다.

Sub Button2_Click()
Dim rngTo As Range
    Set rngTo = Worksheets("결과").Range("B7")
With DialogSheets(1)
    If .OptionButtons("신규").Value = xlOn Then
        rngTo.Value = "신규"
    Else
        rngTo.Value = "기존"
    End If
    rngTo.Offset(0, 1).Value = .DropDowns("촬영년1").Value
    rngTo.Offset(0, 2).Value = .DropDowns("촬영월1").Value
    '아래는 같은 요령으로....
    
End With
End Sub

생각을 바꾸셔서, 유저폼을 이용하심이 좋아 보입니다.

그럼...행운이 있으시길...!
 
[불량 게시물 신고]  
        
  

작성일 : 2003-07-10(09:18)
최종수정일 : 2003-07-10(09:18)
 


 ◎ 관련글

  제 목   작성자   날짜
초본데..큰 소린 쳐 놓고..핼미.. 이뿐이 2003-07-10
[RE]초본데..큰 소린 쳐 놓고..핼미.. 황기성 2003-07-10