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

[µo°Ý] ³æ¤¸®æIJ°Ê¤Î¬P´Áªº°ÝÃD(©|¦b­W´o¤¤.........)

[µo°Ý] ³æ¤¸®æIJ°Ê¤Î¬P´Áªº°ÝÃD(©|¦b­W´o¤¤.........)

¥»©«³Ì«á¥Ñ olisun ©ó 2010-8-11 20:38 ½s¿è

³æ¤¸®æIJ°Ê¤Î¬P´Áªº°ÝÃD
¤@¡B·í"e2"¿é¤J¤é´Á¡Ak2¦Û°ÊÅã¥Ü¬P´Á¡A¥i¬Oe2¿é¤J¤é´Á¡Ak2¨S¤ÏÀ³
¤G¡B³oÅã¥Ü¥X¨Óªº¬O"¶g¤G"¦Ó¤£¬O"¬P´Á¤G"¡A­n«ç»ò³]¤~¥i¥HÅܦ¨¬P´Á?
Private Sub Worksheet_Change()
   Dim n As Range

     With Sheets(1)
   Set n = Sheets(1).Range("e2")
    .Range("k2") = Application.Text(n, "aaa")
    End With
End Sub

¦^´_ 1# olisun

    E2=8/10
    K2=®æ¦¡\¦Û­q\[$-404]aaaa=¬P´Á¤G

     
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¯à¥Îvbaªí¥Ü¶Ü

TOP

.Range("k2") = Application.Text(n, "[$-404]aaa")

TOP

IJµoªº°ÝÃD¸Ó«ç»ò³]©O?

TOP

Private Sub Worksheet_Change(ByVal TARGET As Range)
     With Sheets(1)
   Set n = Sheets(1).Range("e2")
    .Range("k2") = Application.Text(n, "[$-404]aaa")
    End With
End Sub
µ{¦¡©ñ¦bSHEET1,¤£­n©ñ¦b¼Ò¶ô

TOP

¦^´_ 5# olisun


     .Range("k2") = Application.Text(n, "[$-404]aaaa")
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 7# PD961A
¤@¯ë±`¥Î  Range("k2") = Format(n, "aaa")

TOP

¦^´_  PD961A
¤@¯ë±`¥Î  Range("k2") = Format(n, "aaa")
GBKEE µoªí©ó 2010-8-11 16:43



     ª©¥DÁÂÁ±z
      Format§Ú³£§â¥¦·í§@ªð¦^©Î²M°£¤F
      Format(" 08/02/2010 ","emmdd")ªð¦^¡G990802
     ÁÂÁ±z....
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

Private Sub Worksheet_Change(ByVal TARGET As Range)
     With Sheets(1)
   Set n = Sheets(1).Range ...
ANGELA µoªí©ó 2010-8-11 15:42



    ¥X²{microsoft excelµo¥Í°ÝÃD¡A¥²¶·Ãö³¬¡AÂÔ¦¹­Pºp
¿ù»~ªºÃ±¦W
AppName: excel.exe      AppVer: 14.0.4756.1000     AppStamp:4b9c08e8
ModName: excel.exe      ModVer: 14.0.4756.1000      ModStamp:4b9c08e8
fDebug: 0       Offset: 00009341

Private Sub Worksheet_Change(ByVal TARGET As Range)
§ï¥ÎPrivate Sub CommandButton1_Click() ´N¤£·|
¬O«ç»ò°ÝÃD?

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD