返回列表 上一主題 發帖

[發問] 絕對參照VS相對參照

[發問] 絕對參照VS相對參照

本帖最後由 t8899 於 2014-8-23 20:10 編輯

=IF(AD395=0,"",IF(AI395=0,0,SUM(AM395:AM395)/SUM(AI395:AI395)))
公式都無絕對參照的記號 $
如何快速複制此單元格到別的單元格仍為絕對參照(跟原公式一模一樣)

回復 1# t8899


    看不懂你要什麼?

是否舉例說明

儲存格1 = 原公式

儲存格2 = ?公式
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

本帖最後由 t8899 於 2014-8-24 06:29 編輯
回復  t8899
    看不懂你要什麼?
是否舉例說明

儲存格1 = 原公式

儲存格2 = ?公式
ML089 發表於 2014-8-23 23:44


儲存格1 = IF(AD395=0,"",IF(AI395=0,0,SUM(AM395:AM395)/SUM(AI395:AI395)))
儲存格1 copy 到 儲存格2  (公式沒變)
儲存格2 = IF(AD395=0,"",IF(AI395=0,0,SUM(AM395:AM395)/SUM(AI395:AI395)))
方法
1.公式前面加個單引號,然後複製到需要的單元格。再查找替換掉單引號  ===>這麻煩
我寫一個簡單程序
Sub 絕對位址copy() '請先用mouse選擇複製的範圍
    Dim rng As Range
    Set rng = Selection
a = InputBox("輸入開始位址") '例如 A1
b = InputBox("輸入結束位址")   '例如 G1   
Range(a & ":" & b) = Selection.Formula
End Sub
用mouse選擇複製的範圍, 目的輸入的範圍的儲存格個數最好一樣

TOP

再改一下新的版本 (不用輸入結束位址)
Sub 絕對位址copy() '請用mouse先選擇複製的範圍
    Dim rng As Range, a, z, r, rr
    Set rng = Selection
a = Selection.Address(0, 0)
z = InputBox("輸入開始位址")
Set r = Range(z).Offset(rng.Rows.Count - 1, rng.Columns.Count - 1)
Set rr = Range(z)
Range(rr.Address, r.Address) = Selection.Formula
End Sub

TOP

回復 3# t8899

快慢還看每人的習慣及能力
除非經常使用,使用VBA還是要好幾步驟

或許,反正工式都一樣,最後值也是一樣
儲存格2 = $儲存格1
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 有多少力量就做多少事,不要心存等待,等待才會落空。
返回列表 上一主題