如何從原總價工作表E15改變總計自動算出D2跟D3單價呢? - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 如何從原總價工作表E15改變總計自動算出D2跟D3單價呢?

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

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

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 115
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-8-30 14:50 | 顯示全部帖子

手工的事讓程式去跑
不過結果跟你手工不一樣

metrostar305.rar (8.51 KB)

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 115
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-8-30 22:55 | 顯示全部帖子

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

沒看懂這句"最好能算出越接近原 D2 跟 D3 的值越小越好且必須整數"
加入比例求起算值

Sub yy()
m = InputBox("目標", , 4175500)
pr = m / ([C2] * [D2] + [C3] * [D3])
k = Int([E2] * pr) + 1
i = Int(k / [C2])
y = (Val(m) - i * [C2]) / [C3]
Do Until y <> 0 And y = Int(y)
i = i - 1: y = (Val(m) - i * [C2]) / [C3]
If i = 0 Then MsgBox "無法取得": End
Loop
[F2] = i: [F3] = y
End Sub

複製代碼

metrostar305.rar (9.62 KB)

學海無涯_不恥下問

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

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