Board logo

標題: [發問] 不同變數 四則運算 顯示全部結果 [打印本頁]
作者: a8602soul    時間: 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呢?
作者: GBKEE    時間: 2012-10-2 09:48

回復 1# a8602soul
附檔 範例 說明看看
作者: a8602soul    時間: 2012-10-2 11:05

如附件

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

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

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

[attach]12667[/attach]
作者: GBKEE    時間: 2012-10-2 11:23

回復 3# a8602soul
不好意思,我看不懂你四則運算邏輯在哪裡 .
作者: a8602soul    時間: 2012-10-2 11:41

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

回復 5# a8602soul
"EXCEL自動幫我們跑變數的方法"
多看看程式區的內容,可以體會到的
作者: a8602soul    時間: 2012-10-2 16:13

恩...感謝大大
我可能還需要很長的時間才能參透
作者: diabo    時間: 2012-10-2 22:02

回復 7# a8602soul
  1. Private Sub CommandButton1_Click()

  3.    '清除前次計算結果
  4.     Range("A2:H" & Rows.Count).Cells.Clear
  5.    
  6.    '依序列舉所有可能的數值
  7.     r = 2
  8.     For i = 2 To Range("L" & Rows.Count).End(xlUp).Row
  9.         變數A = Cells(i, "L").Value
  10.         For j = 2 To Range("M" & Rows.Count).End(xlUp).Row
  11.             變數B = Cells(j, "M").Value
  12.             For k = 2 To Range("N" & Rows.Count).End(xlUp).Row
  13.                 變數C = Cells(k, "N").Value
  14.                 For m = 2 To Range("O" & Rows.Count).End(xlUp).Row
  15.                      變數D = Cells(m, "O").Value
  16.                      
  17.                     '填入變數A-D
  18.                      Cells(r, "A").Value = 變數A
  19.                      Cells(r, "B").Value = 變數B
  20.                      Cells(r, "C").Value = 變數C
  21.                      Cells(r, "D").Value = 變數D
  22.                                           
  23.                     '計算A
  24.                      Cells(r, "E") = (2 + 2 + 變數A + 變數B) / (1 + 變數A)
  25.                     '計算B
  26.                      Cells(r, "F") = (變數B + 變數C) / (5 + 變數B + 變數C + 變數D)
  27.                     '計算C
  28.                      Cells(r, "G") = (2 + 3 + 變數C + 變數D) / (1 + 變數C) + 變數D
  29.                     '計算D
  30.                      Cells(r, "H") = (變數A + 變數D) / (變數C + 1)
  31.                      r = r + 1
  32.                 Next m
  33.             Next k
  34.         Next j
  35.     Next i
  36. End Sub
複製代碼
[attach]12681[/attach]
作者: a8602soul    時間: 2012-10-3 14:01

感謝diabo大大
超有感覺^^



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