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

[µo°Ý] ·í¤é´Á©M®É¶¡¦b¦P¤@­ÓÀx¦s®æ®É~¬O§_¥i¥H¥uÅý¥¦Åã¥Ü¤é´Á?

[µo°Ý] ·í¤é´Á©M®É¶¡¦b¦P¤@­ÓÀx¦s®æ®É~¬O§_¥i¥H¥uÅý¥¦Åã¥Ü¤é´Á?

Àx¦s®æ®æ¦¡  yyyy/mm/dd hh:mm
·í§Ú¿é¤J2013/11/07 16:30
·|¥¿±`Åã¥Ü2013/11/07 16:30
·í§Ú¿é¤J2013/11/07
«h·|Åã¥Ü2013/11/07 00:00
¦p¦óÅý00:00¤£Åã¥Ü¤S¯à¥¿±`ªº¨Ï¥Î¤é´Á·j´M©O?

¦^´_ 4# av8d


Àx¦s®æ®æ¦¡¡A¤@¯ë¥i§PÂ_ + - 0 ¼Æ¦r ©Î > < ¬Y¼Æ¤§®æ¦¡³]©w
­nµLªk§PÂ_ ¾ã¼Æ©Î«D¾ã¼Æ¡A¤]µLªk§PÂ_ 2003¦~©Î2004¦~

³o¨Ç¥i¥H¥Î¤½¦¡¨Ó³B²z¡A¦ý³o´N»Ý­nÂà´«¨ì¥t¤@®æ¡A
­Y¥ÎVBA³B²z¼u©Ê´N¤j¤F¡A¥i¥H°õ¦æ¥¨¶°¤@¦¸©Ê­«·s³]©w
©Î¥Î Worksheet_Change(ByVal Target As Range) ©ó¸ê®Æ¿é¤J«á±N®æ¦¡Åܧ󦨧A­nªº

Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target.Value) Then
    If Target.Value = Int(Target.Value) Then
        Target.NumberFormatLocal = "yyyy/mm/dd"
    Else
        Target.NumberFormatLocal = "yyyy/m/d h:mm"
    End If
End If
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 3# ML089


    ¬Ý¨ÓÆZ½ÆÂøªº¼Ë¤l~
¬O§_¥i¥HÁ|¨Ò»¡©ú? ÁÂÁ¤j¤jªº¥Î¤ßÆ[¬Ý!

TOP

³o¨â­Ó°ÝÃD³£¨S¦³¿ìªk¨Ï¥Î Àx¦s®æ®æ¦¡³B²z
°£«D¨Ï¥ÎVBA Worksheet_Change(ByVal Target As Range) ©ó¸ê®Æ¿é¤J«e±N®æ¦¡Åܧ󦨧A­nªº
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# av8d


    °l°Ý¤@­Ó°ÝÃD~
·í¤é´Á®æ¦¡¬°2013"/"##"/"##
¦p¦óÅý2013¦Û°Êµø¬°¤µ¤Ñ
¨ì©ú¦~´N¤£¥Î¦A§ï¦¨2014"/"##"/"##

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD