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

½Ð°Ý¦U¦ì¤j¤j¦³Ãö¹Ïªíªº¤p°ÝÃD...ÁÂÁÂ!!

½Ð°Ý¦U¦ì¤j¤j¦³Ãö¹Ïªíªº¤p°ÝÃD...ÁÂÁÂ!!

¤£¦n·N«ä¤pªº¤S¨Óµo°Ý¤F!.. ¹ê¦b¬O¦]¬°¤u§@¤ÓÂø¸I¨ì°ÝÃD¤Ó¦h
¥u¯à¤W¨Ó½Ð±Ð¦U¦ì¤j¤j!... ÁÂÁÂ!!

¥Ø«e¤pªº¦³»s§@¤@¥÷¹Ïªí(¹p¹F¹Ï)·Q­n·Q¿ìªk±N¹Ïªí¤º®e¦Û°Ê§ó·s¬°¦P¤W¤è¶g´Á¸ê®Æªº¤º®e
¦p¹Ï¥Ü:


ªþ¥ó :
¹Ïªí§ó·s¶µ¥Ø.zip (22.88 KB)

¤pªº§Q¥Î¥¨¶°¥u¯à¼g¥X¦p¤U»yªk :
  1. With Sheets("¼Ï¯Ã¤H­û¤ÀªR")
  2. ' ¹p¹F¤ÀªR¹Ïªº¸ê®Æ¨Ó·½
  3. .ChartObjects("¹Ïªí 2").Activate    '«ü©w¹Ïªíªº¸ê®Æ¨Ó·½
  4. ActiveChart.PlotArea.Select
  5. ActiveChart.SetSourceData Source:=Range("A10:A14,A17,D10:D14,D17")  '¿ï¾Ü¸ê®Æ¨Ó·½
  6. ActiveChart.SeriesCollection(1).Name = "=¼Ï¯Ã¤H­û¤ÀªR!$D$2" '¼Æ¦C¦WºÙ
  7. End With
½Æ»s¥N½X
¦ý¬O¦pªk¦Û°Ê§ó·s½Ð°Ý¦U¦ì¤j¤j¦³¨S¦³§ó¦nªº¤è¦¡¥i¥H³B²z....ÁÂÁÂ!

ÁÂÁÂstillfish00 ¤j¤jªº«ü¾É¤pªº·|¥Î¤ß¾Ç²ßªº...  

¤pªº¤w¸g¸Õ¹LµL»~¥Ø«e§V¤O¤ÀªR»yªk¤¤.... §Æ±æ¥i¥H¾Ç²ß§l¦¬ !...~~

¸U¤À·P¿E!... ÁÂÁÂ~..·PÁÂ!....

ªþ¤W§ó·s¹L«áªºÀÉ®×¥H«K«áÄò¦³¬Û¦ü°ÝÃDªº¤H¥i¥H°Ñ¦Ò!...

¹Ïªí§ó·s¶µ¥Ø.zip (23.75 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD