yen956

¦^´_ 1# s7659109
¸Õ¸Õ¬Ý, ¦p¤U¹Ï:

VBA code ¦p¤U:

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     Dim j, lastRow, ¯Å¼Æ1, ³Ì°ª¯Å As Integer
   
5.     Dim ¼úª÷1 As Long
   
6.     Dim rng As Range
   
7.     Dim Ãþ§O1, ¾Ç¾ú1 As String
   
8.    
   
9.     lastRow = [J65536].End(xlUp).Row    '¨ú±oJÄæ³Ì¤U¤@¦æ
   
10.     Set rng = [J3].Resize(lastRow, 1)
    
11.    
    
12.     If Not Intersect(Target, rng) Is Nothing Then
    
13.             Target.Offset(0, 1).Resize(1, 20).Clear       '²M°£¶ñ¤J°Ï
    
14.    
    
15.             ¾Ç¾ú1 = Target.Offset(0, -1)
    
16.             ¯Å¼Æ1 = --Target.Value
    
17.             ³Ì°ª¯Å = Application.VLookup(¾Ç¾ú1, Range("C3:E9"), 2, 0)
    
18.             ¼úª÷1 = Application.VLookup(¾Ç¾ú1, Range("C3:E9"), 3, 0)
    
19.         
    
20.             For j = 1 To 9
    
21.                 If j + ¯Å¼Æ1 - 2 < ³Ì°ª¯Å Then
    
22.                     Target.Offset(0, j * 2) = ¼úª÷1 / 2
    
23.                     Target.Offset(0, j * 2 - 1) = Cells(¯Å¼Æ1 + j, 2)
    
24.                     Target.Offset(0, j * 2 - 1).Resize(1, 2).Interior.ColorIndex = xlNone
    
25.                 Else
    
26.                     Target.Offset(0, j * 2) = ¼úª÷1
    
27.                     Target.Offset(0, j * 2 - 1) = Cells(³Ì°ª¯Å + 1, 2)
    
28.                     Target.Offset(0, j * 2 - 1).Resize(1, 2).Interior.ColorIndex = 38
    
29.                 End If
    
30.             Next
    
31.     End If
    
32. End Sub

½Æ»s¥N½X

¦]¦³­×§ïªí®æ, ¤Î³]­p¦h­«¤U©Ô²M,
¬G½Ð°Ñ¦ÒªþÀÉ
Á~¸ê¶i¤Æ°ÝÃD.7z
http://www.mediafire.com/download/y2p70semb9c5zg0/%E8%96%AA%E8%B3%87%E9%80%B2%E5%8C%96%E5%95%8F%E9%A1%8C.7z

yen956

¦^´_ 3# s7659109
¦^ÂÐ ½Ð¥ý«ö ¦^ÂÐ, ¦A¦^ÂÐ,
§_«h¦¬¤£¨ì§Aªº ¦^ÂÐ, ¤£ª¾§A¦³¦ó·s°ÝÃD. ÁÂÁÂ!!
µ¥104¦~®É, ±N103¦~ªºÄæ¦ì§R°£´N¥i¥H¤F

yen956

¦^´_ 6# s7659109
¦^ÂÐ ½Ð¥ý«ö ¦^ÂÐ, ¦A¦^ÂÐ,
¨Ò¦p§A§Æ±æ 6F µ¹§A¦^ÂÐ, «h¦b 6F ¤U­±ªº¡i¦^ÂСj«ö¶s¤WÂI¤@¤U,
³o¼Ë 6F ªº¤H´N·|±µ¨ì¨t²Îªº³qª¾, ¦p¦¹¤~¤£·|¯Ô»~®É¶¡,
§_«h¦¬¤£¨ì§Aªº ¦^ÂÐ, ¤£ª¾§A¦³¦ó·s°ÝÃD. ÁÂÁÂ!!
1. ¦^ÂФW¤@­Ó°ÝÃD¡G
­ì·Qªk ±N 103¦~ ªºÄæ¦ì§R°£ ¦³»~, ¦p¦¹¤@¨Ó,
©Ò¦³ªº ¯Å¼Æ §¡À³­«·s§ó·s, ¤uµ{¸û¤j,
¸û²³æªº¤èªk¬O:
±N 104¦~ ªº¤H­û­°¯Å¬° 103¦~ ªº¯Å¼Æ, «h¨ä¥L¤H­ûªº¯Å¼Æ§¡¤£¥Î§ó·s.
2. ¦^ÂХثe°ÝÃD¡G
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim j, lastRow, ¯Å¼Æ1, ³Ì°ª¯Å As Integer
    Dim ¼úª÷1 As Long
    Dim rng As Range
    Dim Ãþ§O1, ¾Ç¾ú1 As String
   
    lastRow = [J65536].End(xlUp).Row    '¨ú±oJÄæ³Ì¤U¤@¦æ
    Set rng = [J3].Resize(lastRow, 1)
   
    If Not Intersect(Target, rng) Is Nothing Then
            Target.Offset(0, 1).Resize(1, 20).Clear       '²M°£¶ñ¤J°Ï
   
            ¾Ç¾ú1 = Target.Offset(0, -1)
            ¯Å¼Æ1 = --Target.Value
            ³Ì°ª¯Å = Application.VLookup(¾Ç¾ú1, Range("C3:E9"), 2, 0)
            ¼úª÷1 = Application.VLookup(¾Ç¾ú1, Range("C3:E9"), 3, 0)
        
            For j = 1 To 9
                If j + ¯Å¼Æ1 - 2 < ³Ì°ª¯Å Then
               
                    'Target.Offset(0, j * 2) = ¼úª÷1 / 2
                    'Cells(¯Å¼Æ1 + j, 2) ´N¬O·í¦~Á~¤ô
                    Target.Offset(0, j * 2) = Cells(¯Å¼Æ1 + j, 2) * 2
                    
                    Target.Offset(0, j * 2 - 1) = Cells(¯Å¼Æ1 + j, 2)
                    Target.Offset(0, j * 2 - 1).Resize(1, 2).Interior.ColorIndex = xlNone
                Else
               
                    'Target.Offset(0, j * 2) = ¼úª÷1
                    Target.Offset(0, j * 2) = Cells(³Ì°ª¯Å + 1, 2) * 5
                    
                    Target.Offset(0, j * 2 - 1) = Cells(³Ì°ª¯Å + 1, 2)
                    Target.Offset(0, j * 2 - 1).Resize(1, 2).Interior.ColorIndex = 38
                End If
            Next
    End If
End Sub
¤£¹L¥Ø«e¤½©w¦³³o»ò¦n±d¶Ü?