½Ð°Ý¦U¦ì¤j¤j¦³Ãö¹Ïªíªº¤p°ÝÃD...ÁÂÁÂ!!
- ©«¤l
- 17
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 28
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-12-11
- ³Ì«áµn¿ý
- 2016-2-16
|
½Ð°Ý¦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¹Ï)·Qn·Q¿ìªk±N¹Ïªí¤º®e¦Û°Ê§ó·s¬°¦P¤W¤è¶g´Á¸ê®Æªº¤º®e
¦p¹Ï¥Ü:
ªþ¥ó :
¹Ïªí§ó·s¶µ¥Ø.zip (22.88 KB)
¤pªº§Q¥Î¥¨¶°¥u¯à¼g¥X¦p¤U»yªk :- With Sheets("¼Ï¯Ã¤Hû¤ÀªR")
- ' ¹p¹F¤ÀªR¹Ïªº¸ê®Æ¨Ó·½
- .ChartObjects("¹Ïªí 2").Activate '«ü©w¹Ïªíªº¸ê®Æ¨Ó·½
- ActiveChart.PlotArea.Select
- ActiveChart.SetSourceData Source:=Range("A10:A14,A17,D10:D14,D17") '¿ï¾Ü¸ê®Æ¨Ó·½
- ActiveChart.SeriesCollection(1).Name = "=¼Ï¯Ã¤Hû¤ÀªR!$D$2" '¼Æ¦C¦WºÙ
- End With
½Æ»s¥N½X ¦ý¬O¦pªk¦Û°Ê§ó·s½Ð°Ý¦U¦ì¤j¤j¦³¨S¦³§ó¦nªº¤è¦¡¥i¥H³B²z....ÁÂÁÂ! |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# samneng - Private Sub CommandButton1_Click()
- Dim c As Long
- Sheets("¼Ï¯Ã¤Hû¤ÀªR").Activate
- c = Cells(3, Columns.Count).End(xlToLeft).Column '²Ä¤T¦C³Ì«á¤@µ§Ä渹
-
- With ActiveSheet.ChartObjects("¹Ïªí 2").Chart
- .SetSourceData Source:=Union([A10:A14], [A17], Cells(10, c).Resize(5), Cells(17, c)) '¿ï¾Ü¸ê®Æ¨Ó·½
- .SeriesCollection(1).Name = Cells(2, c) '¼Æ¦C¦WºÙ
- End With
- End Sub
½Æ»s¥N½X |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 17
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 28
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-12-11
- ³Ì«áµn¿ý
- 2016-2-16
|
ÁÂÁÂ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)
|
|
|
|
|
|
|