返回列表 上一主題 發帖

[發問] 如何在儲存格輸入有變數的計算公式

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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)"
請敎各位大大要如何寫出上述正確的程式
收藏 分享

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
7#
發表於 2012-7-6 01:32 | 只看該作者
回復 6# oobird
感謝oobird大大的幫忙 問題已解決,.用了你程式已能正確執行

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
6#
發表於 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

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
5#
發表於 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 "

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

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
4#
發表於 2012-7-4 23:57 | 只看該作者
formula 跟angin_sr有些什麼關係?
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
3#
發表於 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格空格

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 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 & ")"

或許可以發一下檔上來,看看會不會比較易懂
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題