c_c_lai

¦^´_ 40# GBKEE

¤U¸ü (131.46 KB)

2012-4-21 16:22

GBKEE

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

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

¦^´_ 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

¦^´_ 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

¦^´_ 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

¦^´_ 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

¦^´_ 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

cfuxiong

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

noorudin

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