|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
여기 파일 올려볼께요.
그런데 혹시라도 제 컴퓨터에서만 그러면 어쩌나 하는 생각이..T^T
==============[아르시아님 글에 대한 답변입니다]==============
안녕하세요? 아르시아 님!
상상하기 힘든 코드로군요^^;;
Private Sub CommandButton1_Click()
a = Worksheets("회원기록").Range("A1").CurrentRegion.Rows.Count
Range("b1").Select
For i = 1 To a
If TextBox1.Text = ActiveCell.Offset(i, 0).Value Then
'이 줄은 삭제하시고 회원정보.Show
회원정보.TextBox1.Text = ActiveCell.Offset(i, -1).Value
회원정보.TextBox2.Value = TextBox1.Value
회원정보.TextBox3.Value = ActiveCell.Offset(i, 1)
회원정보.TextBox4.Value = ActiveCell.Offset(i, 2)
회원정보.Show '여기에 입력하세요...
Exit Sub
End If
Next i
End Sub
왜 이렇게 수정해야 하는지는 잠깐만 고민하시면 될 듯...^^;;
그럼...행운이 있으시길...! |
|