|
도와 주세요. 현재 쓰고 있는 양식을 대화상자를 통해 값을 입력 받을 려고 하는데 생각 보다 쉽지 않네요.. 큰소린 쳐 놓고..흠..게다가 보시면 알겠지만 아주 기촌데도..부탁드립니다..
제가 알고 싶은은 모듈(?)을 알고 싶어요.. 즉 대화상자로 입력값을 받아서 확인을 누르면 결과시트의 회색에 그 값이 입력 되게요..꼭이요..
==============[이뿐이님 글에 대한 답변입니다]==============
안녕하세요? 이뿐이 님!
?? 지금도 다이얼로그시트를 사용하시다니 놀랍기 그지 없습니다만...
대충 아래와 같이 합니다.
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
생각을 바꾸셔서, 유저폼을 이용하심이 좋아 보입니다.
그럼...행운이 있으시길...! |
|