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

[µo°Ý] ¦p¦ó°Ï§ONumberFormat¤ÎNumberFormatLocal¨Ï¥Î¤è¦¡©O¡H

[µo°Ý] ¦p¦ó°Ï§ONumberFormat¤ÎNumberFormatLocal¨Ï¥Î¤è¦¡©O¡H

¦U¦ì¤j¤j¦n¡G

½Ð°Ý¹ï©ó¼Æ¦r®æ¦¡ªº¥Îªk
À³¨Ï¥ÎNumberFormatLocal©Î¬O
¨Ï¥ÎNumberFormat©O¡H
¥H¤U¦Cªº»yªk¨Ï¥Î¤GªÌ³£±o¨ì
¬Û¦Pªºµ²ªG¡C


Sub mm()
   
    Dim aa As Range
    Dim bb As Range
   
    Set aa = Range("a1")
    Set bb = Range("b1")
    aa.NumberFormatLocal = "#,##0"   
    bb.NumberFormat = "#,##0"

    aa.Value = "123456789"
    bb.Value = "123456789"   
        
End Sub

ÁÂÁ¦U¦ì¤j¤j¡C

help¦³¼g³á!

NumberFormatLocal;
®M¥Î¦Ü Style ª«¥ó®É¥Î NumberFormatLocal ÄÝ©Ê¡C
¥H¨Ï¥ÎªÌ»y¨¥¦r¦ê¶Ç¦^©Î³]©wª«¥óªº³]©w¥N½X®æ¦¡¡CŪ/¼g String¡C

NumberFormat;
®M¥Î¦Ü DataLabel¡BDataLabels¡BPivotField¡BStyle ¤Î TickLabels ª«¥ó®É¥Î NumberFormat ÄÝ©Ê¡C
¶Ç¦^©Î³]©w«ü©wª«¥óªº®æ¦¡¥N½X¡CŪ/¼g String¡C
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

ÁÂÁª©¥D¤j¤jªº»¡©ú¡C

¤p§Ì¤]¦³§Q¥Îhelp»¡©ú¥ý¤F¸Ñ¨ä§t·N¡C
¥u¬O¨ä»¡©úÁÙ¯u¦³ÂIÃø¥H²z¸Ñ¡C
¤p§Ì·|¦AºCºC»â·|¨ä§t·N¤F¡I

·P®¦¤j¤j¡I

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-10-3 09:06 ½s¿è

¦^´_ 3# dechiuan999
¥H¤U»¡©ú¦p¦³¤£¹ï ·q½Ð«ü±Ð
NumberFormat¤ÎNumberFormatLocal  ( §½³¡,¥»¦a,°Ï°ì) ®t§O¦b¦r§À ¥Ø«e2003¤¤¤åª©¨Ï¥Î¤W§Ú¥u§ä¥X¦³¤@ÂI®t§O
¥t¥[¤Wª«¥óÄÝ©Ê Name ¤Î NameLocal ®t²§»¡©ú
Sub Ex()
    Dim a As CommandBar
    Set a = Application.CommandBars(1)
    MsgBox "¥\¯àªí1 ¦WºÙ: " & a.Name & Chr(10) & "¥\¯àªí1 ¦a°Ï¦WºÙ:  " & a.NameLocal
    With Range("a1")
        .Value = Date
        .NumberFormat = "m/d/yyyy"
        MsgBox "Range(""a1"") Åã¥Ü¬°: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
End Sub

TOP

ÁÂÁª©¥D¤j¤j¡G

¤p§Ì¸ÕµÛ§ïÅܤU¦C»yªk
©Ò±o¨ìªº·|¦³¤GºØµ²ªG¡C

»yªk¦p¤U¡G
Sub Ex()
    Dim a As CommandBar
    Set a = Application.CommandBars(1)
    MsgBox "¥\¯àªí1 ¦WºÙ: " & a.Name & Chr(10) & "¥\¯àªí1 ¦a°Ï¦WºÙ:  " & a.NameLocal
    With Range("a1")
        .Value = Date
        .NumberFormat = "m/d/yyyy"
        MsgBox "Range(""a1"") Åã¥Ü¬°: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
   
     With Range("b1")
        .Value = Date
        .NumberFormatLocal = "m/d/yyyy"
        MsgBox "Range(""b1"") Åã¥Ü¬°: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
     With Range("c1")
        .Value = Date
        .NumberFormatLocal = "mm/dd/yyyy"
        MsgBox "Range(""c1"") Åã¥Ü¬°: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
   
    With Range("d1")
        .Value = Date
        .NumberFormat = "mm/dd/yyyy"
        MsgBox "Range(""d1"") Åã¥Ü¬°: " & .Text & Chr(10) & "NumberFormat:" & Space(10) & .NumberFormat & Chr(10) & "NumberFormatLocal:  " & .NumberFormatLocal
    End With
   
End Sub

²Ä¤@­Ó ¡G2010/10/3
²Ä¤G­Ó ¡G10/3/2010
²Ä¤T­Ó ¡G10/03/2010       
²Ä¥|­Ó ¡G10/03/2010

³o¯u¥¿ªº®t²§¬°¦ó
¤p§Ì¥Ø«e©|¦b
´¢´ú¤§¤¤¡C

ÁÂÁª©¥D¤j¤j¡C

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD