- ©«¤l
- 113
- ¥DÃD
- 31
- ºëµØ
- 0
- ¿n¤À
- 149
- ÂI¦W
- 0
- §@·~¨t²Î
- xp & vista
- ³nÅ骩¥»
- 2003 & 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-12-29
- ³Ì«áµn¿ý
- 2020-5-22
|
[µo°Ý] ½Ð°Ý¦p¦óÅý¨ä¥¦ªº¬¡¶Ã¯¤]¯à¨Ï¥Î¥¨¶°¡H
¥H¤U¥N½X¬O¥uקï¿ï¨úªº¹Ïªº X ¶b¡C
¨Ò¦p Workbook1 ¦³ 5 ±i¹Ï¡A¿ï¨ú¨ä¤¤ 3 ±i¡A«h¥u·|קï¿ï©wªº 3 ±i¹Ï¡C
¦ý²{¦b¹J¨ì°ÝÃD¡AY§Úªº¥¨¶°©ñ¦b Workbook1¡A¦ý¹Ï¦b Workbook2¡A
©I¥s Workbook1 ªº¥¨¶°nקï Workbook2 ªº¹Ï¡A¥i¬O Workbook2 ªº¹Ïªº X ¶b¨Ã¤£·|³Qקï¡C
½Ð°Ý§Ún¦p¦óקï©O¡HÁÂÁ¡C- Sub Axis_select()
- Application.ScreenUpdating = False
- Dim cht As ChartObject
- For Each cht In Selection
- cht.Chart.Axes(xlCategory).Select
- Selection.TickLabels.NumberFormatLocal = "#,##0.0;-#,##0.0;""POR"""
- Next cht
- Range("A1").Select
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|