| 하이닉스 | 멜파스 | 하나금융지주 | 삼성전자 | 삼성전자 |
| 고려아연 | 케이피케미칼 | 제일모직 | 현대모비스 | 하나금융지주 |
| 하나금융지주 | 한화 | 엔씨소프트 | OCI | 대림산업 |
| 제일모직 | 효성 | 효성 | 현대차 | 현대중공업 |
| 삼성전자 | 우리금융 | 한화 | 하나금융지주 | 삼성화재 |
| 동국제강 | 코오롱인더 | 대림산업 | LG화학 | NHN |
| 한화 | 서울반도체 | 우리금융 | LG | 코오롱인더 |
| LG디스플레이 | 아시아나항공 | 하이닉스 | 엔씨소프트 | 삼성생명 |
| 한국전력 | 동국제강 | 다음 | 삼성생명 | LG |
| 우리금융 | 부산은행 | 만도 | 현대제철 | LG디스플레이 |
| 외환은행 | CJ | CJ제일제당 | GS건설 | 에스에프에이 |
| 신한지주 | 오리온 | 고려아연 | 우리금융 | 현대미포조선 |
| 한화케미칼 | 성우하이텍 | 현대차 | 멜파스 | STX조선해양 |
| STX | 두산인프라코어 | 아모레퍼시픽 | 신세계 | 기업은행 |
| 우리투자증권 | SK케미칼 | 대우조선해양 | 하이닉스 | SK |
| 대한생명 | 제일모직 | GKL | 한화 | 고려아연 |
| SK케미칼 | 현대홈쇼핑 | SK케미칼 | 대우조선해양 | STX팬오션 |
| 케이피케미칼 | 삼성생명 | 에스에프에이 | 삼성물산 | GS홈쇼핑 |
| 멜파스 | 삼성카드 | 휠라코리아 | 삼성테크윈 | 동국제강 |
| 하이트맥주 | 엘비세미콘 | LS산전 |
|
이런식의 자료가 있는데 현대차를 찾으려 할때 ctrl+f 기능을 이용해서 찾고 색을 넣을수 있지만
너무 귀찮고 번거롭거든요...
위의 항목이 모두 메뉴화가 되어서 키패드 하나씩만 아래로 내려주면 자동으로 현대차는 관련 셀의 색깔이
모두 변하고 다시 삼성전자를 택하면 삼성전자 셀의 색깔이 변하고 해서 셀을 추적하거나 찾는 법좀 알려주세요
답변자님,
정보를 공유해 주세요.
안녕하세요~
아래의 코드를 참고해 보세요~
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim C As Range
Dim strAddr As String
If Target.Count > 1 Then Exit Sub
Set rng = Me.UsedRange
If Not Intersect(rng, Target) Is Nothing Then
rng.Interior.Pattern = xlNone
If Target.Value = "" Then Exit Sub
Set C = rng.Find(Target.Value, after:=Target, Lookat:=xlWhole)
strAddr = C.Address
Do
C.Interior.Color = vbYellow
Set C = rng.FindNext(C)
Loop While Not C Is Nothing And C.Address <> strAddr
End If
End Sub
2011.03.08.
-
채택
질문자가 채택한 답변입니다.
UP이 많은 답변일수록 사용자들에게 더 많이 노출됩니다.
