|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002): 2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): 2000, xp
3. CPU (486,PentiumI/II/III/IV...): 4
4. RAM (32,64,128,256,512MB,1G...): 512
* 아래줄에 질문을 작성하세요 >>
안녕하세요..
한개의 엑셀 파일에 좀 많은 수의 시트가 있습니다.
각 시트에는 데이터가 들어 있는데요. 머..이름, 소속, 전화번호, 아이디...이런 순으로요
그런데 시트가 각각의 서버를 나타내므로 여러곳에 중복 데이터가 있을수 있습니다.
이 문서안에서 한번에 사람이름을 가지고 모든 시트를 검색해서 해당 시트로 이동할 수 있나요?
각각의 시트의 어느 부분인지 이동해서 수정하려고 하는데요..ㅜ.ㅜ
게시판을 뒤져서 하나 찾아냈는데..에러가 납니다...ㅜ.ㅜ
Sub dhTest()
Dim c As Range
Dim s As Worksheet
Dim strTemp As String
strTemp = InputBox("찾을 단어를 입력하세요", "모든 시트에서 찾기")
For Each s In Worksheets
Set c = s.Cells.Find(what:=strTemp, lookat:=xlWhole)
If c Is Nothing Then
Else
Application.Goto c, True
Set c = Nothing
Exit Sub
End If
Next s
MsgBox "찾는 단어가 없습니다!", vbExclamation
End Sub
컴파일 오류가 나네요..
누가 명쾌한 해답좀..ㅜ.,ㅜ |
|