start work on calculating months schedule

This commit is contained in:
Trowbridge 2019-03-14 17:08:08 -04:00
parent e3bf5bdcf5
commit 2f56c991a7

63
months.cls Normal file
View File

@ -0,0 +1,63 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "months"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Option Explicit
Private x As New TheBigOne
Private units() As Variant
Private price() As Variant
Private sales() As Variant
Private dumping As Boolean
Sub get_sheet()
units = Range("B6:F17")
price = Range("H6:L17")
sales = Range("N6:R17")
End Sub
Sub set_sheet()
dumping = True
Range("B6:F17") = units
Range("H6:L17") = price
Range("N6:R17") = sales
dumping = False
End Sub
Sub calc_adjust_vp()
Dim i As Integer
Call Me.get_sheet
For i = 1 To 12
If units(i, 4) = "" Then units(i, 4) = 0
If price(i, 4) = "" Then price(i, 4) = 0
units(i, 4) = units(i, 5) - (units(i, 2) + units(i, 3))
price(i, 4) = price(i, 5) - (price(i, 2) + price(i, 3))
sales(i, 5) = units(i, 5) * price(i, 5)
sales(i, 4) = sales(i, 5) - (sales(i, 2) + sales(i, 3))
Next i
set_sheet
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not dumping Then Call Me.calc_adjust_vp
End Sub