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

warhead

½Ð°Ý§Ú­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?

jackyq

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

Scott090

¦^´_ 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

warhead

§Ú±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

PKKO

¦^´_ 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

Scott090

¦^´_ 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

ikboy

¦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