c_c_lai

¦^´_ 1# JackieKM
.Range(Cells(Pos, 10), Cells(Pos, 20)).FormulaR1C1 = "=RC[-5]-R[-1]C[-5]"
.Range(Cells(Pos, 10), Cells(Pos, 20)) =  .Range(Cells(Pos, 10), Cells(Pos, 20)).Value

c_c_lai

¦^´_ 3# JackieKM
§A·|¿ù·N¤F¡G

1. .Range(Cells(Pos, 10), Cells(Pos, 20)).FormulaR1C1 = "=RC[-5]-R[-1]C[-5]"
   
2. .Range(Cells(Pos, 10), Cells(Pos, 20)) =  .Range(Cells(Pos, 10), Cells(Pos, 20)).Value

½Æ»s¥N½X

³o¨â¦æ¥¦¬O³sÄòªº¡C
´«¥y¸Ü»¡¡A§A­ì¥ýªº

1. .Range(Cells(Pos, 10), Cells(Pos, 20)).FormulaR1C1 = "=RC[-5]-R[-1]C[-5]"

½Æ»s¥N½X

ªº¤U¤@¦æ¦A´¡¤J

1. .Range(Cells(Pos, 10), Cells(Pos, 20)) =  .Range(Cells(Pos, 10), Cells(Pos, 20)).Value

½Æ»s¥N½X

´ú¸Õ«Kª¾¡C

c_c_lai

¦^´_ 5# JackieKM

1. .Range(Cells(Pos, 10), Cells(Pos, 20)).FormulaR1C1 = "=RC[-5]-R[-1]C[-5]"
   
2. .Range(Cells(Pos, 10), Cells(Pos, 20)).NumberFormatLocal = "#0.00"
   
3. .Range(Cells(Pos, 10), Cells(Pos, 20)) =  .Range(Cells(Pos, 10), Cells(Pos, 20)).Value

½Æ»s¥N½X

©ÎªÌ¬O

1.     With .Range(Cells(Pos, 10), Cells(Pos, 20))
   
2.         .FormulaR1C1 = "=RC[-5]-R[-1]C[-5]"
   
3.         .NumberFormatLocal = "#0.00"
   
4.         .Value = .Value
   
5.     End With

½Æ»s¥N½X

c_c_lai

¦^´_ 7# ­ã´£³¡ªL
¤£¿ùªº³B²z¤è¦¡¡CÁÂÁ«üÂI!

c_c_lai

¦^´_ 9# JackieKM
·í«Å§i .Range(Cells(Pos, 10), Cells(Pos, 20)).NumberFormatLocal = "#0.00"
¥¦À³¸Ó·|¦Û°Ê±N¸Ó«ü©w¤§ "Àx¦s®æ®æ¦¡" ­×¥¿¬° "¼Æ­È«¬ºA ¤p¼Æ¨â¦ì¡C
»P R1C1 µLÃö¡C