ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¡]Á~¸ê¶i¤Æ°ÝÃD¡^Á~¸ê»P¼úª÷°ÝÃD½Ð±Ð¡H

[µo°Ý] ¡]Á~¸ê¶i¤Æ°ÝÃD¡^Á~¸ê»P¼úª÷°ÝÃD½Ð±Ð¡H

¼W¥[Ãþ§O¡A°Ï¤À¬°¥¿¦¡Â¾­û»PÁ{®É¾­û¡A¥H¤Î¼úª÷Äæ¦ì¡A103¦~«×Á~¸ê¤ô·Ç¦p¤W¡A104¦~«×Á~¸ê¨C¦ì¸õ¤É¤@¯Å¡A¦ýÁ~¸ê·í¸õ¨ì³»´N¤£¦b¸õ¤F¨Ã¥X²{¬õ¦â»P¼úª÷¸õ¨ì³Ì°ª¯Å¤]¥X²{¯»¬õ¦â¡A¨ç¼ÆÀ³¦p¦óªí¥Ü¡H

°ÝÃD20-1.rar (10.49 KB)

§Æ±æ¤ä«ù!

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

VBA code ¦p¤U:
  1. Option Explicit

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

TOP

¤j¤j¡G
§A¯uªº¦n±j¡Aµ¥¤F¦n´X¤Ñ¡A¥H¬°µL¤H¦^µª¡AÁÂÁ§A¡C
¥t¦³¤@°ÝÃD½Ð±Ð¡A´N¬O¡A¦pªG¬Y§g¦b104¦~©Î105¦~¡B¡B¡B¡B110¦~¤~¥[¤J¡A¨º¦p¦ó§PÂ_©O¡H
³o¤@ªí¥D­n¥Øªº¬O¡A¦b¦U¦~«×¨D¥X«á¡A¬Y¨ÇÄæ¦ì­n®M¨ì¦U­Ó¦~«×¥h¡C
§Æ±æ¤ä«ù!

TOP

¥t¥~¼úª÷ªº¨Dªk¡A­Y§ï¦¨¨ì³»(¥»ÃD¥X²{¬õ¦âÀx¦s®æ)¥Î·í¦~«×Á~¡¯5­¿¡A¥¼¨ì³»¡¯2­¿¡C
§Æ±æ¤ä«ù!

TOP

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

TOP

¤j¤j¡G
¥t¥~¼úª÷ªº¨Dªk¡A­Y§ï¦¨¨ì³»(¥»ÃD¥X²{¬õ¦âÀx¦s®æ)¥Î·í¦~«×Á~¡¯5­¿¡A¥¼¨ì³»¡¯2­¿¡C
§Æ±æ¤ä«ù!

TOP

¦^´_ 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¶Ü?

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD