麻辣家族討論版版 » Excel程式區 » 不同變數四則運算顯示全部結果

返回列表下一主題上一主題發帖

[發問] 不同變數四則運算顯示全部結果

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-10-1
最後登錄: 2013-12-19

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-2 08:33 | 只看該作者

[發問] 不同變數四則運算顯示全部結果

請問各位大大
如果我現在假定ABCD四區(皆為數字)
ABCD區裡有不同的參數(例如A1 A2 A3 B1 B2 C1 C2 C3 C4 D1 D2...)
現在我想求的是ABCD的四則運算
例如(2+A1+B1)/(A1+D1) or (3+5+A1+C3)/(4+D2)
但是在這些運算中都只會出現一個A B C D(或是不出現)
但是我現在沒辦法確定在A區我要選擇A1 A2還是A3
所以我希望將它全部的結果登顯示出來
請問我要以什麼樣的概念去寫VBA呢?

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-2 09:48 | 只看該作者

回復 1# a8602soul
附檔範例說明看看

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-10-1
最後登錄: 2013-12-19

3^#

發表於 2012-10-2 11:05 | 只看該作者

如附件

D5:D8有不同的可能
所以也會影響到E5:E8的答案
我想要將其全部的答案都顯示出來(不需要做成表格)
並將它全部顯示出來

例如在E5的答案它影響的參數有A(有個可能)跟B(有3個可能)
所以結果會有21個

請問有比較便利的寫法或做法嗎?
感謝大大~~

問題.zip (3.77 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-10-2 11:23 | 只看該作者

回復 3# a8602soul
不好意思,我看不懂你四則運算邏輯在哪裡 .

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-10-1
最後登錄: 2013-12-19

5^#

發表於 2012-10-2 11:41 | 只看該作者

因為那些四則運算可能是沒有邏輯的
或者我想直接用運算來計算就可以了
但是一個一個帶數字很不方便
所以我想問有沒有可以讓EXCEL自動幫我們跑變數的方法

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2012-10-2 11:50 | 只看該作者

回復 5# a8602soul
"EXCEL自動幫我們跑變數的方法"
多看看程式區的內容,可以體會到的

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-10-1
最後登錄: 2013-12-19

7^#

發表於 2012-10-2 16:13 | 只看該作者

恩...感謝大大
我可能還需要很長的時間才能參透

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

8^#

發表於 2012-10-2 22:02 | 只看該作者

回復 7# a8602soul

Private Sub CommandButton1_Click()
'清除前次計算結果
Range("A2:H" & Rows.Count).Cells.Clear
'依序列舉所有可能的數值
r = 2
For i = 2 To Range("L" & Rows.Count).End(xlUp).Row
變數A = Cells(i, "L").Value
For j = 2 To Range("M" & Rows.Count).End(xlUp).Row
變數B = Cells(j, "M").Value
For k = 2 To Range("N" & Rows.Count).End(xlUp).Row
變數C = Cells(k, "N").Value
For m = 2 To Range("O" & Rows.Count).End(xlUp).Row
變數D = Cells(m, "O").Value
'填入變數A-D
Cells(r, "A").Value = 變數A
Cells(r, "B").Value = 變數B
Cells(r, "C").Value = 變數C
Cells(r, "D").Value = 變數D
'計算A
Cells(r, "E") = (2 + 2 + 變數A + 變數B) / (1 + 變數A)
'計算B
Cells(r, "F") = (變數B + 變數C) / (5 + 變數B + 變數C + 變數D)
'計算C
Cells(r, "G") = (2 + 3 + 變數C + 變數D) / (1 + 變數C) + 變數D
'計算D
Cells(r, "H") = (變數A + 變數D) / (變數C + 1)
r = r + 1
Next m
Next k
Next j
Next i
End Sub

複製代碼

問題.zip (17.3 KB)

diabo

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 10
註冊時間: 2012-10-1
最後登錄: 2013-12-19

9^#

發表於 2012-10-3 14:01 | 只看該作者

感謝diabo大大
超有感覺^^

靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。

返回列表下一主題上一主題