Sub Find_Macro()
mystring = "mystring"
Set RangeObj = Cells.Find(What:=mystring, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then MsgBox "Not Found" Else RangeObj.Select
End Sub
'엑셀VBA' 카테고리의 다른 글
범위지정하기(Resize 이용) (0) | 2013.01.27 |
---|---|
find함수에서 lookin:=xlformulas와 xlvaues의 차이점 (0) | 2012.12.28 |
Do while ~ Loop 구문 응용 : 한 셀의 내용을 다음 4개 열에 복사 (0) | 2011.12.09 |
엑셀에서의 암호설정 (0) | 2011.09.03 |
엑셀 자동 하이퍼링크 만들기(매크로) (0) | 2011.09.03 |