c_c_lai

¦^´_ 11# lamihsuen
¹Ï¼Ð®y¼Ð(¦C)§ï¥H°ÊºA³B²z

1. Sub DrawStatistics(ct As Integer)
   
2.     Dim tbl As String
   
3.     Dim totalRow As Long
   
4. 
   
5.     StartKBarRow = 6
   
6.     With Worksheets(ct)
   
7.         tbl = .Name
   
8.         EndKBarRow = .Range("A1").CurrentRegion.Rows.Count
   
9.         Set Chart_Source = Range(tbl & "!$C$" & CStr(StartKBarRow) & ":" & tbl & "!$C$" & CStr(EndKBarRow))
   
10.         
    
11.         ' sPos(1) = CInt(Mid("205*090*090*100*132*096*132*090*173*090*314*090", (ct - 4) * 4 + 1, 3)) ' ¹Ï¼Ð®y¼Ð(¦C)
    
12.         ' ¬°¦Ò¶q¦b¹ê°È¹B¥Î¤W¡A¨C±iªí³æ¤º§t¸ê®Æ¤º®e¤§¦h¹è¤£¤@¡A¥i¯à¹ê»Ú¨Ï¥Î¦C¼Æ®É¦³¼W´î¡A¬G§ï¥H°ÊºA³B²z¡C
    
13.         sPos(1) = .UsedRange.Rows.Count
    
14.         While IsEmpty(.Cells(sPos(1), 3).Value) And sPos(1) > 6       ' ©|¶·¦A¦¸¹LÂo³¡¤ÀªÅ¥Õ»P«D¯u¹ê¶×¤J¸ê®Æªº°ÝÃD¦C
    
15.             sPos(1) = sPos(1) - 1
    
16.         Wend
    
17.         sPos(1) = sPos(1) + 5
    
18.         
    
19.         sPos(2) = CInt(Mid("001*001*001*001*001*001*001*001*001*001*001*001", (ct - 4) * 4 + 1, 3))   ' ¹Ï¼Ð®y¼Ð(Äæ)
    
20.         sPos(3) = CInt(Mid("900*900*900*900*900*900*900*900*900*900*900*900", (ct - 4) * 4 + 1, 3))   ' ¹Ïªí¼e«×
    
21.         sPos(4) = CInt(Mid("320*320*320*320*320*320*320*320*320*320*320*320", (ct - 4) * 4 + 1, 3))   ' ¹Ïªí°ª«×
    
22.         xText = UCase(tbl) & " : Z - Score"
    
