標題: [發問] 如何在儲存格輸入有變數的計算公式 [打印本頁]

---

作者: lamihsuen    時間: 2012-7-4 18:36     標題: 如何在儲存格輸入有變數的計算公式

請敎各位大大我想在下列儲存格範圍 輸入計算公式因為列數會變動因此數字值 (列數)要改用變數

Worksheets(wr).Range(C58:C102).FORMULA="=(B6-$B$3)/$C$3"
Worksheets(wr).Range(D58:D102).FORMULA=(B6-$B$52)/$B$53
我用下列方式但都錯誤,
Worksheets(wr).Range("C" & angin_sr & " C" & xlRow &  ).Formula = "=(B" & angin_sr & "-$B$(angin_sr-3)/$C$(angin_sr-3)"
請敎各位大大要如何寫出上述正確的程式

---

作者: kimbal    時間: 2012-7-4 22:06

不太明的你想要如何跳傳,
單看語法上:
Worksheets(wr).Range("C" & angin_sr & " C" & xlRow).Formula = "=(B" & angin_sr & "-$B$(" & angin_sr - 3 & ")/$C$(" & angin_sr - 3 & ")"

或許可以發一下檔上來,看看會不會比較易懂

---

作者: lamihsuen    時間: 2012-7-4 22:42

回復 2# kimbal
DIM  angin_sr AS  integer

angin_sr  = sr +workshees(wr).ranger("a3").vaiue+6
angin_sr 為第二次起始列數,=  第一次起始列數值(sr)+第一次所有列數數目(workshees(wr).ranger("a3").vaiue)+6格空格

---

作者: kimbal    時間: 2012-7-4 23:57

formula 跟angin_sr有些什麼關係?

---

作者: lamihsuen    時間: 2012-7-5 09:48

回復 4# kimbal
   k大:
對不起
Worksheets(wr).Range("C" & angin_sr  ": " C" & xlRow &  ).Formula = "=(B" & angin_sr & "-$B$(angin_sr-3)/$C$(angin_sr-3)"
應該少1 個   :     符號 我這語法想要表達的是wr工作表儲存格"C" 列數   :" C"列數)的 範圍.formula (設定公式) =(為) ("B"列數  -  "B"列數(鎖定儲存格)  /   "C" 列數( 鎖定儲存格)
如果   angin_sr = 58
            xlrow     =   102
則上列語法會是下列的語法
Worksheets(wr).Range("C58" :"C102" ).Formula = "=("B58"-"$B$ 55") /$C$ 55 "

我想要請教前輩的是上列程式當數字用變數代替時上列語法要如何寫出

---

作者: oobird    時間: 2012-7-5 10:45

wr = 1
    angin_sr = 58
    xlrow = 102
    Worksheets(wr).Range("C" & angin_sr & " :C" & xlrow).Formula = "=(b" & angin_sr & "-$B$" & angin_sr - 3 & ") /$C$" & angin_sr - 3

---

作者: lamihsuen    時間: 2012-7-6 01:32

回復 6# oobird
感謝oobird大大的幫忙 問題已解決,.用了你程式已能正確執行

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)