GBKEE

¦^´_ 1# simplehope
¸Õ¸Õ¬Ý
Moisture test result(2)  ¼Ò²Õ¤Wªºµ{¦¡½X
Range("d7") ¦³Åܰʮɷ|¦Û°Ê°õ¦æ

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim A, I As Integer, ii As Integer, Ar As Variant, E As Range, LotNo As Integer
   
4.     Dim Rng   As Range
   
5.     If Target.Address <> Range("d7").Address Then Exit Sub
   
6.     Application.EnableEvents = False
   
7.     Application.ScreenUpdating = False
   
8.     A = Split(Range("d7").Validation.Formula1, ",")
   
9.     LotNo = 20                               'LotNo¦³Åܰʮɭקï³o²z                      '
   
10.     For I = 0 To UBound(A)
    
11.         If Val(A(I)) = [D7].Value Then
    
12.             For ii = 0 To I
    
13.                 If ii = 0 Then
    
14.                     Set Rng = [L16]
    
15.                 Else
    
16.                   Set Rng = Union(Rng, [L16].Offset((LotNo * 2 + 1) * ii - 1)) '41
    
17.                 End If
    
18.             Next
    
19.             Range(Rng, Cells(Rows.Count, "L").End(xlUp)) = ""
    
20.             Exit For
    
21.         End If
    
22.     Next
    
23.     If Not Rng Is Nothing Then
    
24.         '******** W Àɮפw¶}±Ò ***
    
25.         Ar = Workbooks("ÀɮצWºÙ.xls").Sheets(1).[AU16].Resize(LotNo).Value
    
26.         '******** W ÀÉ®×¥¼¶}±Ò ****
    
27.         'With Workbooks.Open("Àɮתº¸ô¸ô®|&ÀɮצWºÙ.xls")
    
28.         '   Ar = .Sheets(1).[AU16].Resize(LotNo).Value
    
29.         '   .Close False
    
30.         'End With
    
31.         '*************************************
    
32.         Ar = Application.Transpose(Ar)
    
33.         For Each E In Rng.Cells
    
34.             For I = 1 To 20
    
35.                 E.Cells(I * 2 - 1) = Ar(I)
    
36.             Next
    
37.         Next
    
38.     End If
    
39.     Application.ScreenUpdating = True
    
40.     Application.EnableEvents = True
    
41. End Sub

½Æ»s¥N½X