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

[µo°Ý] RangeÅܼƥΪk°ÝÃD

[µo°Ý] RangeÅܼƥΪk°ÝÃD

Sub chart()

cr = "C" & sheets("1").range("B9")   '>>>>C25
mr = "M" & sheets("1").range("B9") '  >>>>M25
ActiveChart.ChartObjects("¹Ï1").Activate
ActiveChart.SetSourceDate Source:=Range("C21:cr,M21:mr")

End Sub

¤p§Ì·Q¶]§¹¦¹¥¨¶°«á¦Û°Ê§ó§ï¹Ï1 ªº¿ï¨ú½d³ò
¦ý°õ¦æ«á·|¥X²{¶¥¬q¿ù»~1004¡A¬O§_­þ¸Ì¦³¿ù»~½Ð¦U¦ì¤j¤j¨ó§UÀ°¦£

¦^´_ 1# Jason80Lo

³s±µ¤å¦rªº¹Bºâ¤l &
   
  1. ActiveChart.SetSourceDate Source:=Range("C21:" & cr & ",M21:" & mr)
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁ¤j¤j ¦^´_¡A¨º·Q½Ð°Ý¤@¤U¬O¦]¬°Range() ¸Ì­±³£¤@©w­n¬O¤å¦r©Ò²Õ¦¨ªº¶Ü¡H

TOP

¦^´_ 3# Jason80Lo
¥i²»¬ÝRange ÄÝ©Ê ªº»¡©ú
  1. Sub Ex()
  2.    With ActiveSheet
  3.             .Names.Add "AAA", Range("C1:F1")  '¤u§@ªí¤W·s¼W¦WºÙ
  4.             .Range("AAA").Select
  5.             Range("A1:C3").Select
  6.             Range(Cells(1, 1), Cells(4, 4)).Select
  7.             Range(Range("A1"), Range("F5")).Select
  8.            
  9.     End With
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ActiveChart.SetSourceDate Source:=Range("C21:cr,M21:mr")
©p¼gªº"C21:cr,M21:mr"¡A¦b""¤º´N·|Åܦ¨¤@­Ó¦r¦ê¡A¦Ó©pªºcr, mr¬OÅܼƩҥH­n§ï¦¨³o¼Ë¤l
ActiveChart.SetSourceDate Source:=Range("C21:" & cr & ",M21:" & mr)

&¥i¥H³s±µ¦r¦ê
clio

TOP

¦^´_ 5# clio

·PÁ¤j¤j¦^ÂСA°ÝÃD¤w¸Ñ¨M¤F ^^

TOP

¦^´_ 6# Jason80Lo


¤£«È®ð¡A¤j®a¤¬¬Û¾Ç²ß¡K
clio

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD