c_c_lai

¦^´_ 2# wufonna
¸Õ¸Õ¬Ý¡I

¤U¸ü (105.95 KB)

2013-10-5 15:00

IsSort2.rar (817.56 KB)

¤U¸ü¦¸¼Æ: 5

2013-10-5 15:01

¸Ñ¨M¤èªk¦p¤U¡G
1.  .SetSourceData Source:=Range("data!$A$4:data!$A$" & totalRows & ", data!$B$4:data!$E$" & totalRows)
     ¥X²{¿ù»~°T®§¡F ¦ý¤£¤©²z·|¡A¨ä°ÝÃD¬O¦] totalRows ­È = 3075 (¶W¥X 255) ©Ò¤Þµo¡C
2.  ¦b ActiveSheet.Shapes.AddChart.Select ¤W¤@¦æ¡A ¬G·N¸É¤W¤@¦æ¡G (¿é¤J)
     totalRows = 100
     µM«á¡B¦A­«·s°õ¦æ drawCharts()¡A «Ý¥¿±`ø¥X¹Ïªí«á¦A±N totalRows = 100 ¨º¤@¦æ§R°£±¼¡A¦A°õ¦æ drawCharts¡A
     ¤§«á«K¤@¤Á OK ¸Ñ¨M¤F¡C¦Ü©ó¬°¦ó·|¥X²{¦¹¿ù»~°T®§¡A¥i¯à­n½Ð±Ð¦U¦ì«e½å¤F¡I
3.  ¯¬¶¶·N¡I

c_c_lai

¦^´_ 6# wufonna
¦^´_·í¨ÆªÌ®É¡A½ÐÂI«ö "¦^´_" ¿ï¶s¡A§_ªÌ·í¨Æ¤H¬OµLªk±oª¾
§A¬O§_µªÂЦ^À³¡A³o¤]¬O¤@ºØ§»ª»P´L­«¡C
§Aªº°ÝÃD¬O§_¦p¹Ï¡H

¤U¸ü (140.19 KB)

2013-10-10 07:56

c_c_lai

¦^´_ 8# wufonna
.HasLegend = ¤£¬O True ¡A «K¬O False
¸Õ¹Lªºµ²ªG¬OµLªk±N¨ä¤¤¥ô¤@ªº Legent ¦ì¸m²¾¶}¡C

c_c_lai

¦^´_ 11# wufonna

1. Sub MySort()
   
2.      Dim EndKBarRow As Long
   
3.         
   
4.     With Sheets("data")
   
5.         EndKBarRow = .Range("A" & Rows.Count).End(xlUp).Row
   
6.    
   
7.         With .Sort
   
8.             .SortFields.clear
   
9.             .SortFields.Add Key:=Range("A5"), SortOn:=xlSortOnValues, Order:=xlAscending
   
10.             '  ¸ê®Æ¥Ñ¤p¦Ó¤j¨Ì§Ç±Æ§Ç
    
11.             '  .SortFields.Add Key:=Range("A5"), SortOn:=xlSortOnValues, Order:=xlDescending
    
12.             '  ¸ê®Æ¥Ñ¤j¦Ó¤p¨Ì§Ç±Æ§Ç
    
13.             .SetRange Range("A5:R" & EndKBarRow)
    
14.             ' .Header = xlNone
    
15.             .Apply
    
16.         End With
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 13# wufonna
§A¦b drawCharts() ³Ì«e¡B¤Î³Ì«á¥[¤W¤@¦æ (¦p¤U) ø¹Ï§¹¦¨«áµe­±·|§ó²M²n¡C

1. Sub drawCharts()
   
2.     Dim toindexRows As Single, totalRows As Single, totalRows2 As Single
   
3.     Dim VIMax As Single, VIMin As Single
   
4.     Dim xRow, yCol, cHeight, cWidth As Integer
   
5.     Dim text As String
   
6.     Dim chartname As String
   
7.     Dim sRowHeight As Single
   
8. 
   
9.     '  xRow = 3
   
10.     xRow = 1
    
11.     yCol = 1
    
12.     '  cHeight = 450      'CHeight ©w¸q¬°¹Ïªí©Ò¦ûªº¦C°ª
    
13.     '  cWidth = 700
    
14.     cHeight = 360         ' CHeight ©w¸q¬°¹Ïªí©Ò¦ûªº¦C°ª
    
15.     cWidth = 720

½Æ»s¥N½X

1.     Sheets("chart").[A1].Select
   
2. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 13# wufonna
§Ú¦b drawCharts() ¥[¤F¤@¤p¬qµ{¦¡¡A¥¦±N¼ÐÃD²¾¥Xø¹Ï°Ï¡A
¦p¦¹¡A¤ñ¸û¤£·|À£¨ì K ½u¹ÏªºÃ¸»s (ªþ¤W¡G «e¡B«áªº¹Ïªí´£¨Ñ¤ñ¸û)¡G

1.         .ChartArea.Height = cHeight                     ' ¹Ïªí°ª«×
   
2.         .ChartArea.Width = cWidth                       ' ¹Ïªí¼e«×
   
3.          '
   
4.         With .PlotArea                          ' ¹ÏªíªºÃ¸¹Ï°Ï
   
5.             .Top = 20                           ' ¹Ïªíªº¹ê»Úø¹Ï°Ï°_©l¦ì¸m
   
6.             .Left = 1
   
7.             .Width = .Parent.ChartArea.Width
   
8.             .Height = .Parent.ChartArea.Height
   
9.             .Interior.ColorIndex = xlNone
   
10.             .InsideHeight = cHeight - 70        ' ½Õ¾ã¹ÏªíªºÃ¸¹Ï°Ï¤º³¡°ª«× (¬°°t¦X.Legend.Position = xlBottom )
    
11.         End With

½Æ»s¥N½X

¤U¸ü (64.19 KB)

2013-10-12 07:35

¤U¸ü (63.69 KB)

2013-10-12 07:35

c_c_lai

¦^´_ 16# wufonna
§Ú±N "¥xÆW¥[Åv«ü¼Æ-³ø¹S²v°Ï¶¡¹ÏIII"  µyµy¾ã²z¤F¤@¤U¡A
¨Ã¥[¥Hµ{¦¡½X¹ï¦ì¡A§Æ±æ¹ï§A¯à¦³©Ò§U¯q¡C
drawCharts2() ¬O§Ú±`À³¥ÎªºÃ¸¹Ï¤è¦¡¡A¨Ñ§A°Ñ¦Ò¡I
¥xÆW¥[Åv«ü¼Æ-³ø¹S²v°Ï¶¡¹ÏIII.rar (921.68 KB)

¤U¸ü¦¸¼Æ: 18

2013-10-13 14:26