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

작성자:  

 밀알 (milalkjl)

추천:  2
파일:     조회:  628
제목:   Application.InputBox 사용에 대한 질문
　 　 　
　 아래와 같은 변수지정에서 row 값을 얻으려고 하는데.. 잘 안되네요..

k1 = Application.InputBox("인쇄를 시작할 줄을 선택해 주세요..", "인쇄시작 점 선택", , 0, 0, , , 0)  
   'type 값을 0으로 주어 k1값을 =r1c2 값을 받로고 했습니다.
r=Range(k1).Row

두번째 변수는 오류나는 문장이지만.. 제가 그래도 적어 보았습니다. 
어떤 코딩으로 해야 마우스로 선택한 셀의 row값을 받을 수 있을지 답변을 부탁드립니다.
감사합니다. 		　
[불량 게시물 신고]  
늘푸른부족하지만 제가....
Dim Mycell As Range
   Dim Myrow As Integer
   Set Mycell = Application.InputBox(prompt:=("인쇄를 시작할 줄을 선택해 주세요..", Type:=8)
   Myrow = Mycell.row

그럼 잘되시길...		02-25 (09:50)
ⓧ삭제 ■신고
R2안녕하세요... "밀알"님...



"늘푸른" 님의 답변을 컨닝하여... ^^;

Sub Text()

Dim r As Long
On Error Resume Next
r = Application.InputBox("인쇄를 시작할 줄을 선택해 주세요..""인쇄시작 점 선택", Default:=ActiveCell.Address, Type:=8).Row
On Error GoTo 0

End Sub


Type을 8(Range) 개체로 지정할 경우, inputbox 에서 취소 버튼을 누르면 오류가 발생하기에 사족을 함 달아봤습니다.



그럼... 20000 ^^*		02-25 (10:02)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2004-02-25(09:39)
최종수정일 : 2004-02-25(09:39)