yen956

¸Õ¸Õ¬Ý:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim MH, RngB As Range, Rng2 As Range
   
3.     Set RngB = [B3:B65536]    '¿é¤J°Ï
   
4.     Set Rng2 = [C2:O2]        '¤ñ¹ï°Ï
   
5.     If Target.Count > 1 Then Exit Sub      '¦pªG¨â®æ¥H¤W¦P®ÉChange¡A¸õ¥X
   
6.     If Not Intersect(Target, RngB) Is Nothing Then   '¦pªG Target »P ¤ñ¹ï°Ï ¦³¥æ¶°
   
7.         If Target = "" Then
   
8.             Cells(Target.Row, "B").Resize(1, 14) = ""  '¦pªGChangeªº¬OªÅ¥Õ¡A²M°£¸Ó¦C
   
9.         End If
   
10.         MH = Application.Match(Target, Rng2, 0)    '¦b¤ñ¹ï°Ï§ä¥X Target ¦b²Ä2¦Cªº¦ì¸m
    
11.         If IsNumeric(MH) Then          '¦p¤ñ¹ï¦¨¥\¶Ç¦^¦b¤ñ¹ïªº¦C¼Æ, §_«h¶Ç¦^¿ù»~°T®§
    
12.                                        '¬G¥ý¥Î IsNumeric(MH) §PÂ_MH¬O§_¬°¼Æ¦r
    
13.             Cells(Target.Row, MH + 2) = 1     '­Y¦³²Å¦X¡A¶ñ¤J¢°
    
14.         End If
    
15.     End If
    
16. End Sub

½Æ»s¥N½X