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

[µo°Ý] ½Ð°Ý¦p¦óÅý¨ä¥¦ªº¬¡­¶Ã¯¤]¯à¨Ï¥Î¥¨¶°¡H

[µ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¡A­Y§Úªº¥¨¶°©ñ¦b Workbook1¡A¦ý¹Ï¦b Workbook2¡A
©I¥s Workbook1 ªº¥¨¶°­n­×§ï Workbook2 ªº¹Ï¡A¥i¬O Workbook2 ªº¹Ïªº X ¶b¨Ã¤£·|³Q­×§ï¡C

½Ð°Ý§Ú­n¦p¦ó­×§ï©O¡HÁÂÁ¡C
  1. Sub Axis_select()

  2. Application.ScreenUpdating = False

  3. Dim cht As ChartObject


  4. For Each cht In Selection

  5.     cht.Chart.Axes(xlCategory).Select
  6.     Selection.TickLabels.NumberFormatLocal = "#,##0.0;-#,##0.0;""POR"""

  7. Next cht


  8. Range("A1").Select

  9. Application.ScreenUpdating = True

  10. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD