[發問] 請問FormulaR1C1該如何修改才能只記錄"值"

JackieKM

請教高手大大
      以下是我的程式
     .Range(Cells(Pos, 10), Cells(Pos, 20)).FormulaR1C1 = "=RC[-5]-R[-1]C[-5]"
     執行後儲存格顯示的計算後的值，但點選儲存格卻是公式(如=A5-A4)
     請問我該如何修正才能讓儲存格只記錄"值"就好，感謝。

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

JackieKM

回復 2# c_c_lai

c_c_lai大大你好，謝謝您幫忙

    但我將程式改為 .Range(Cells(Pos, 10), Cells(Pos, 20)).Value = "=RC[-5]-R[-1]C[-5]"後，
    情況還是一樣，點選儲存格，裡面出現的還是公式，
    請容我解釋一下，我想做的是下面的計算，但希望的是計算後只記錄"值"就好，
    儲存格A4 - A3，將得到的值記錄在H4；儲存格B4 - B3，將得到的值記錄在I4, 等等.....
    希望大大能幫忙指點，再次感謝。

c_c_lai

回復 3# JackieKM
你會錯意了：

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

複製代碼

這兩行它是連續的。
換句話說，你原先的

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

複製代碼

的下一行再插入

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

複製代碼

測試便知。

JackieKM

回復 4# c_c_lai

c_c_lai大大你好，再次謝謝您指點，

      不好意思，是我誤會你的意思了，經過更改後確定OK，但還有以下兩點問題請教，
       1) 原本的儲存格為小數點兩位數，但經過相減後(假設兩者相減後值為 0.1)，得到的結果卻出現0.0999999999999801
       2) 使用R1C1時，FormulaR1C1紀錄的為公式，不知是否有其他方式可以直接紀錄"值"，會這樣問是因為我想簡化程式，謝謝。

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

複製代碼

或者是

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

複製代碼

准提部林

.FormulaR1C1 = "=ROUND(RC[-5]-R[-1]C[-5],2)"

避免有浮點數, 直接在原公式加ROUND也可!

c_c_lai

回復 7# 准提部林
不錯的處理方式。謝謝指點!

JackieKM

回復 6# c_c_lai

c_c_lai大大你好，再次謝謝您指點，

        第一點是我沒講清楚，原本我已在儲存格格式中設定為小數點兩位數，顯示的結果也是小數點兩位數，
        但點選儲存格，看到的結果卻是類似0.0999999999999801，加入NumberFormatLocal 後還是一樣，
        之前此程式使用For..Next..時並無此問題，請問是因為使用R1C1的關係嗎??  謝謝。

c_c_lai

回復 9# JackieKM
當宣告 .Range(Cells(Pos, 10), Cells(Pos, 20)).NumberFormatLocal = "#0.00"
它應該會自動將該指定之 "儲存格格式" 修正為 "數值型態 小數兩位。
與 R1C1 無關。