c_c_lai

¦^´_ 17# lamihsuen

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

½Æ»s¥N½X

c_c_lai

¦^´_ 20# lamihsuen
½Ð±N drawStatistics() ¾ã­Ó©â´«±¼¡G

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

½Æ»s¥N½X

±ß¦w¡I

c_c_lai

¦^´_ 20# lamihsuen
Sub DrawStatistics(ct As Integer)
    Dim tbl As String
    Dim totalRow As Long
    Dim StartKBarRow, EndKBarRow As Long

    ' StartKBarRow = 6
    With Worksheets(ct)
        tbl = .Name
        ' sPos(1) = CInt(Mid("205*090*090*100*132*096*132*090*173*090*314*090", (ct - 4) * 4 + 1, 3)) ' ¹Ï¼Ð®y¼Ð(¦C)
        ' ¬°¦Ò¶q¦b¹ê°È¹B¥Î¤W¡A¨C±iªí³æ¤º§t¸ê®Æ¤º®e¤§¦h¹è¤£¤@¡A¥i¯à¹ê»Ú¨Ï¥Î¦C¼Æ®É¦³¼W´î¡A¬G§ï¥H°ÊºA³B²z¡C
        sPos(1) = .UsedRange.Rows.Count                               ' ¥H c ¬°¨Ò¡AÁ`¦@¨Ï¥Î(¿é¤J)¤F 204 Rows ¸ê®Æ¿ý¡C
        While IsEmpty(.Cells(sPos(1), 3).Value) And sPos(1) > 6       ' ©|¶·¦A¦¸¹LÂo³¡¤ÀªÅ¥Õ»P«D¯u¹ê¶×¤J¸ê®Æªº°ÝÃD¦C
            sPos(1) = sPos(1) - 1
        Wend
        
        ' EndKBarRow = .Range("A1").CurrentRegion.Rows.Count   ' ¥H c ¬°¨Ò¡A§PÂ_A1:A51°Ï¶¡¹ê»Ú¨Ï¥Î¤F(¦@¦³)¦h¤Ö¦C(Rows)
        ' ¥H c ¬°¨Ò¡AA155:A204 ¶¡Á`¦@¨Ï¥Î¤F¦h¤Ö¦C(50)¡C±µµÛ¦A¨D¥X¤W¤@­Ó°Ï¶¡ªº³Ì«á¤@¦æªº©Ò¦b¦æ¼Æ (204-50-2(ªÅ¥Õ¦C)=152)¡C
        EndKBarRow = sPos(1) - .Range("A" & sPos(1)).CurrentRegion.Rows.Count - 2
        ' ¥H c ¬°¨Ò¡A A105:A152 ¶¡Á`¦@¨Ï¥Î¤F¦h¤Ö¦C(48)¡C±µµÛ¦A¨D¥X¥»°Ï¶¡ªº²Ä¤@¦æªº©Ò¦b¦æ¼Æ (152-48+5(¼ÐÃD¦C)=109)¡C
        StartKBarRow = EndKBarRow - .Range("A" & EndKBarRow).CurrentRegion.Rows.Count + 5
        If (StartKBarRow < 6) Then StartKBarRow = 6          ' < 6 «h¥[ 1¡A ¦]°_©l¦C³Ì¤Ö¬° 6¡C
        
        Set Chart_Source = Range(tbl & "!$C$" & CStr(StartKBarRow) & ":" & tbl & "!$C$" & CStr(EndKBarRow))
        
        sPos(1) = sPos(1) + 5                                                                         ' ¹Ï¼Ð®y¼Ð(¦C)
        sPos(2) = CInt(Mid("001*001*001*001*001*001*001*001*001*001*001*001", (ct - 4) * 4 + 1, 3))   ' ¹Ï¼Ð®y¼Ð(Äæ)
        sPos(3) = CInt(Mid("900*900*900*900*900*900*900*900*900*900*900*900", (ct - 4) * 4 + 1, 3))   ' ¹Ïªí¼e«×
        sPos(4) = CInt(Mid("320*320*320*320*320*320*320*320*320*320*320*320", (ct - 4) * 4 + 1, 3))   ' ¹Ïªí°ª«×
        xText = UCase(tbl) & " : Z - Score"
        »s¹Ïµ{§Ç xlSh:=tbl
    End With
End Sub

c_c_lai

½×¾Âºô­¶¸ê®Æ¬O§_¦³²§ª¬¡H

c_c_lai

2012/7/22 ¥[¤J XValues ³]©w¹Ïªí¼Æ¦C¤¤ X ­Èªº°}¦C¡C ½Ð±N "»s¹Ïµ{§Ç()" ¤¤ .AxisGroup = 1 ªº¤U¤@¦C¼W¥[¤@¦æ¡G
.SeriesCollection(1).XValues = Range(Sh.Name & "!$A$" & CStr(StartKBarRow) & ":" & Sh.Name & "!$A$" & CStr(EndKBarRow))
¦p¤U©Ò¥Ü¡G


Private Sub »s¹Ïµ{§Ç(xlSh As String)                                ' ¥þ³¡­«Ã¸
    Dim Sh As Worksheet, xi As Integer
   
    Set Sh = Sheets(xlSh)
    Sh.ChartObjects.Delete

    With Sh.ChartObjects.Add(Sh.Cells(sPos(1), sPos(2)).Left, Sh.Cells(sPos(1), sPos(2)).Top, sPos(3), sPos(4)).Chart
        .ChartType = xlColumnClustered                            ' xlColumnStacked -> °ïÅ|ª½±ø¹Ï
        .SetSourceData Source:=Chart_Source
        .HasLegend = 0                                                           ' ¹Ïªíªº¹Ï¨Ò:  ¤£¥i¨£
        .SeriesCollection(1).AxisGroup = 1
        ' 2012/7/22 ¥[¤J XValues ³]©w¹Ïªí¼Æ¦C¤¤ X ­Èªº°}¦C¡C ­ì¥»¥¼³]©w¬O¥H¼Æ¦C§Ç¸¹³B²z¡A¬G¤©¥H­×¥¿¥H²Å¨Æ¹ê¡C
        .SeriesCollection(1).XValues = Range(Sh.Name & "!$A$" & CStr(StartKBarRow) & ":" & Sh.Name & "!$A$" & CStr(EndKBarRow))


¦P®É±N StartKBarRow »P EndKBarRow ªºÅܼƫŧi±q DrawStatistics() ¤¤²¾¸m¤½¥ÎÅܼƫŧi°Ï¶ô¡C


Option Explicit

Dim sPos(1 To 4)
Dim xText As String
Dim Chart_Source As Variant
' ¦]©ó DrawStatistics() ¥H¤Î »s¹Ïµ{§Ç() ¨ç¦¡¤º§¡»Ý¨Ï¥Î¡A¬G±N¦¹¨âÅܼƧאּ¤½¥ÎÅܼÆ
Dim StartKBarRow, EndKBarRow As Long   

¨ì¦¹§Ú·QÀ³¸Ó·~¤w¤j¥\§i¦¨¤F§a¡A¯¬©p¾Ç·~²r¶i¡I

P.S. ³Ì«á¦AÃØ°e¤@­Ó¤p§ª« ("##.##" §ï¦¨¦p¤U¡A¾\Äý·|§ó©ú½T)¡G
.DataLabels.NumberFormat = "#0.##"

c_c_lai

¦^´_ 8# lamihsuen
ºô­¶¦n¹³¦³°ÝÃD¡A¦³ªº¤º®e®Ú¥»¬Ý¤£¨ì°T®§¡A

c_c_lai

¦^´_ 30# lamihsuen
­ì¥»¬°

1.         With .PlotArea                                         ' ¹ÏªíªºÃ¸¹Ï°Ï
   
2.             .Top = 16
   
3.             .Left = 1
   
4.             .Width = sPos(3)
   
5.             .Height = sPos(4)
   
6.             .Interior.ColorIndex = xlNone
   
7.         End With

½Æ»s¥N½X

­×¥¿¬°

1.         With .PlotArea                                         ' ¹ÏªíªºÃ¸¹Ï°Ï
   
2.             .Top = 16
   
3.             .Left = 1
   
4.             .Width = sPos(3)
   
5.             .Height = sPos(4)
   
6.             .Interior.ColorIndex = xlNone
   
7.             
   
8.             ' ¥i¨Ì­Ó¤H¤§¦Ò¶q¤©¥H¼W´î¤º³¡¹Ïªíªº°ª¡B§C¡B¥H¤Î¼e«×
   
9.             .InsideLeft = 40
   
10.             .InsideTop = Sheets(xlSh).Rows(3).RowHeight * 2
    
11.             .InsideWidth = sPos(3) - 50
    
12.             .InsideHeight = sPos(4) - 5 * Sheets(xlSh).Rows(3).RowHeight
    
13.         End With

½Æ»s¥N½X

¸Õ¸Õ¬Ý¡I

c_c_lai

¦^´_ 30# lamihsuen
­è¶Çªº«ç»ò¤S¤£¨£¤F¡H¡H¡H¡H¡H¡H

c_c_lai

¥»ÃD¥Ø¦]ºô­¶¦³¨Ç©Ç²§(²Ä¤T­¶¦³¨Ç¦^À³³£¦Û°Ê®ø¥¢µL¼v)¡A¥B°ÝÃD·~¤w¥t¦æ¸Ñ¨M¡C
À³¤©¥Hµ²®×¡C