23.         »s¹Ïµ{§Ç xlSh:=tbl
    
24.     End With
    
25. End Sub

½Æ»s¥N½X

¯¬©P¥½´r§Ö¡I

c_c_lai

¦^´_ 11# lamihsuen
©p¬O«ü
Dim sPos(1 To 4)      
'  «Å§i¤@­Ó¤½¥Î¤@ºû°}¦C¾ã¼Æ­ÈÅܼơA¥¦¦bDrawStatistics()¥H¤Î »s¹Ïµ{§Ç() ³£·|¨Ï¥Î¨ì¡C
Dim xText As String
'  «Å§i¤@­Ó¤½¥Î¦r¦êÅܼơA¥¦¦bDrawStatistics()¥H¤Î »s¹Ïµ{§Ç() ³£·|¨Ï¥Î¨ì¡C
Dim Chart_Source As Variant
' «Å§i¤@­Ó¤½¥Î Variant ¸ê®Æ«¬ºAÅܼơA¥Î©ó¬ö¿ý¹Ïªí¿ï¨ú¸ê®Æ¡A¥¦¦bDrawStatistics()¥H¤Î »s¹Ïµ{§Ç() ³£·|¨Ï¥Î¨ì¡C
Dim StartKBarRow, EndKBarRow As Long   
' ¥Î©ó¬ö¿ý¿ï¨ú¸ê®Æªº°_©l¡BºI¤î¦C¼Æ (°ÊºA¬ö¿ý¸ê®Æ¿ý¤§¥Î)¡C¥¦¥u¦³¦bDrawStatistics()¤º³¡¨Ï¥Î¡A¬OÀ³¸Ó©ñ¸m©ó
' DrawStatistics() ¤º«Å§iªº¡C·íªì¶}©l¼¶¼g®É¡A­ì¥»¦Ò¼{·|¸ó²[¦¡¦Ó±N¥¦¸m©ñ©ó¥~³¡¡Aµ{¦¡§ï¤F§ï«o§Ñ±¼¤F¡C
¶Ü¡H

c_c_lai

¦^´_ 11# lamihsuen
©p«üªº"¦p¦ó³]©wµ{¦¡«e­±§Ç¸¹"§ÚÁÙ¤£¬ÆÁA¸Ñ¦ó·N¡AÁ|­Ó¨Ò¤l¡H
¨Æ«á¡A§Ú¤S¥[¤F DataLabels ¶i¥h¡A¤º®e¦p¤U¡G

1. (1)
   
2. Sub DrawStatistics(ct As Integer)
   
3.     Dim tbl As String
   
4. 
   
5.     StartKBarRow = 6
   
6.     With Worksheets(ct)
   
7.         tbl = .Name
   
8.         EndKBarRow = .Range("A1").CurrentRegion.Rows.Count
   
9.         Set Chart_Source = Range(tbl & "!$C$" & CStr(StartKBarRow) & ":" & tbl & "!$C$" & CStr(EndKBarRow))
   
10.         sPos(1) = CInt(Mid("205*090*090*100*132*096*132*090*173*090*314*090", (ct - 4) * 4 + 1, 3))    ' ¹Ï¼Ð®y¼Ð(¦C)
    
11.         sPos(2) = CInt(Mid("001*001*001*001*001*001*001*001*001*001*001*001", (ct - 4) * 4 + 1, 3))    ' ¹Ï¼Ð®y¼Ð(Äæ)
    
12.         ' sPos(3) = CInt(Mid("720*720*720*720*720*720*720*720*720*720*720*720", (ct - 4) * 4 + 1, 3))  ' ¹Ïªí¼e«×
    
13.         ' ±N 12 ­Ó²Î­p¹Ïªí¼e«× 720 §¡§ï¦¨ 900¡A¦p¦¹¡A©ó¥[¤W DataLabels «á©¼¦¹¶¡ªº¶ZÂ÷·|Åܬ°¼eÃP¡A¦r¶Z¤ñ¸û¤£·|­«Å|¦A¤@°_¡C
    
14.         sPos(3) = CInt(Mid("900*900*900*900*900*900*900*900*900*900*900*900", (ct - 4) * 4 + 1, 3))   
    
15.         sPos(4) = CInt(Mid("320*320*320*320*320*320*320*320*320*320*320*320", (ct - 4) * 4 + 1, 3))    ' ¹Ïªí°ª«×
    
16.         xText = UCase(tbl) & " : Z - Score"
    
17.         »s¹Ïµ{§Ç xlSh:=tbl
    
18.     End With
    
19. End Sub
    
20. 
    
21. (2)
    
22.         With .SeriesCollection(1)
    
23.             ' .
    
24.             ' .
    
25.             ' .
    
26.             With .Border
    
27.                 .Weight = xlHairline
    
28.                 .LineStyle = xlNone
    
29.             End With
    
30.         
    
31.             ' ¥[¤W DataLabels ¤ñ¸û¦³¬ÝÀY (¥H¤U¤T¦æ)¡A¼Æ¾Úªí¹F¤]¸û¿Ë©M©Ê¡C
    
32.             .HasDataLabels = True
    
33.             .DataLabels.NumberFormat = "##.####"    ' ¨ú¤p¼Æ¥|¦ì
    
34.             .DataLabels.Position = xlLabelPositionOutsideEnd

½Æ»s¥N½X

¤U¸ü (63.1 KB)

2012-7-20 20:36

lamihsuen

¦^´_ 10# c_c_lai

c_c_lai¤j­ô:§A¤Ó±j¤FÁÂÁ§A,³o¨â¤Ñ¤@©w­n¦n¦n¬ã¨s§Aªºµ{¦¡,¦p¦³¤£À´ªº¦a¤èÁٽФj­ô¦h¦h«ü¾É,­º¥ý. ­n½Ð±Ð¤j­ô¦p¦ó³]©wµ{¦¡«e­±§Ç¸¹

c_c_lai

¦^´_ 8# lamihsuen
¦]µ{¦¡½X¤j©ó³W©w¤j¤p¡A¬G±N¤U¥b¬q¦A¦¸¶K¤W¡C

1.         ' ±N³Ì«á¤@¦¸²Ä¤@¦C(¤½¦¡)¼ÐÃD¦C¼ÐÃD»P²Ä¤G¦C¤½¦¡­Ècopy ¦ÜZSCOREªí®æ²Ä¤@¦C»P²Ä¤G¦C
   
2.         z_oi = angin_sr
   
3.         z_ai = z_sr
   
4.         z_aj = 1
   
5.         For z_oj = 1 To 12
   
6.             Worksheets(wr).Cells(z_ai - 4, z_aj).Value = Worksheets(wr).Cells(z_oi - 4, z_oj).Value
   
7.             Worksheets(wr).Cells(z_ai - 3, z_aj).Value = Worksheets(wr).Cells(z_oi - 3, z_oj).Value
   
8.             z_aj = z_aj + 1
   
9.         Next z_oj
   
10.         ' ©w¸q²Ä¥|¦Cªí®æ¼ÐÃD¦C
    
11.         xlRow = Worksheets(wr).Range("B" & z_sr).End(xlDown).Row
    
12.         With Worksheets(wr)
    
13.             .Cells((z_sr - 1), 1).Value = .Cells((sr - 1), 1).Value
    
14.             .Cells((z_sr - 1), 2).Value = .Cells((sr - 1), 2).Value
    
15.             .Cells((z_sr - 1), 3).Value = .Cells((sr - 1), 3).Value
    
16.             .Cells((z_sr - 1), 4).Value = "§P§Oµ²ªG"
    
17.             .Cells((z_sr - 1), 5).Value = "¤ÀªR¤èªk"
    
18.             .Cells((z_sr - 1), 6).Value = "¨Ï¥Î»ö¾¹"
    
19.                                                          
    
20.             ' ¥»¦¸"C"Äæ Z-SCORE ­È­pºâ
    
21.             .Range("C" & z_sr & " :C" & xlRow).Formula = "=(b" & z_sr & "-$B$" & z_sr - 3 & ") /$C$" & z_sr - 3
    
22.             .Range("D" & z_sr & " :D" & xlRow).Formula = "=IF(C" & z_sr & ">=3,""²§±`"",IF( C" & z_sr & "<=2,""ok"",""¦³½èºÃ""))"
    
23.         End With
    
24.         '  ©w¸qz­È§P§Oµ²ªG¨ÃÅã¥Ü(D)Äæ,"(Z)­È<=2¬°"OK"Åã¥Üºñ¦â","2<(Z)­È<3¬°"¦³½èºÃ"Åã¥Ü¶À¦â,(Z)­È>3¬°"²§±`"Åã¥Ü¬õ¦â
    
25.                                        
    
26.         '  Ã¸»s²Î­p¤ÀªR¹Ïªí
    
27.         Call DrawStatistics(wr)
    
28.     Next wr
    
29. End Sub
    
30. 
    
31. Sub DrawStatistics(ct As Integer)
    
32.     Dim tbl As String
    
33. 
    
34.     StartKBarRow = 6
    
35.     With Worksheets(ct)
    
36.         tbl = .Name
    
37.         EndKBarRow = .Range("A1").CurrentRegion.Rows.Count
    
38.         Set Chart_Source = Range(tbl & "!$C$" & CStr(StartKBarRow) & ":" & tbl & "!$C$" & CStr(EndKBarRow))
    
39.         sPos(1) = CInt(Mid("205*090*090*100*132*096*132*090*173*090*314*090", (ct - 4) * 4 + 1, 3))
    
40.         sPos(2) = CInt(Mid("001*001*001*001*001*001*001*001*001*001*001*001", (ct - 4) * 4 + 1, 3))
    
41.         sPos(3) = CInt(Mid("720*720*720*720*720*720*720*720*720*720*720*720", (ct - 4) * 4 + 1, 3))
    
42.         sPos(4) = CInt(Mid("320*320*320*320*320*320*320*320*320*320*320*320", (ct - 4) * 4 + 1, 3))
    
43.         xText = UCase(tbl) & " : Z - Score"
    
44.         »s¹Ïµ{§Ç xlSh:=tbl
    
45.     End With
    
46. End Sub
    
47. 
    
48. Private Sub »s¹Ïµ{§Ç(xlSh As String)                                ' ¥þ³¡­«Ã¸
    
49.     Dim Sh As Worksheet, xi As Integer
    
50.    
    
51.     Set Sh = Sheets(xlSh)
    
52.     Sh.ChartObjects.Delete
    
53. 
    
54.     With Sh.ChartObjects.Add(Sh.Cells(sPos(1), sPos(2)).Left, Sh.Cells(sPos(1), sPos(2)).Top, sPos(3), sPos(4)).Chart
    
55.         .ChartType = xlColumnClustered    ' xlColumnStacked                            ' xlColumnStacke-> °ïÅ|ª½±ø¹Ï
    
56.         .SetSourceData Source:=Chart_Source
    
57.         .HasLegend = 0                                          ' ¹Ïªíªº¹Ï¨Ò:  ¤£¥i¨£
    
58.         .SeriesCollection(1).AxisGroup = 1
    
59.             
    
60.         With .Axes(xlCategory)                                  ' X®y¼Ð¶b
    
61.             .CategoryType = xlCategoryScale
    
62.             ' .TickLabels.NumberFormatLocal = "hh:mm"
    
63.             .MajorTickMark = xlNone
    
64.             .Border.Weight = xlHairline
    
65.             .Border.LineStyle = xlNone
    
66.             .TickLabelPosition = xlLow
    
67.             .TickLabels.Font.Size = 10
    
68.         End With
    
69.                   
    
70.             '*******************************************************************
    
71.                   
    
72.         With .SeriesCollection(1)
    
73.             .Shadow = False                                ' ¹Ïªí¤¤ªº¼Æ¦C(1)
    
74.             .InvertIfNegative = True
    
75.             ' .InvertColor = RGB(255, 124, 128)                      ' ·íªí¦C¼Æ­È¬°­t­È®É¡A±N¨äÅã¥Ü¤§ÃC¦â§óÅܦ¨²L¤ÑÂŦâ
    
76.             .InvertColor = RGB(32, 178, 208)                         ' ·íªí¦C¼Æ­È¬°­t­È®É¡A±N¨äÅã¥Ü¤§ÃC¦â§óÅܦ¨«CÂŦâ
    
77.         
    
78.             With .Format.Fill
    
79.                 .Visible = msoTrue
    
80.                 ' .ForeColor.RGB = RGB(149, 179, 215)                ' ·íªí¦C¼Æ­È¬°¥¿­È®É¡AÅã¥Ü¤§ÃC¦â¬°¾ï¬õ¦â
    
81.                 .ForeColor.RGB = RGB(255, 69, 0)                     ' ·íªí¦C¼Æ­È¬°¥¿­È®É¡AÅã¥Ü¤§ÃC¦â¬°¯»¬õ¦â
    
82.                 .Transparency = 0
    
83.                 .Solid
    
84.             End With
    
85.         
    
86.             With .Border
    
87.                 .Weight = xlHairline
    
88.                 .LineStyle = xlNone
    
89.             End With
    
90.         
    
91.             ' With .Interior
    
92.             '     .ColorIndex = 5
    
93.             '     .PatternColorIndex = 42
    
94.             '     .Pattern = xlSolid
    
95.             ' End With
    
96.         End With
    
97.                   
    
98.         ' *******************************************************************
    
99.                      
    
100.         With .Axes(xlValue).TickLabels.Font                    ' Y®y¼Ð¶b¤W¨è«×ªº¨è«×¼ÐÅÒªº¦rÅé
     
101.             .FontStyle = "¼Ð·Ç"
     
102.             .Size = 10
     
103.         End With
     
104.                      
     
105.         With .Axes(xlValue)
     
106.             .MajorUnit = 2                                     ' ¹Ïªí¥ª°¼¼Æ¦C¤§¶¡¶Z­È³]©w
     
107.             ' .MaximumScale = 30
     
108.             ' .MinimumScale = -40
     
109.         End With
     
110.         
     
111.         .HasTitle = True                                       ' ¹Ïªíªº¼ÐÃD   ¥i¨£
     
112.               
     
113.         With .ChartTitle                                       ' ¹Ïªíªº¼ÐÃD
     
114.             .Top = 1
     
115.             .Text = xText
     
116.             .Font.Size = 16
     
117.         End With
     
118. 
     
119.         With .PlotArea                                         ' ¹ÏªíªºÃ¸¹Ï°Ï
     
120.             .Top = 16
     
121.             .Left = 1
     
122.             .Width = sPos(3)
     
123.             .Height = sPos(4)
     
124.             .Interior.ColorIndex = xlNone
     
125.         End With
     
126.     End With
     
127. End Sub

½Æ»s¥N½X

À³¸Óº¡¨¬©pªº­n¨D¤F§a¡I

c_c_lai

¦^´_ 8# lamihsuen
½Ð±N­ì¥» Module3 ¤ºªºµ{¦¡½X¥þ³¡§ó´«¦¨¥H¤U¤§µ{¦¡½X

1. ' *********************************************************************
   
2. '  Module3   (½Ð±N­ì¥» Module3 ¤ºªºµ{¦¡½X¥þ³¡§ó´«¦¨¥H¤U¤§µ{¦¡½X)
   
3. ' *********************************************************************
   
4. Option Explicit
   
5. 
   
6. Dim sPos(1 To 4)
   
7. Dim xText As String
   
8. Dim Chart_Source As Variant
   
9. Dim StartKBarRow, EndKBarRow As Long
   
10. 
    
11.    
    
12. Public Sub ¦A¤ÀªRµ²ªG()
    
13.     Dim wr As Integer, an As Integer ' ³]©wCOPY¤u§@ªí¼Æ¥Ø­p¼Æ¾¹
    
14.     Dim xlRow As Long
    
15.             
    
16.     ' wr = 4  ¥Ø«e¹w³]±q c ¨ì sn¡A Á`¦@¦³ 12 ­Ó¤u§@ªí³æ
    
17.     For wr = 4 To Worksheets.Count
    
18.         '  ¤U¦¸°_©l ¦C °_ÂI
    
19.         Dim angin_sr As Integer
    
20.         Dim sr As Integer ' ©w¸q²Ä¤@¦¸°_©l¦C¼Æ
    
21.         sr = 6
    
22.         an = 1
    
23.         ' ­pºâ"NG"ªº®a¼Æ
    
24.         Dim NGVALUE As Integer
    
25.         NGVALUE = 0
    
26.         ' ¤u§@ªí±q4 °j°é¶}©l°õ¦æ¦A¤ÀªRµ²ªG¨ì¤u§@ªíªº³Ì«á
    
27.         Do Until Worksheets(wr).Cells((sr - 3), 12).Value = 0
    
28.             ' outline ¤ÀªR¦¸¼Æ+1.¨ÃÅã¥Ü¦b¼ÐÃD¦C(B4)Àx¦s®æ
    
29.             an = an + 1
    
30.                   
    
31.             ' angin_sr=¦A¦¸¤ÀªR°_©l¦C¬°:²Ä¤@¦¸°_©l¦C¼Æ+²Ä¤@¦¸®a¼Æ+6®æªÅ®æ
    
32.             angin_sr = sr + (Worksheets(wr).Cells((sr - 3), 1).Value + 6)
    
33.                
    
34.             ' §P§O ¤W¦¸¤ÀªR¦³"NG"ªº¥h°£,"OK"ªºCOPY¨ì¥»¦¸ªí®æ
    
35.             Dim again_oi, again_oj   As Integer ' ¤W¦¸ªí®æ¦C,¦æ¼Æ­p¼Æ¾¹
    
36.             Dim again_ai, again_aj   As Integer ' ¥»¦¸ªí®æ¦C,¦æ¼Æ­p¼Æ¾¹
    
37.                      
    
38.             again_oi = sr
    
39.             again_ai = angin_sr
    
40.             ' °j°é§P§O"ok"»P"ng"±q«e¦¸°_©l¦ì¸m¶}©l(sr)¦Ü«e¦¸ªí®æ³Ì«á(sr+«e¦¸ªí®æ"a"3ªº­È
    
41.             For again_oi = again_oi To sr + Worksheets(wr).Cells((sr - 3), 1).Value
    
42.                 ' ¦pªG­È¬°"ok"¸Ó¦Ccopy ¨ì¥»¦¸ªí®æ.¦pªG­È¬°"ng"«h¤£³B²z
    
43.                 If Worksheets(wr).Cells(again_oi, 5).Value = "OK" Then
    
44.                     With Worksheets(wr)
    
45.                         .Cells(again_ai, 1).Value = .Cells(again_oi, 1).Value
    
46.                         .Cells(again_ai, 2).Value = .Cells(again_oi, 2).Value
    
47.                     End With
    
48.                     again_ai = again_ai + 1
    
49.                 End If
    
50.             Next again_oi
    
51.                   
    
52.             ' ±N«e¦¸²Ä¤T¦C¼ÐÃD¦C¼ÐÃDcopy ¦Ü¥»¦¸ªí®æ²Ä¤T¦C¼ÐÃD¦C¼ÐÃD
    
53.             again_aj = 1
    
54.             For again_oj = 1 To 12
    
55.                 Worksheets(wr).Cells(angin_sr - 4, again_aj).Value = Worksheets(wr).Cells(sr - 4, again_oj).Value
    
56.                 again_aj = again_aj + 1
    
57.             Next again_oj
    
58.                        
    
59.             ' §Q¥ÎÅܼƨD¥X¥»¦¸ªí®æ³Ì«á¦C¼Æ¥Øªº¥Î©ó¨D¥X²Ä¤T¦C¤½¦¡ªº³Ì«á½d³ò
    
60.             xlRow = Worksheets(wr).Range("B" & angin_sr).End(xlDown).Row
    
61.             With Worksheets(wr)
    
62.                 ' ­pºâ¥»¦¸"A3"Àx¦s®æ NO.OF.RESULT­È(¤ÀªR­È®a¼Æ)±q¥»¦¸°_©l¦C¦Ü(angin_sr)¦Ü¥»¦¸³Ì«á¦C¼Æªº¼Æ¶q
    
63.                 .Cells(angin_sr - 3, 1).Formula = "=COUNT(B" & angin_sr & ":B" & xlRow & ")"
    
64.                 ' ¥»¦¸"B3"Àx¦s®æ¤ÀªR­È¤¤¶¡­È(MEDIAN)
    
65.                 .Cells(angin_sr - 3, 2).Formula = "=MEDIAN(B" & angin_sr & ":B" & xlRow & ")"
    
66.                 ' ¥»¦¸C3Àx¦s®æIRQ´Ó
    
67.                 .Cells(angin_sr - 3, 3).Formula = "=(QUARTILE(B" & angin_sr & ":B" & xlRow & ",3) -QUARTILE(B" & angin_sr & ":B" & xlRow & ",1))*0.7413"
    
68.                         
    
69.                 ' ¥»¦¸"E3"Àx¦s®æROBUS CV­È
    
70.                 .Cells(angin_sr - 3, 5).Formula = "=  C3 / B3 *100"
    
71.                 ' ¥»¦¸"F3"Àx¦s®æ¤ÀªR­È¤¤³Ì¤Ö­È
    
72.                 .Cells(angin_sr - 3, 6).Formula = "=MIN(B" & angin_sr & ":B" & xlRow & ")"
    
73.                 ' ¥»¦¸"G3"Àx¦s®æ¤ÀªR­È¤¤³Ì¤j­È
    
74.                 .Cells(angin_sr - 3, 7).Formula = "=MAX(B" & angin_sr & ":B" & xlRow & ")"
    
75.                 ' ¥»¦¸"H3"Àx¦s®æRANGE­È
    
76.                 .Cells(angin_sr - 3, 8).Formula = "=G3-F3"
    
77.                 ' ¥»¦¸©w¸q"I3"Àx¦s®æ¬°E178­È
    
78.                 .Cells(angin_sr - 3, 9).Value = E178(.Cells(angin_sr - 3, 1).Value)
    
79.                 ' ¥»¦¸©w¸q"j3"Àx¦s®æ¬°¤ÀªR­È¥­§¡­È
    
80.                 .Cells(angin_sr - 3, 10).Formula = "=AVERAGE(B" & angin_sr & ":B" & xlRow & ")"
    
81.                 ' ¥»¦¸©w¸q"k3"Àx¦s®æ¬°stdv
    
82.                 .Cells(angin_sr - 3, 11).Formula = "=STDEV(B" & angin_sr & ":B" & xlRow & ")"
    
83.                 ' ¥»¦¸"NG"®a¼Æ ­È
    
84.                 .Cells(angin_sr - 3, 12).Value = NGVALUE
    
85.                 ' ¥»¦¸¼ÐÃD¦C"°õ¦æ²Ä"¦r¦êª½±µ±q«e¦¸Àx¦s®æ¦ì¸mcopy
    
86.                 .Cells(angin_sr - 2, 1).Value = .Cells(sr - 2, 1).Value
    
87.                 ' ¥»¦¸¼ÐÃD¦CÅã¥Ü²Äan¦¸¤ÀªR
    
88.                 .Cells(angin_sr - 2, 2).Value = an
    
89.                 ' ¥»¦¸¼ÐÃD¦C"ouline"¦r¦êª½±µ±q«e¦¸Àx¦s®æ¦ì¸mcopy
    
90.                 .Cells(angin_sr - 2, 3).Value = .Cells(sr - 2, 3).Value
    
91.                 ' ¥»¦¸©w¸q¹êÅç«Ç½s¸¹¼ÐÃD¦Cª½±µ±q«e¦¸Àx¦s®æ¦ì¸mcopy
    
92.                 .Cells(angin_sr - 1, 1).Value = .Cells(sr - 1, 1).Value
    
93.                 ' ¥»¦¸©w¸q¹êÅç«Ç¤ÀªR­È¼ÐÃD¦Cª½±µ±q«e¦¸Àx¦s®æ¦ì¸mcopy
    
94.                 .Cells(angin_sr - 1, 2).Value = .Cells(sr - 1, 2).Value
    
95.                 ' ¥»¦¸©w¸qz-score­È¼ÐÃD¦Cª½±µ±q«e¦¸Àx¦s®æ¦ì¸mcopy
    
96.                 .Cells(angin_sr - 1, 3).Value = .Cells(sr - 1, 3).Value
    
97.                 ' ¥»¦¸©w¸qoutline¼ÐÃD¦Cª½±µ±q«e¦¸Àx¦s®æ¦ì¸mcopy
    
98.                 .Cells(angin_sr - 1, 4).Value = .Cells(sr - 1, 4).Value
    
99.                 ' ©w¸q§P©wµ²ªG­È¼ÐÃD¦Cª½±µ±q«e¦¸Àx¦s®æ¦ì¸mcopy
    
100.                 .Cells(angin_sr - 1, 5).Value = .Cells(sr - 1, 5).Value
     
101.                 ' ¥»¦¸"C"Äæ Z-SCORE ­È­pºâ
     
102.                 .Range("C" & angin_sr & " :C" & xlRow).Formula = "=(b" & angin_sr & "-$B$" & angin_sr - 3 & ") /$C$" & angin_sr - 3
     
103.                 ' ¥»¦¸ "D"ÄæOUTLINE­È­pºâ
     
104.                 .Range("d" & angin_sr & " :d" & xlRow).Formula = "= (B" & angin_sr & " -$J$" & angin_sr - 3 & ")/$K$" & angin_sr - 3
     
105.                                       
     
106.             End With
     
107.                        
     
108.             ' ¥»¦¸"E' Äæ§P§OOUTLINE,  true="ok"  FALSE="NG"
     
109.             ' "NG"®a¼Æ°_©l­È ,¥Øªº"±N¦³"ng"®a¼Æ°O¿ý¦b"L3"Äæ¦ì¥Î©ó¬O§_Ä~Äò§P§OOUTLINE
     
110.                        
     
111.             Worksheets(wr).Range("L" & angin_sr - 3).Value = 0
     
112.                        
     
113.             ' ¶}©l§P§O±q¥»¦¸°_©l¦C¶}©l
     
114.             again_ai = angin_sr
     
115.                           
     
116.             For again_ai = again_ai To ((angin_sr) + Worksheets(wr).Range("A" & angin_sr - 3).Value - 1)
     
117.                 ' ¤ñ¹ïD6¬O§_<   E178­È(I3)Äæ
     
118.                 If Worksheets(wr).Range("D" & again_ai).Value < Worksheets(wr).Range("I" & angin_sr - 3).Value Then
     
119.                     ' ­È=TRUE®ÉEÄæ°O¿ý""OK"
     
120.                     Worksheets(wr).Range("E" & again_ai).Value = "OK"
     
121.                 Else
     
122.                     ' ­È= FLACE®ÉEÄæ°O¿ý"NG"
     
123.                     Worksheets(wr).Range("E" & again_ai).Value = "NG"
     
124.                     ' ³]"NG"FONT.COLOR¬°¬õ¦â
     
125.                     Worksheets(wr).Range("E" & again_ai).Font.Color = vbRed
     
126.                     ' "NG"®a¼Æ+1
     
127.                     Worksheets(wr).Range("L" & angin_sr - 3).Value = Worksheets(wr).Range("L" & angin_sr - 3).Value + 1
     
128.                 End If
     
129.             Next again_ai
     
130.                                  
     
131.             ' ¦pªGÁÙ¦³"NG"­ÈÄ~Äò°õ¦æOUTLINE
     
132.             ' ±N¥»¦¸ªí®æ¦C¼Æ­È³]©wµ¹¤W¦¸ªí®æ¦C¼Æ¥Øªº±N¥»¦¸ªí®æ¦C¼Æ§@¬°¤U¦¸ªí®æ­pºâ°ò¦
     
133.             sr = angin_sr
     
134.         Loop
     
135.                
     
136.         ' ********¦¹³B¬°Worksheets(wr).Cells((sr - 3), 12).Value =0."NG" ®a¼Æ=0 ¥þ³¡""¥i°õ¦æZ-SCORE
     
137.         ' ©w¸qz_sr¬°z_score°_©lªí®æ¦C
     
138.         Dim z_sr As Integer
     
139.         angin_sr = sr ' ±Nsr­È¦^´pµ¹angin_sr¥Øªº¬°§â³Ì«á¤@¦¸outline "sr=angin_sr"¦^´p¦^¨Ó
     
140.         sr = 6 ' ±Nsr¦^´p¨ì²Ä¤@¦¸ªí®æ°_©l¦ì¸m
     
141.               
     
142.         ' z_sr=°õ¦æz-score°_©l¦C¬°:³Ì«á¤@¦¸°_©l¦C¼Æ+³Ì«á¤ÀªR®a¼Æ+6®æªÅ®æ
     
143.         z_sr = angin_sr + (Worksheets(wr).Cells((angin_sr - 3), 1).Value + 6)
     
144.               
     
145.         ' ³]©w¤¸¯Àz_score¼ÐÃD¦C¼ÐÃD(z_scoreªº²Ä¤T¦C)
     
146.         Worksheets(wr).Cells((z_sr - 2), 1).Value = "°õ¦æ"
     
147.         Worksheets(wr).Cells((z_sr - 2), 2).Value = Worksheets(wr).Name
     
148.         Worksheets(wr).Cells((z_sr - 2), 3).Value = "z_score"
     
149.                   
     
150.         ' ±N²Ä¤@¦¸ªí®æ"¹êÅç«Ç½s¸¹"(²Ä¤@¦æ¸¹)»P"¤ÀªR­È"(²Ä¤G¦æ)copy¦Üz_scoreªí®æ¦]¬°­n¥þ³¡"¹êÅç«Ç½s¸¹"»P"¤ÀªR­È"
     
151.                     
     
152.         Dim z_oi, z_oj   As Integer    ' ²Ä¤@¦¸ªí®æ¦C,¦æ¼Æ­p¼Æ¾¹
     
153.         Dim z_ai, z_aj   As Integer    ' z-scoreªí®æ¦C,¦æ¼Æ­p¼Æ¾¹
     
154.         z_oi = sr                      ' z_oi©w¸q¬°²Ä¤@¦¸°_©l®æªí®æ¶}©l­p¼Æ
     
155.         z_ai = z_sr                    ' z_ai©w¸q¬°z_score°_©lªí®æ¶}©l­p¼Æ
     
156.                  
     
157.         For z_oi = z_oi To sr + Worksheets(wr).Cells((sr - 3), 1).Value
     
158.             With Worksheets(wr)
     
159.                 .Cells(z_ai, 1).Value = .Cells(z_oi, 1).Value
     
160.                 .Cells(z_ai, 2).Value = .Cells(z_oi, 2).Value
     
161.             End With
     
162.             z_ai = z_ai + 1
     
163.         Next z_oi      

½Æ»s¥N½X

¤U¸ü (43.25 KB)

2012-7-20 16:36

lamihsuen

¦^´_ 7# c_c_lai
c-c-lai ¤j­ô§Ú¤W¶Ç¤FÀÉ®×,¦ý§Ú¤£·|§âÀɦW¶K¨ì©«¤l¤º,¤£ª¾§A¬O§_¥i±qªþ¥ó¥s¥X,

¹êÅç«Ç¯à¤O¤ÀªR´ú¸Õ¤u§@ (­×§ï¤¤2).rar (191.59 KB)

¤U¸ü¦¸¼Æ: 4

2012-7-19 19:02

c_c_lai

¦^´_ 6# lamihsuen
½Ðªþ¤W§A¹ê»ÚªºÀɮסA§Ú¨Ó¬Ý¬Ý§A¬O¦p¦ó³]©w¡C
P.S.  ©p¨S«ö "¦^´_" ¶s¦^´_¡A¦pªG§Ú¨S¦³¯d·N¨ìªº¸Ü¡A¬O¤£ª¾¹D¦³¦^´_¥óªº¡C

lamihsuen

c_c_lai ¤j­ô½Ð°Ý¤ô¥­¶bÃþ§O¥Ø«e¬O¦bø¹Ï°Ï¤ºÅã¥Ü§Ú·Q¸ò§A¤@¼ËÅã¥Ü¦bø¹Ï°Ï¥~¤U¤è¦p¦P§A¤W¤è¹Ïªíªº®É¶¡Åã¥Ü¤@¼Ë,¦]§Úªº¹Ïªí¸ê®Æ¼Æ¦C¦³+­È¤]¦³-­È ¦]¦¹§Úªº¥Ø«e¬OÅã¥Ü¦b¤¤¶¡0ªº¤U¤è½Ð°Ý»yªk­n¦p¦óªí¹F.¤~¯à¸ò¤@¼ËÅã¥Ü¦bø¹Ï°Ï¥~¤U¤èÁÂÁ«ü¾É

c_c_lai

¦^´_ 4# lamihsuen
¨S¿ù¡A©p¤]¥i¥HÀ³¥Î¤U¦C Set Sh = Sheets(xlSh) ¥H¤Î  With Sh.ChartObjects.Add ªº¤è¦¡¨Ó³B²z¡G

1. Private Sub »s¹Ïµ{§Ç(xlSh As String)                                '  ­«Ã¸
   
2.     Dim Sh As Worksheet, xi As Integer
   
3.    
   
4.     Set Sh = Sheets(xlSh)
   
5.     Sh.ChartObjects.Delete
   
6. 
   
7.     °}¦C³]©w ShName:=Sh.Name
   
8.     For xi = 1 To IIf(Sh.Name = "Omega", 5, 6)
   
9.         With Sh.ChartObjects.Add(Sh.Cells(xRow(xi), yCol(xi)).Left, Sh.Cells(xRow(xi), yCol(xi)).Top, cWidth(xi), cHeight(xi)).Chart
   
10.             .ChartType = IIf(xi >= 5, xlLine, xlColumnStacked)      ' xlLine-> §é½u¹Ï        ' xlColumnStacke-> °ïÅ|ª½±ø¹Ï
    
11.             .SetSourceData Source:=Chart_Source(xi)
    
12.             .HasLegend = 0                                          ' ¹Ïªíªº¹Ï¨Ò:  ¤£¥i¨£
    
13.             .SeriesCollection(1).AxisGroup = IIf(xi >= 5, 2, 1)
    
14.             
    
15.             If (xi = 5) Then
    
16.                 .SeriesCollection(4).ChartType = xlColumnClustered  ' °ïÅ|ª½±ø¹Ï
    
17.             ElseIf (xi = 6) Then
    
18.                 .SeriesCollection(2).ChartType = xlColumnClustered  ' °ïÅ|ª½±ø¹Ï
    
19.             End If
    
20. 
    
21.             With .Axes(xlCategory)                                  ' X®y¼Ð¶b
    
22.                 .CategoryType = xlCategoryScale
    
23.                 .TickLabels.NumberFormatLocal = "hh:mm"
    
24.                 .MajorTickMark = xlNone
    
25.                 .Border.Weight = xlHairline
    
26.                 .Border.LineStyle = xlNone
    
27.                 .TickLabelPosition = xlLow
    
28.                 .TickLabels.Font.Size = 10
    
29.             End With
    
30. 
    
31.             '*******************************************************************
    
32.             '  .
    
33.             '  .
    
34.             '  .
    
35. 
    
36.         End With
    
37.     Next xi
    
38. End Sub

½Æ»s¥N½X

§Ú¦Aªþ¤W§Ú¹ê°ÈÀ³¥Î¤Wªº¯u¹ê¹Ïªí´£¨Ñ©p°Ñ¦Ò¡CµL½×¬O¦óºØªí³æ¹Ï§Î¡A¨ä³]­p²z©À´X¥G¬O¹p¦Pªº¡C

¤U¸ü (78.89 KB)

2012-7-18 07:26

¤U¸ü (66.56 KB)

2012-7-18 07:26