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

µL±ø¥ó±Ë¥h°ÝÃD

µL±ø¥ó±Ë¥h°ÝÃD

½Ð°Ý§Ú­n±N¾ã­¶ªº¼Æ­ÈµL±ø¥ó±Ë¥h¨ì¤p¼Æ¨â¦ì

       With Temp.Range("C2")
            .Value = Format(.Value, "0.00")
        End With

¥i¥H°õ¦æ¡A¦ý¬O¼g¦¨¥H¤U´N¬°¥¢±Ñ

       With Temp.Range("C2:C10")
            .Value = Format(.Value, "0.00")
        End With

­ì¦]¬O¥X¦b­þÃä©O?

Format °Ñ¼Æ¤£¯à¬O°}¦C

TOP

¦^´_ 1# warhead

format(.value,"0.00") ·|¥|±Ë¤­¤J¡A¤£·|µL±ø¥ó±Ë¥h

¤U¦C·|±o¨ì Range °Ï°ì ªº ¼Æ­È ®æ¦¡ ¤p¼ÆÂI¥H¤U2¦ì
      With Temp.Range("C2:C10")
            . .NumberFormatLocal = "0.00"
        End With

TOP

§Ú±N¥L¸òVLOOKUP¤@°_¨Ï¥Î´N¥i¥H±o¨ì§Ú­nªºµ²ªG¤F
       With Temp.Range("C2:C10")
            .Value = "=ROUNDDOWN(VLOOKUP(A3,Temp!A:T,3,0),2)
            .NumberFormatLocal = "0.00"
        End With

¥u¬O§Ú³æ¿W¨Ï¥ÎROUNDDOWN ¸ò FORMAT¤@¼Ë¤£¯à¨Ï¥Î¦b°}¦C¡A
¦ý¬OROUNDDOWN¸òVLOOKUP¤@°_¨Ï¥Î«o¥i¥H¡H

TOP

¦^´_ 4# warhead

¸ê®Æ¶q¤£¤j¡A©Î¬O¤£¦Ò¼{°õ¦æ³t«×¥i¥H¥Î¤U¦C
  1. Sub TEST()
  2. For Each E In Range("A1:A2")
  3.     E.Value = Application.WorksheetFunction.Round(E.Value, 2)
  4. Next
  5. End Sub
½Æ»s¥N½X
¦Ò¶q³t«×¡A«Øij¥Î°}¦C³B²z§¹²¦¤§«á¦A¤@¦¸©Ê¿é¥X
PKKO

TOP

¦^´_ 4# warhead

³o¬O¤£¬O§A­nªº?

Dim c
For Each c In Temp.UsedRange
    c.Value = IIf(c <> 0, Application.RoundDown(c, 2), "")
Next

TOP

¦p½T¹ê«öµL±ø¥ó±Ë¥h³B²z, ¤£¯à¥Î round
  1. Sub zz()
  2. Dim a, c
  3. a = [a1].CurrentRegion
  4. For Each c In a
  5.     Debug.Print Int(c * 100) / 100
  6. Next
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD