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

[µo°Ý] ¦p¦ó§å¦¸±N¤¤¶¡ªº¦rÅܦ¨ 0 ©O?

[µo°Ý] ¦p¦ó§å¦¸±N¤¤¶¡ªº¦rÅܦ¨ 0 ©O?

¦]À³­Ó¸êªkªº¬I¦æ  ²{¦b¤½§G³\¦h¦W³æ³£¤£¯à¥´¥X¥þ¦W

¦b excel ¤¤¦³¨S¦³¤èªk¯à§å¦¸±N¤¤¦rªº¦r§ï¯à 0

¨Ò¡G
³¯¤ô«ó¡÷³¯0«ó
°¨­^¤E¡÷°¨0¤E
¦¿©y¾ì¡÷¦¿0¾ì
m__m

¦^´_ 1# kkbox
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim S As String
  4.     Range("a1") = "³¯¤ô«ó"
  5.     S = Replace(Range("a1"), Mid(Range("a1"), 2, 1), "0")
  6.     Range("a1") = S
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

AÄæ
1³¯¤ô«ó¡÷A1=left(A1,1)&"0"&right(A1,1)
2°¨­^¤E¡÷A2=left(A2,1)&"0"&right(A2,1)
3¦¿©y¾ì¡÷A3=left(A3,1)&"0"&right(A3,1)
...§Q¥Î©ì¦²½Æ»s

TOP

DEAR SIR
  ¦p¤U ¶K©ó B1 ©¹¤UCOPY§Y¥i.

=IF(LEN(A1)-2=0,MID(A1,1,1)&"0",IF(LEN(A1)-3=0,MID(A1,1,1)&"0"&MID(A1,3,1),IF(LEN(A1)-4=0,MID(A1,1,1)&"0"&MID(A1,4,1),"¦W¦r5¦ì¤¸.»Ý¦A¼g¨ç¼Æ")))
ù

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD