ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 40# GBKEE

01.png
2012-4-21 16:22

TOP

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

TOP

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

TOP

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

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-4-22 13:20 ½s¿è

¦^´_ 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.            With .PlotArea                          ' ¹ÏªíªºÃ¸¹Ï°Ï
  2.                 .Top = 16
  3.                 .Left = 1
  4.                 .Width = cWidth(xi)
  5.                 .Height = cHeight(xi)
  6.                 .Interior.ColorIndex = xlNone
  7.             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)

01.png
2012-4-22 13:18


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

TOP

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


EX1.GIF
2012-4-22 15:02

TOP

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

TOP

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

EX1.GIF
2012-4-23 12:20

TOP

¦^´_ 45# c_c_lai
c_c_laiª©¤j¡F§A¦n¡K¬Ý¤F§AªºExcel¹Ïªí¥u¦³Æg¹Ä¡K§Æ±æ¦h¦hµoªí¤å³¹¨Ñ§Ú­Ì¾Ç²ß¡KÁÂÁ¤F~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

´N¬O¦b³oùدà¾Ç¨ì«Ü¦hªF¦è¡A¯à¤H¦h¯«¤H§ó¦h
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD