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

 바람 (output)

추천:  2
파일:     조회:  1901
제목:   [RE] 감사합니다. 그런데.. 일정범위 안에서 선택 요구는 어케?? 
     
  * 아래줄에 질문을 작성하세요 >>
안녕하세요.
현재 책보고 공부하고 있는데, Inputbox에 관해 질문이 있어서요...
만약 data가 아래와 같고, 유저에게 상호명중 하나만(!) 선택하라고 하고, 이외의 셀을 선택하거나 여러셀을 선택하거나, 아무것도 선택하지 않으면 에러 메시지를 띄우고 싶습니다. ("상호명 선택이 잘못 되었습니다~"등등)
첨부파일을 보시고.. 답좀 부탁드립니다.

번호  상호명
1     가
2     나
3     다
4     라


==============[바람님 글에 대한 답변입니다]==============

감사합니다. 푸른가을하늘님.
말씀해주신 코드를 이용하니까 이제 셀 한개만 선택할 수 있더라구요. ^^
그런데, 일정범위의 셀에서만만(예를들어 B3:B10) 선택하라구 요구하고 싶은데 이건 어떻게 하죠?
즉, B3:B10 이외의 셀을 선택하면 에러 메시지를 띄우고 싶습니다. ("상호명 에서 선택하세요~"등등)
도와주세요~~  ^.^;;
 
[불량 게시물 신고]  
푸른가을하늘^^ 아래와 같이...
Dim c As Range
Set c = Application.InputBox(Prompt:="Select Sheet name", Type:=8)
If c.Rows.Count >= 2 Or c.Columns.Count >= 2 Or c.Column <> 2 Then
MsgBox "상호명 선택이 잘못 되었습니다", , "선택오류"
Else
MsgBox c, , "선택값"
End If

그럼 잘되시길....
08-25 (10:54)
삭제 ■신고
바람답변 감사드려요~ ^^
그런데, "c.Column <> 2" 는 B열 전체를 의미하는 거 아닌가요?
저는 B3 - B10 까지만 범위를 주고 싶은데...
하여간, 나머지 문제는 좀더 연구를 해 보겠습니다.
08-25 (13:11)
삭제 ■신고
        
  

작성일 : 2003-08-25(10:17)
최종수정일 : 2003-08-25(10:19)
 


 ◎ 관련글

  제 목   작성자   날짜
일정범위 안에서 선택 요구 - inputbox 바람 2003-08-24
[RE] 감사합니다. 그런데.. 일정범위 안에서 선택 요구는 어케??  바람 2003-08-25