728x90
영어 검색어인 경우에는 asterisk 가 들어간 검색어가 될 수도 있다.
DB에 SQL 로 접속할 경우, 관련 자료가 하나도 없다고 결과를 돌려줄 수도 있다.
이럴 경우에는
Keyword = Application.InputBox("검색 키워드를 입력하세요", "검색어", Type:=2)
If InStr(Keyword, "'") > 0 Then '// 영어 검색어에는 asterisk 가 포함되어 있을 수 있으므로
Keyword = Replace(Keyword, "'", "\'")
End If
와 같이 처리해주면 된다.
728x90
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 특정 색상 표시된 마지막 셀 찾기 (0) | 2015.08.04 |
|---|---|
| [VBA기초] 셀내의 텍스트 줄바꿈 (0) | 2015.07.27 |
| [VBA기초] 유용한 IF문 모음 (3) | 2015.07.05 |
| [VBA기초] Cells(행,열).End(4)(2) 의 의미 (0) | 2015.06.24 |
| [VBA기초] 셀병합하기 (0) | 2015.06.23 |
Link2Me
