- 帖子
- 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)
|
|
發表於 2012-10-2 09:48
| 
