ªð¦^¦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....ÁÂÁÂ!

¦^´_ 1# samneng
  1. Private Sub CommandButton1_Click()
  2.     Dim c As Long
  3.     Sheets("¼Ï¯Ã¤H­û¤ÀªR").Activate
  4.     c = Cells(3, Columns.Count).End(xlToLeft).Column    '²Ä¤T¦C³Ì«á¤@µ§Ä渹
  5.    
  6.     With ActiveSheet.ChartObjects("¹Ïªí 2").Chart
  7.         .SetSourceData Source:=Union([A10:A14], [A17], Cells(10, c).Resize(5), Cells(17, c)) '¿ï¾Ü¸ê®Æ¨Ó·½
  8.         .SeriesCollection(1).Name = Cells(2, c) '¼Æ¦C¦WºÙ
  9.     End With
  10. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

ÁÂÁÂ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 : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD