[µo°Ý] °ÊºA­×¥¿¶×¤J¹Ïªíªº³Ì«á¸ê®Æ¦C¤§¦C¼Æ©Ò©µ¦ùªº°ÝÃD

c_c_lai

§Ú¦³¤@¨ÇºÃ´b·Q½Ð¦U¦ì¤j¤j«ü¾É¡Aµ{¦¡½X¦p¤U¡G (¸Ì­±¤À§O³B²z¤F6­Ó²Î­p¹Ïªí)

1. Sub getEndRows()  ' ¥H Excel -> ´¡¤J -> §é½u¹Ï¡Bª½±ø¹Ï ¤è¦¡¤@¤@´¡¤J©ó¤u§@ªí³æ¤ºªºÀˬd¤è¦¡¡C
   
2.     Dim oShape As Shape
   
3.     Dim numChart As Integer
   
4.     Dim totalRows As Single
   
5.    
   
6.     numChart = 0
   
7.    
   
8.     Sheets("²Î­p¹Ïªí").Select
   
9.     totalRows = Range("B" & Rows.Count).End(xlUp).Row     ' ¶Ç¦^ B Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹ (¹ê»Ú¶×¤J¸ê®Æ¤§Á`¦C¼Æ)
   
10.             
    
11.     For Each oShape In ActiveSheet.Shapes
    
12.         If oShape.Type = 3 Then
    
13.             numChart = numChart + 1
    
14.             
    
15.             Cells(lines, 36).Value = "²Ä " & lines - 1 & " ­Ó¹Ïªí"           
    
16.             Cells(lines, 37).Value = oShape.Name
    
17. 
    
18.             ' Shapes(oShape.Name).Select     ' ¥²¶·¥ý¦æ«Å§i oShape.Name ¿ï¾Ü¡A§_«h¥H¤U®y¼Ð¦ì¸m¡B°ª«×¡B¥H¤Î¼e«×¤§­«·s³]©w±N¤©¥H©¿²¤¦ÓµL¹ê½è§@¥Î
    
19.             ActiveSheet.ChartObjects(oShape.Name).Activate                     
    
20.             Cells(lines, 38).Value = ActiveSheet.ChartObjects(oShape.Name).Name   ' µ²ªG¬Oµ¥©ó oShape.Name
    
21.                
    
22.             Select Case numChart
    
23.                 Case 1
    
24.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $I$1:$J$" & totalRows)  
    
25.                 Case 2
    
26.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AA$1:$AA$" & totalRows)
    
27.                 Case 3
    
28.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AC$1:$AC$" & totalRows)
    
29.                 Case 4
    
30.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AE$1:$AE$" & totalRows)
    
31.                 Case 5
    
32.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AG$1:$AG$" & totalRows)
    
33.                 Case Else
    
34.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $V$1:$V$" & totalRows)   ' ¹Ï¥Ü·|¤À§OÅã¥Ü¥X ¦¨¥æ»ù
    
35. 
    
36.                     ' ´ú¸ÕOK«á¡A¤§«á¤S¼W¥[¤F¥H¤U¥|¦æµ{¦¡½X
    
37.                     ActiveChart.Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
    
38.                     ActiveChart.Axes(xlCategory).MajorTickMark = xlNone
    
39.                     ' ±N®É¶¡¶b±q 0 ¨è«×½u¤U¤è(¹Ïªí¹w³]­È)²¾¦Ü¨ì¹Ïªí¤§³Ì¤U¤è¦ì¸m (­ì¥»¹w³]©ó­t­È¼Æ­È¦C³B¡A¾B»\¤F­t­È¦±½u¤§À˵ø¡F¬G±N¤§²¾¦ì¡A±N¨Ï±oªí®æ©ö©ó¾\Äý)
    
40.                    ActiveChart.Axes(xlCategory).TickLabelPosition = xlLow     
    
41. 
    
42.                    Cells(lines, 38).Value = ActiveChart.ChartTitle.Text  
    
43.             End Select
    
44.         End If
    
45.     Next
    
46. End Sub

½Æ»s¥N½X

1.     §Ú­ì¥»¬O¨Ï¥Î   Shapes(oShape.Name).Select  ¡A¦ý¦b¸Ó²Î­p¹Ïªí¤u§@ªí³æ¤º°õ¦æ®É¬OOK¡A¦ý±N¥¦·h¨ì ThisWorkbook ¤º´N¦³¿ù»~°T®§¡A©ó¬O«K§â¥¦­×§ï¦¨
         ActiveSheet.ChartObjects(oShape.Name).Activate «K¯à¶¶§Q°õ¦æ¡A¨ä­ì¦]¬°¦ó¡H ¥¿½TÀ³¦p¦óÀ³¥Î¡H
2.      ´ú¸ÕOK«á¡A¤§«á§Ú¤S¼W¥[¤F¥|¦æµ{¦¡½X¡Aµ²ªGÅã¥Ü Axes¡BTickLabels¡BctiveChart.ChartTitle.Text µ¥»yªk¤W¤£¥¿½T¡A
                    ActiveChart.Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
                    ActiveChart.Axes(xlCategory).MajorTickMark = xlNone
                   ActiveChart.Axes(xlCategory).TickLabelPosition = xlLow     
                   Cells(lines, 38).Value = ActiveChart.ChartTitle.Text  
        ½Ð±ÐÀ³¸Ó­n¦p¦ó­×¥¿¤~OK¡H
ÁÂÁ±z¡I

noorudin

´N¬O¦b³oùدà¾Ç¨ì«Ü¦hªF¦è¡A¯à¤H¦h¯«¤H§ó¦h

cfuxiong

¦^´_ 45# c_c_lai
c_c_laiª©¤j¡F§A¦n¡K¬Ý¤F§AªºExcel¹Ïªí¥u¦³Æg¹Ä¡K§Æ±æ¦h¦hµoªí¤å³¹¨Ñ§Ú­Ì¾Ç²ß¡KÁÂÁ¤F~~

GBKEE

¦^´_ 47# c_c_lai
CurrentRegion ÄÝ©Ê ¡A¸Óª«¥ó¥Nªí¥Ø«eªº°Ï°ì¡C¥Ø«e°Ï°ì¬O«ü¥H¥ô·NªÅ¥Õ¦C¤ÎªÅ¥ÕÄ檺²Õ¦X¬°Ãä¬Éªº½d³ò¡C°ßŪ¡C

1. ActiveCell.CurrentRegion.Select

½Æ»s¥N½X

¦p¹Ï ¥|­ÓÀx¦s®æ¥ô¿ï¤@­Ó  °õ¦æ  ³oµ{¦¡½X ¬Ý¬Ý¦³¦óÅܤƦp¦ó

¤U¸ü (14.38 KB)

2012-4-23 12:20

c_c_lai

¦^´_ 46# GBKEE
³o¬O³o­ÓijÃDªº³Ì«á¤@¦¸´£°Ý¡G
Set Rng = .Range("A1").CurrentRegion
¾Ì§Ú­Ó¤HªºÁo©ú¤~´¼¡AªFºËºË¦èºVºV¤]¹ê¦b¬Ý¤£¥X¥¦ªº¹ê»Ú¥Nªí§t¸q¡A
¥¦¦b´£¥Ü¬Æ»ò¡A¥¦§êºtªº¸}¦â¬O¬Æ»ò¡H ¦³¦óÁ|¨¬»´­«¡H
¨C¦¸«ö F1 ®É¡A¨ä»¡©ú¯u¦³¦p¸t¸g¡A¦³¬Ý¨SÀ´¡C
ÁÂÁ±z¡I

GBKEE

¦^´_ 45# c_c_lai
³o¤Ó²Ê¤ß,ÁÙ¬O§A²Ó¤ßªº§ä¥X¨Ó,
§Ú¬d¥X 2003ª©  ³o¿ù»~:
¦b¹Ïªí: ¹Ïªí°Ï, ø¹Ï°Ï.µ¥ ¦³¥i«ü©w Left ,Top, Width  ,Height ªº¦a¤è
³£¥i¥H±µ¨ü³o°}¦C¤£¥Î¯Á¤Þ­È , ·|¤ñ·Ó ¥ý«e¨Ï¥Î¹Lªº¯Á¤Þ­È  ¦p¤U
With Sh.ChartObjects.Add(Sh.Cells(xRow(xi), yCol(xi)).Left, Sh.Cells(xRow(xi), yCol(xi)).Top, cWidth(xi), cHeight(xi)).Chart

¤U¸ü (37.11 KB)

2012-4-22 15:02

c_c_lai

¦^´_ 44# GBKEE
¬Ó¤Ñ¤£¶d¦³¤ß¤H¡A²×©ó§ä¨ì¬°¦ó«¬ºA¤£²Å¤F¡C

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

½Æ»s¥N½X

°ÝÃD¥X¦b cWidth¡B¥H¤Î cHeight ¨â­ÓÅܼƪº«Å§i¡A¥¦­Ì°_ÀY¬O«Å§i¦¨ °}¦C«¬ºAªº¡C
©Ò¥H¹À¡I

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

½Æ»s¥N½X

¦p¦¹¤~¹ï¡I ÁöµM¬O¤p¦a¤è¡A«o§â¦Ñ©R§Ö·d±¼¤F¡I
¦p¤µ¦A§â¥Lµy¥[­×¹¢¦¨§Ú­nªº»Ý¨D¡A§Ú§â¥¿½TªºÀÉ®×¥ç¤@¨Öªþ¤W¡A
¥i¨Ñ¦³¤ß¦V¾Çªº¦@­×­Ì¤@¦P¨Ó¬ã²ß¡B°Q½×¡C

ÁÙ¦n°©ÀY¨S´²±¼.rar (187.38 KB)

¤U¸ü¦¸¼Æ: 24

2012-4-22 13:14

¤U¸ü (80.28 KB)

2012-4-22 13:18

®tÂI§Ñ¤F¦V±z»¡ÁnÁÂÁ¡I
ªü¨½¤ú¨§¡I

GBKEE

¦^´_ 43# c_c_lai

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xRow(), i As Integer
   
4.     xRow = Array(1, 2, 3, 4)    'xRow() ¬O¬°°ÊºA°}¦C
   
5.     For i = 0 To 3
   
6.         MsgBox xRow(i)
   
7.     Next
   
8. End Sub
   
9. Sub Ex1()
   
10.     Dim xRow(4), i As Integer
    
11.     'xRow(4) ¬O¬°ÀRºA°}¦C
    
12.     '³Ì¤p¥i¨Ï¥Îªº°}¦C¯Á¤Þ ¹w³]¬° 0  ¥i¥Î  Option Base {0 | 1} ¨Ó§ïÅÜ ¬O0 ©Î 1
    
13.     '³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ=4
    
14.     'xRow = Array(1, 2, 3, 4,5)  'µLªk¤@¦¸µ¹­È ,ÀRºA°}¦C ¶· ¤@¤@«ü©w­È
    
15.     xRow(0) = 1
    
16.     xRow(1) = 2
    
17.     xRow(2) = 3
    
18.     xRow(3) = 4
    
19.     xRow(4) = 5
    
20.     For i = 0 To 4
    
21.         MsgBox xRow(i)
    
22.     Next
    
23. End Sub
    
24. Sub Ex2()
    
25.     Dim xRow(4 To 8), i As Integer
    
26.     'xRow(4 to 8) ¬O¬°ÀRºA°}¦C
    
27.     '³]©w: ³Ì¤p¥i¨Ï¥Îªº°}¦C¯Á¤Þ =4 , ³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ = 8   
    
28.     'xRow = Array(1, 2, 3, 4,5)  'µLªk¤@¦¸µ¹­È ,ÀRºA°}¦C ¶· ¤@¤@«ü©w­È
    
29.     xRow(4) = 1               '
    
30.     xRow(5) = 2                '
    
31.     xRow(6) = 3
    
32.     xRow(7) = 4
    
33.     xRow(8) = 5
    
34.     For i = 4 To 8
    
35.         MsgBox xRow(i)
    
36.     Next
    
37. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 42# GBKEE
½Ð±Ð±z¡G
Dim xRow(1 To 6), yCol(1 To 6), cWidth(1 To 6), cHeight(1 To 6), xText(1 To 6)
Dim Chart_Source(1 To 6)

³o¨â¦æ¬O¦b«Å§i°}¦C (Array) ¶Ü¡H  (1 To 6) ¡H  ¤@ºû°}¦C¶Ü¡H
°£¤F³oµ¥«Å§i¤è¦¡¥~¡AÁÙ¦³¦óºØ¤è¦¡ªí¹F¡H

GBKEE

¦^´_ 41# c_c_lai
¨S2010ª© ­þ§Ú¤]¨Sªk«×¤F