GBKEE

¦^´_ 2# li_hsien

1. Sub w_report_Click()
   
2.     '-----¶}±ÒWªí³æ-----   
   
3.     Dim program_file As String, filename As String, w_file As String   
   
4.     program_file = Left(ActiveWorkbook.Name, Application.Find(".", ActiveWorkbook.Name) - 1)
   
5.     filename = Application.GetOpenFilename   
   
6.     On Error GoTo HandleErr  '§A§Æ±æµ{¦¡½X¦³¿ù»~¨ì HandleErr
   
7.      A w_file '¦ý°õ¦æ¦¹µ{§Ç,¦p¦³¿ù»~·|¦^¨ìHandleErr,§A¤£©ö°»¿ùªº

½Æ»s¥N½X

1. Sub A(w_file)
   
2.     Dim this_week As Integer, end_col As Integer, end_row As Integer, i As Integer, delete_col As Integer
   
3.    'w_file->W1414_GF108_CP_weekly_report
   
4.    'w_file ¥¿½T¬° W1414_GF108_CP_weekly_report.xls
   
5.     With Workbooks(w_file).Worksheets(1)  'Workbooks(w_file)¤~¤£·|¥X¿ù

½Æ»s¥N½X

GBKEE

¦^´_ 4# li_hsien
§Úªº¬O2003ª©,°õ¦æªþÀɵ{¦¡½X¬O2003ª©¥H¤Wª©¥»¼gªº.
¿ù»~ÂI³£¬O "¤£¤ä´©¦¹ÄݩʩΤèªk" ,¥i¥H¼Ð¥X¿ù»~ÂI¬O­þ¸Ì,¬Ý¬Ý¦p¦ó¸Ñ¨M

1. Sub A_chart(w_file)
   
2.     'Dim C As ChartObject
   
3.     'Set C = Workbooks(w_file).Worksheets(1).ChartObjects("Chart 3")
   
4.     With Workbooks(w_file).Worksheets(1).ChartObjects("Chart 3").Chart
   
5.         '.ChartArea.Format.Line.Visible = msoFalse   '2003¿ù»~
   
6.         .ChartArea.Border.LineStyle = msoFalse   '§ï¦¨³o¼Ë¹ï¶Ü?
   
7.         .SizeWithWindow = True
   
8.         '.ChartArea.Width = 362.5 '¼e«× ­ì1449.25      '2003¿ù»~
   
9.         '.ChartArea.Height = 124.75  '°ª«× ­ì178.75    '2003¿ù»~
   
10.         .Parent.Width = 362.5  ' *** ³o¼Ë¹ï¶Ü? ***
    
11.         .Parent.Height = 124.75
    
12.         
    
13.         With .PlotArea
    
14.             .Height = 102.148661417323 'ø¹Ï°Ï°ª«× ­ì120.97031496063
    
15.             .Width = 342.872283464567  'ø¹Ï°Ï¼e«× ­ì358.980866141732
    
16.             .Left = 10 'ø¹Ï°Ï¦ì²¾
    
17.             .Top = 10  'ø¹Ï°Ï¦ì²¾
    
18.         End With
    
19. 
    
20.         '¹Ïªí¼ÐÃD
    
21.         With .ChartTitle
    
22.             If IsError(Application.Find(".", Worksheets(2).Range("G2"))) = False Then
    
23.                 .Text = Left(ActiveChart.ChartTitle.Text, Application.Find(" ", ActiveChart.ChartTitle.Text) - 1) _
    
24.                     & "-" & Mid(Worksheets(2).Range("G2"), Application.Find(".", Worksheets(2).Range("G2"), Application.Find(".", Worksheets(2).Range("G2")) + 1) + 1, 3) _
    
25.                     & " " & "wk" & Right(Worksheets(2).Range("A2"), 4) & " " & Right(ActiveChart.ChartTitle.Text, 15)
    
26.             ElseIf IsError(Application.Find(".", Worksheets(2).Range("G2"))) = True Then
    
27.                 .Text = Left(ActiveChart.ChartTitle.Text, Application.Find(" ", ActiveChart.ChartTitle.Text) - 1) _
    
28.                     & "-" & Mid(Worksheets(2).Range("G2"), Application.Find("_", Worksheets(2).Range("G2"), Application.Find("_", Worksheets(2).Range("G2")) + 1) + 1, 3) _
    
29.                     & " " & "wk" & Right(Worksheets(2).Range("A2"), 4) & " " & Right(ActiveChart.ChartTitle.Text, 15)
    
30.             End If
    
31.             .Font.Size = 6.5  '¼ÐÃD¦rÅé¤j¤p
    
32.             .Font.Name = "Arial" '¼ÐÃD¦r«¬
    
33.             .Left = 123  '¼ÐÃD¦ì²¾
    
34.         End With
    
35.         With .Legend
    
36.             .Position = xlLegendPositionBottom  '¹Ï¨Ò¦C©³³¡
    
37.             '.Legend.Top = 300   '¹Ï¨Ò¦ì²¾
    
38.             .Top = Range("A21").Top
    
39.             .Font.Size = 6.5 '¹Ï¨Ò¦rÅé¤j¤p
    
40.             .Font.Name = "Arial" '¹Ï¨Ò¦r«¬
    
41.         End With
    
42.         With .SeriesCollection("Yield")
    
43. '            .SeriesCollection(4).Border.ColorIndex = 18 '½u±øÃC¦â
    
44.             .Border.Color = 5066944 '½u±øÃC¦â
    
45.             '.SeriesCollection("Yield").Format.Line.Weight = 1 '½u±ø&¼Ð°O¼e¬°1
    
46.             '.Format.Line 2003¿ù»~ ***********
    
47.             .Border.Weight = 1            '.LineStyle = 0
    
48.             .Border.Weight = -4138   '¥u§ïÅܽu±ø
    
49.             .MarkerStyle = 2  '¼Ð°OµÙ§Î
    
50.             .MarkerBackgroundColorIndex = 2 '¼Ð°OÃC¦â(¥Õ)
    
51.             .MarkerSize = 5    '¼Ð°O¤j¤p5
    
52.             .MarkerForegroundColor = 5066944    '¼Ð°O¥~®Ø
    
53.             .ApplyDataLabels  'Åã¥Ü¸ê®Æ¼ÐÅÒ
    
54.             .DataLabels.Font.Size = 5  '¤W¦C¼Æ­È¦rÅé¤j¤p
    
55.             .DataLabels.Font.Name = "Arial" '¤W¦C¼Æ­È¦r«¬
    
56.             
    
57.         End With
    
58.         '.SeriesCollection("Yield").Select    '¤£»Ý­n
    
59.        ' .SetElement (msoElementDataLabelTop) '¸ê®Æ¼ÐÅÒ¸m¤W '2003¨S³o¿ï¶µ
    
60.         .Axes(xlValue, xlPrimary).AxisTitle.Font.Size = 6.5 'Y¶b¼ÐÃD¤j¤p
    
61.         .Axes(xlValue, xlPrimary).AxisTitle.Font.Name = "Arial" 'Y¶b¼ÐÃD¦r«¬
    
62.         .Axes(xlValue, xlPrimary).AxisTitle.Left = -3  'Y¶b¼ÐÃD¦ì²¾
    
63. 
    
64.         .Axes(xlCategory).TickLabels.Font.Size = 5  'X¶b¦rÅé¤j¤p
    
65.         .Axes(xlCategory).TickLabels.Font.Name = "Arial"    'X¶b¦r«¬
    
66.         
    
67.         .Axes(xlValue).TickLabels.Font.Size = 6.5  'Y¶b¦rÅé¤j¤p
    
68.         .Axes(xlValue).TickLabels.Font.Name = "Arial"  'Y¶b¦r«¬
    
69.         
    
70.         .SeriesCollection("Yield").DataLabels.Font.Size = 5  '¤W¦C¼Æ­È¦rÅé¤j¤p
    
71.         .SeriesCollection("Yield").DataLabels.Font.Name = "Arial" '¤W¦C¼Æ­È¦r«¬
    
72.     End With
    
73. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# li_hsien
¦Û¤v¹q¸£´ú¸Õ¦³°ÆÀɦW ¨S°ÆÀɦW³£¥i¥H (¤]¬O2003ª©¶Ü?,¥i¥H¶Ü?)

1. 'Workbooks(program_file).Worksheets(1).w_file = ""  '2003³o¸Ì¬O¿ù»~ªº
   
2.       w_file = ""  

½Æ»s¥N½X

GBKEE

¦^´_ 8# li_hsien
¨º¤£¦n·N«ä§Ú¥u¦³2003ª©À°¤£¤W¦£¤F.»Ý¦³½Ð2010ª©ªºÀ°¦£.

GBKEE

¦^´_ 11# li_hsien

1. MsgBox filename   '¦³°ÆÀɦWªº
   
2. 'Dir ¨ç¼Æ »yªk Dir [(pathname[, attributes])]
   
3. w_file = Dir(filename, vbNormal)  '¥[ attributes³o°Ñ¼Æ¸Õ¸Õ¬Ý

½Æ»s¥N½X