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

§â1 Åܦ¨'001

§â1 Åܦ¨'001

®v¥S­Ì

A1= 1
A2= 2
A3= 3
A4= 1000
A999999 =999999

§Ú·Q«Ø¥ß1­ÓVBA, §â¤w¿ï¨úªº½d³òÅܦ¨ '001 '002 '100 '1000 '999999 ,¨S¦³¿ï¨úªº¤£ÅÜ.
¥i¥H«üÂI¤@¤U¶Ü?

¸Õ¸Õ¬Ý¬O¤£¬O§A·Q­nªº¥\¯à §Ú¥Ø«e¬O³]©w§A¿ï¾Ü¨ìªº³æ¤@Àx¦s®æ·|§ïÅÜ

§â1 Åܦ¨'001.rar (20.27 KB)

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-9-27 00:28 ½s¿è

¦^´_ 1# boomf2

¦p¤U
  1. Sub qqq()
  2. A = 1
  3. B = Format(A, "000")
  4. MsgBox A & "  Åܦ¨ " & B
  5. End Sub
½Æ»s¥N½X
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 3# n7822123


    ©ÎªÌ
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Target.NumberFormatLocal = "000"
  3. End Sub
½Æ»s¥N½X
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD