標題: 算出日期比例,推出每季會花的錢 [打印本頁]

---

作者: anny8888    時間: 2014-6-26 13:54     標題: 算出日期比例,推出每季會花的錢

各位大大,

要在4個日期中,計算出比例,再乘上工程款, 目前以公式代入, 若要轉換成程式,應如何做?
[attach]18565[/attach]

---

作者: stillfish00    時間: 2014-6-26 15:55

回復 1# anny8888

1. Sub Test()
   
2.   Dim rIndex As Long, cIndex As Long
   
3.   Dim s, e, p, qs, qe, d
   
4.   
   
5.   With Sheets("Ex1")
   
6.     For rIndex = 6 To .Cells(.Rows.Count, "A").End(xlUp).Row
   
7.       s = .Cells(rIndex, 1).Value
   
8.       e = .Cells(rIndex, 2).Value
   
9.       p = .Cells(rIndex, 3).Value
   
10.       For cIndex = 4 To .Cells(1, .Columns.Count).End(xlToLeft).Column
    
11.         qs = .Cells(1, cIndex)
    
12.         qe = .Cells(2, cIndex)
    
13.         d = Application.Min(e, qe) - Application.Max(s, qs) + 1
    
14.         .Cells(rIndex, cIndex).Value = IIf(d > 0, p * d / (e - s + 1), "")
    
15.       Next
    
16.     Next
    
17.   End With
    
18. End Sub

複製代碼

---

作者: anny8888    時間: 2014-6-26 23:45

  感謝大大迅速的解答.

---

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