yen956

¦^´_ 1# markoxp
¤j¤j§A¦n, ¯à¤£¯àªþÀÉ»¡©ú?

yen956

¦^´_ 3# markoxp
¸Õ¸Õ¬Ý:

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Rng As Range
   
3.    
   
4.     '­­©w Worksheet_Changeªº½d³ò
   
5.     Set Rng = Range("L4:L12")
   
6.     If Not Intersect(Target, Rng) Is Nothing Then
   
7.         Åã¥Ü¬d§ä¸ê®Æ Target
   
8.     End If
   
9. End Sub
   
10. 
    
11. Sub Åã¥Ü¬d§ä¸ê®Æ(ByVal Target As Range)
    
12.     Dim sh As Worksheet
    
13.     Dim findRng, Rng As Range
    
14.     Dim str1 As String
    
15.    
    
16.     Set sh = Sheets("Sheet1")
    
17.    
    
18.     '³]©w ·j´M½d³ò
    
19.     Set findRng = sh.[C3].Resize(26, 6)
    
20.     findRng.Font.ColorIndex = 1  '¥ý±N¦r«¬ÃC¦â³]¬°¶Â¦â
    
21.    
    
22.     Set Rng = findRng.Find(Target, LookAt:=xlPart)     '¦b findRng ¤¤ ·j´M ActiveCell, ³¡¥÷·j´M
    
23.    
    
24.     If Rng Is Nothing Then
    
25.         MsgBox "§ä¤£¨ì¡i" & ActiveCell & "¡j", vbCritical
    
26.         Exit Sub
    
27.         
    
28.     '·j´Mµ²ªGÅܦâÅã¥Ü
    
29.     Else
    
30.         str1 = Rng.Address  '«O¦s²Ä¤@­Ó·j´Mµ²ªGªº¦ì§}
    
31.         Do
    
32.             Rng.Font.ColorIndex = 3
    
33.             Set Rng = findRng.FindNext(Rng)    '´M§ä¤U¤@­Ó Target
    
34.         Loop Until Rng.Address = str1    'ª½¨ì¤S¦^¨ì²Ä¤@­Ó·j´Mµ²ªGªº¦ì§}
    
35.     End If
    
36.         
    
37. End Sub

½Æ»s¥N½X