mark15jill

¦^´_ 1# mj0917m


    ½Ð¸Ô²Ó±Ô­z  »¡©ú °ÝÃD  ©Ò·Q­n±oµ²ªG

    µ¹§A­Ó´£¥Ü¡G

1.    
   
2. Application.DisplayAlerts = False  '´£¥Ü¨ú®ø
   
3. Application.ScreenUpdating = False '¿Ã¹õ§ó·s¨ú®ø
   
4. 
   
5. 
   
6. 
   
7. Sub A()
   
8.    'str = "¤º"
   
9.    'str3 = "¦~"
   
10. 'Cells(1, 15) = "·j´M¥Ø¼Ð·½"
    
11. 'Cells(1, 16) = "§PÂ_¬O§_§ä¨ì"
    
12. 'Cells(1, 17) = "ÃöÁä¦r¦ì¸m"
    
13. For asy = 2 To ActiveSheet.Range("b1").CurrentRegion.Rows.Count
    
14.     Cells(asy, 15) = Cells(asy, 2)
    
15.     For ahs = 94 To 99
    
16.    
    
17.    
    
18.    
    
19.     Next ahs
    
20. Next asy
    
21. 
    
22. 
    
23.         For i = 2 To ActiveSheet.Range("a2").CurrentRegion.Rows.Count
    
24.             If Mid(Cells(i, 1), 1, 3) = "099" Or Mid(Cells(i, 1), 1, 2) = "99" Then
    
25.                 If (InStr(1, ¤u§@ªí1.Cells(i, 1), "¤º") >= 1) Then
    
26.                      ¤u§@ªí1.Cells(i, 7) = "find"
    
27.                      ¤u§@ªí1.Cells(i, 11) = InStr(¤u§@ªí1.Cells(i, 1), "¤º")
    
28.                      s = s + 1
    
29.                 End If
    
30.             End If
    
31.         Next
    
32.                ¤u§@ªí1.Cells(i, 8) = "find"
    
33. 
    
34. 
    
35. 
    
36. 
    
37. End Sub

½Æ»s¥N½X

mark15jill

¦^´_ 6# mj0917m


ALT+F11  ²¾¨ì¤u§@ªí¤@ªºµ{¦¡¤º  §â¥H¤Uµ{¦¡½X¶K¤W

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim ss As String: ss = [a2]
   
3.     For iui = 5 To 11
   
4.         
   
5.             If Range("a" & iui).Value = ss Then [b2:d2] = Range("b" & iui, "d" & iui).Value
   
6.         
   
7.     Next
   
8. 
   
9. End Sub

½Æ»s¥N½X