返回列表 上一主題 發帖

[發問] 如何從原總價工作表E15改變總計自動算出D2跟D3單價呢?

手工的事讓程式去跑
不過結果跟你手工不一樣
metrostar305.rar (8.51 KB)
學海無涯_不恥下問

TOP

本帖最後由 Hsieh 於 2010-8-31 11:23 編輯

沒看懂這句"最好能算出越接近 原 D2 跟 D3 的值越小越好且必須整數"
加入比例求起算值
  1. Sub yy()
  2. m = InputBox("目標", , 4175500)
  3. pr = m / ([C2] * [D2] + [C3] * [D3])
  4. k = Int([E2] * pr) + 1
  5. i = Int(k / [C2])
  6. y = (Val(m) - i * [C2]) / [C3]
  7.    Do Until y <> 0 And y = Int(y)
  8.       i = i - 1: y = (Val(m) - i * [C2]) / [C3]
  9.       If i = 0 Then MsgBox "無法取得": End
  10.     Loop
  11. [F2] = i: [F3] = y
  12. End Sub
複製代碼
metrostar305.rar (9.62 KB)
學海無涯_不恥下問

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題