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

½Ð¦U¦ì¤j¤jÀ°¦£­×§ï«Ø¥ß®r¤J¹Ïªí¿ù»~»yªk

½Ð¦U¦ì¤j¤jÀ°¦£­×§ï«Ø¥ß®r¤J¹Ïªí¿ù»~»yªk

½Ð¦U¦ì¤j¤jÀ°¦£   §Ú·Q¦bWorksheets(wr)¤u§@ªí¤¤Ã¸»s¹Ïªí(«Ø¥ß®r¤J¹Ïªí)½Ð°Ý¥¿½T»yªk¬°¦ó

¦pªG¤U¦CÅܼƩw¸q¦p¤U¼Æ­È
WR=4
z_sr =120
lRow= 150
chart_sr     =156
chart_end=166
'³]©w­n®r¤J¹Ïªíªº¦ì¸m
Dim GR As Range
   Set GR = Worksheets(wr).Range("A" & chart_sr & " :I" & chart_end)'
    With Worksheets(wr).ChartObjects.Add(GR.Left, GR.Top, GR.Width, GR.Height)
'³]©w¤u§@ªí¦WºÙ+"­È"¬°¹Ïªí¦WºÙ
               Worksheets(wr).ChartObjects.name= Worksheets(wr).name&"­È"
' ³]©w¸ê®Æ½d³ò¬°Àx¦s®æ   Worksheets(wr).   RANRE ("A" & z_sr & " :C" & xlRow)
         Worksheets(wr).ChartObjects.SetSourceData.RANRE ("A" & z_sr & " :C" & xlRow)
½Ð°Ý³]©w¹Ïªí¦WºÙ.©M³]©w¹Ïªíªº¸ê®Æ½d³ò¥¿½Tªº»yªk¬°¦ó?

¥»ÃD¥Ø¦]ºô­¶¦³¨Ç©Ç²§(²Ä¤T­¶¦³¨Ç¦^À³³£¦Û°Ê®ø¥¢µL¼v)¡A¥B°ÝÃD·~¤w¥t¦æ¸Ñ¨M¡C
À³¤©¥Hµ²®×¡C

TOP

¦^´_ 30# lamihsuen
­è¶Çªº«ç»ò¤S¤£¨£¤F¡H¡H¡H¡H¡H¡H

TOP

¦^´_ 30# lamihsuen
­ì¥»¬°
  1.         With .PlotArea                                         ' ¹ÏªíªºÃ¸¹Ï°Ï
  2.             .Top = 16
  3.             .Left = 1
  4.             .Width = sPos(3)
  5.             .Height = sPos(4)
  6.             .Interior.ColorIndex = xlNone
  7.         End With
½Æ»s¥N½X
­×¥¿¬°
  1.         With .PlotArea                                         ' ¹ÏªíªºÃ¸¹Ï°Ï
  2.             .Top = 16
  3.             .Left = 1
  4.             .Width = sPos(3)
  5.             .Height = sPos(4)
  6.             .Interior.ColorIndex = xlNone
  7.             
  8.             ' ¥i¨Ì­Ó¤H¤§¦Ò¶q¤©¥H¼W´î¤º³¡¹Ïªíªº°ª¡B§C¡B¥H¤Î¼e«×
  9.             .InsideLeft = 40
  10.             .InsideTop = Sheets(xlSh).Rows(3).RowHeight * 2
  11.             .InsideWidth = sPos(3) - 50
  12.             .InsideHeight = sPos(4) - 5 * Sheets(xlSh).Rows(3).RowHeight
  13.         End With
½Æ»s¥N½X
¸Õ¸Õ¬Ý¡I

TOP

¦^´_ 28# c_c_lai
c_c_lai ¤j­ô   ½Ð°Ý¦p¦ó³]©wÅý¹Ïªí°Ï»Pø¹Ï°Ï©³³¡ªÅ¶¡¤j¤@ÂI,§Ú¥[¤J¤ô¥­¶b¼ÐÃD®É³£·|»PÃþ§O¼ÐÅÒ­«疉

TOP

c_c_lai  ¤j­ô, ½Ð°Ý¦Cªí²Ä¤T­¶¥H«á³£¤£¨£¤F,­n¦p¦ó¥s¥X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-7-24 21:06 ½s¿è

¦^´_ 8# lamihsuen
ºô­¶¦n¹³¦³°ÝÃD¡A¦³ªº¤º®e®Ú¥»¬Ý¤£¨ì°T®§¡A

TOP

¦^´_ 30# c_c_lai
c_c_lai ¤j­ô, ­ì½Ì§Úªº°g½k.§Ú§âDim StartKBarRow, EndKBarRow As Long±q»s¹Ïµ{¦¡²¾°£«áµ{¦¡´N¯à¥¿½T°õ¦æ

TOP

¦^´_ 30# c_c_lai
c_c_lai¤j­ô¥[¤J¤U¦C®É

   . SeriesCollection(1).XValues = Range(Sh.Name & "!$A$" & CStr(StartKBarRow) & ":" & Sh.Name & "!$A$" & CStr(EndKBarRow))
·|¥X²{"°õ¦æ¶¥¬q¿ù»~'1004'range¤èªk('global'ª«¥ó¥¢±Ñ)

TOP

¦^´_ 30# c_c_lai
c_c_lai ¤j­ô  ¹ï¤£°_ÁÙ没§¹¦¨³Ì²×¥Ø¼Ð,¥i¥H¬Ý¬Ý¦A²{¦b¶Çµ¹§AÀɮ׬O§Ú­n¥Îvba»yªk§¹¦¨ªº³Ì²×¥Ø¼Ð¾ã­Ó¹Lµ{¦p¤U敍­z
  1 ¥ýªì©l¤ÀªRµ²ªGªí  
   2  ¦A°õ¦æoutline§P§O  , ¦pªG¦X®æ´N°O¿ý"ok"¤£¦X®æ´N°O¿ý"ng"  
   3  ¦pªG¦³"ng"­È¥h°£"ng"¸Ó¦C,  §â"ok"¦Ccopy ¨ì¤U¤@¦¸ªí®æ°Ï¶¡¦A°õ¦æoutline§P§O,(¦]¬°¦C¼Æ(®a¼Æ)´î¤Ö,§P§O­È·|§ïÅÜ)
  4  ¤@ª½¨ì¥þ³¡³£"ok"®É³o­Óªí®æ°Ï¶¡¬O§Ú¹Ïªí¸ê®Æªº¨Ó·½5 ³Ì«á¦A¼W¥[¤@ªí®æ°Ï¶¡(ºÙ¬°°õ¦æz_score)§â¥þ³¡¦C¼Æ(®a¼Æ)copy ¨ì³Ì«áªí®æ°Ï¶¡ (°õ¦æz_score)§@z_score§P§O
5 ¦A§¹¦¨³ø§i®Ñ
    11C1.rar (47.98 KB)

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD