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

¦p¦óÅý¹ÏªíÅã¥Ü©T©w°Ï°ìªº¸ê®Æ?(¥i¥H¨C¤é§ó·s)

¦p¦óÅý¹ÏªíÅã¥Ü©T©w°Ï°ìªº¸ê®Æ?(¥i¥H¨C¤é§ó·s)

¤p§Ì·QÅý¹ÏªíÅã¥Ü©T©wÁͶժºK½u¹Ï(¤j¬ù40¤Ñ¥÷)... À³¥Î¸ê®Æ.zip (45.42 KB)

¦ý¬O..¨C¦¸§ó·s¸ê®Æ«á(§Ú¦bA8ªº¦ì¸m´¡¤J·s¸ê®Æ)..

¹Ï¼Ð¨ÌµMÅã¥Ü­ì¥ý¸ê®Æ
(¨Ò¦p¤µ¤Ñ¦bA8´¡¤J¸ê®Æ..¹Ïªí´NÅܦ¨±qA9ªº¸ê®Æ¶}©lŪ¨ú....©ú¤Ñ¦A´¡¤J¸ê®Æ..¥L´N±qA10¶}©lŪ¨ú..)

¸Õ¹L¥Îindirectªº«ü¥O..¤@ª½Åã¥Ü«ü¥O¿ù»~..

½Ð¤j®a«üÂI..ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# jiuhtsair
  1. Sub µ²½×()
  2.     Dim i As Integer
  3.     With Sheets("µ²½×")
  4.         .[A8:E8].Insert Shift:=xlDown
  5.         .Range("A8:E8") = .[a3:e3].Value
  6.     End With
  7.     With Sheets("K½u¹Ïªí°Ï ").ChartObjects("Chart 1").Chart
  8.         For i = 0 To 4
  9.             .SeriesCollection(i + 1).XValues = [µ²½×!a8].Resize(40) 'K½u¹ÏX¶b¸ê®Æ(¤j¬ù40¤Ñ¥÷)
  10.             .SeriesCollection(i + 1).Values = [µ²½×!b8].Offset(, IIf(i < 4, i, 3)).Resize(40) 'K½u¹ÏY¶b¸ê®Æ(¤j¬ù40¤Ñ¥÷)
  11.             '.SeriesCollection(i + 1) 'K½u¹ÏY¶b 1-5 ¼Æ¦C
  12.         Next
  13.         '¼Æ¦C5 ´Á³f¦¬½L
  14.      '   .SeriesCollection(5).XValues = [µ²½×!a8].Resize(40) 'K½u¹ÏX¶b¸ê®Æ(¤j¬ù40¤Ñ¥÷)
  15.       '  .SeriesCollection(5).Values = [µ²½×!E8].Resize(40) 'K½u¹ÏY¶b¸ê®Æ(¤j¬ù40¤Ñ¥÷)
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
·PÁ¤j¤j«üÂI..

­ì¥ý¥H¬°«ü¥Ü¾Þ§@¤Wªº¬Y­Ó¤pÄpµ²¥d¦í¤F..
¨S·Q¨ì­n°Ê¥Î¼gµ{¦¡..
¤p§Ì·|¦n¦n¬ã¨s..·PÁ±z¡CÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2014-6-3 16:05 ½s¿è

¦^´_ 3# jiuhtsair
¤]¥i¥H©w¸q¦WºÙ¡A¦p
©w¸q ¶}½L=OFFSET(µ²½×!$B$6,2,0,40,1)
            ©Î =OFFSET(INDIRECT("µ²½×!$B$8"),0,0,40,1)
¹Ïªíªº¼Æ¦C¦A¨Ï¥Î©w¸qªº¦WºÙ°µ¨Ó·½¡C

TOP

¦^´_ 4# stillfish00


·P®¦..

³o¬O¤p§Ì¤ñ¸û¯à°÷²z¸Ñªº¤è¦¡

ÁÂÁ¤j¤j«üÂI¡IÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD