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

[µo°Ý] ½Ð°Ý¹Ïªí¤º¨âµ§¸ê®Æ¤£¦P¹ÏªíÃþ«¬

[µo°Ý] ½Ð°Ý¹Ïªí¤º¨âµ§¸ê®Æ¤£¦P¹ÏªíÃþ«¬

¦U¦ì°ª¤â¦n¡G

¤p§Ì»Ý­n¥Î¦A¤@±i¹ÏªíÅã¥Ü¨âµ§¸ê®Æ¦ý¬O¤£¦P¹ÏªíÃþ«¬(ªø±ø¹Ï»P§é½u¹Ï)

¿ý»s«á½s¿èªºµ{¦¡½X¬°¤U
  1.     ActiveSheet.ChartObjects("¹Ïªí 1").Activate
  2.     ActiveChart.ChartType = xlColumnClustered
  3.     ActiveChart.SeriesCollection(1).Name = ¿ï¾Ü¤ë¥÷.Value & " - Á`¤H¼Æ²Î­p"
  4.     ActiveChart.SeriesCollection(1).Values = Sheet3.Range(A)
  5.     ActiveChart.SeriesCollection(2).Name = ¤W­­.Value
  6.     ActiveChart.SeriesCollection(2).Values = Sheet3.Range(B)
  7.     ActiveSheet.Shapes("¹Ïªí 1").Left = 30
  8.     ActiveSheet.Shapes("¹Ïªí 1").Top = 62
  9.     ActiveSheet.Shapes("¹Ïªí 1").Height = 130
  10.     ActiveSheet.Shapes("¹Ïªí 1").Width = 550
½Æ»s¥N½X
½Ð°Ý¸Ó«ç»ò¼g¤~¯àÅý ¤@±i¹Ïªí¤º²Ä¤@µ§¸ê®Æ(ÂŦâ)¬°ªø±ø¹Ï¡A²Ä¤Gµ§¸ê®Æ(¬õ¦â)¬°§é½u¹Ï©O¡HÁÂÁ¡IÁÂÁ¡I




Åܦ¨

¦^´_ 1# lifedidi
  1. ActiveChart.SeriesCollection(2).ChartType = xlLine
½Æ»s¥N½X

TOP

¦^´_ 2# stillfish00


­ì¨Ó¦p¦¹¡I§Ú·|¤F¡IÁÂÁ§A¡I

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD