c_c_lai

¦³¤°»ò rounding ¨ç¼Æ¥i¥HÅý¨Ò¦p:

180.05
73.50
79.90
45.20

¥þ³¡¶i¦ì¬° 0.90

µª®×:
180.90
...
Qin µoªí©ó 2013-11-1 22:55

´£¨Ñ§A¨âºØ¼Ò¦¡³B²z¤è¦¡¡G
1.  ¨Ï¥Î¤½¦¡¡G

1. =INT(A1)+0.9

½Æ»s¥N½X

.   .   .   .    .

1. =INT(A4)+0.9

½Æ»s¥N½X

2.  ¨Ï¥Î VBA ³B²z¡G

1. Sub Ex()
   
2.     Dim rng As Range
   
3.    
   
4.     For Each rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
   
5.         rng.Offset(, 1) = Int(rng) & ".9"
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

¦pªG¨Ï¥Î Round ¤è¦¡¡G (Ä´¦p¡G A3 =  79.9¡F  E3 = ¡H)

1. =ROUND(A3,0)+0.9

½Æ»s¥N½X

©ÎªÌ¬O

1. Sub Ex()
   
2.     Dim rng As Range
   
3.    
   
4.     For Each rng In Range("A1", Range("A" & Rows.Count).End(xlUp))
   
5.         rng.Offset(, 1) = Int(rng) & ".9"
   
6.         rng.Offset(, 4) = Round(rng, 0) & ".9"
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

E3 ªºµ²ªGµ¥©ó 80.9¡C
©Ò¥H¨Ï¥Î INT() ·|¥h±¼ number ªº¤p¼Æ³¡¥÷¦Ó¶Ç¦^³Ñ¤Uªº¾ã¼Æ (79.9)¡C
¦p¦Ò¼{¦³­t­È®É¡A«h«Øij¨Ï¥Î Fix() ¨ç¼Æ¡C