이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
음
sheet1에 번호와 이름이 잇습니다
1 신강현2 전진우3 정지원4 주은혜
Dim rng As Range
Set rng = Sheet1.Range("a5:a" & Sheet1.Range("a1048576").End(xlUp).Row).Find(Val(Me.TextBox1), , , xlWhole)
If rng Is Nothing Then MsgBox "없어"Else Me.TextBox2 = rng.Cells(rng, 2)End If
sheet1에 번호와 이름이 잇습니다
1 신강현2 전진우3 정지원4 주은혜
Dim rng As Range
Set rng = Sheet1.Range("a5:a" & Sheet1.Range("a1048576").End(xlUp).Row).Find(Val(Me.TextBox1), , , xlWhole)
If rng Is Nothing Then MsgBox "없어"Else Me.TextBox2 = rng.Cells(rng, 2)End If
폼은 UserForm1 이 잇구요
TextBox1 에 sheet1에 잇는 번호를 입력하면 TextBox2 에 번호와 같은행의 이름값을 넣어주려하는데
TextBox1 에 1 의 값을 넣으면 신강현 이라는 값이 뜹니다... (재대로 뜨는군요..ㅎㅎ)
그럼 이제
TextBox1에 2 의 값을 넣으면 전진우라는 값이 떠야하는데 그아래 (정지원) 의 값이 떠버립니다..
그리고 또
TextBox1 에 3 의 값을 넣으면 정지원이라는 값이 떠야하는데 textbox2 의값은 공백이 뜹니다.ㅠㅠ
뭐가 잘못된거죠?
신강현님..
아래 코드를..
Me.TextBox2 = rng.Cells(rng, 2)
아래처럼 바꿔보세요..
Me.TextBox2 = rng.Offset(, 1)
rng가 자꾸 바뀌는데.. rng.cells하시면 계속 기준이 바뀌어서 안되죠..
차라리 Me.TextBox2 = Range("A6").Cells(rng, 2)하시든가요..
도움이 되셨기를..