price volume colors
This commit is contained in:
parent
7e57d4621f
commit
19021da028
42
fpvt.frm
42
fpvt.frm
@ -4,7 +4,7 @@ Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fpvt
|
||||
ClientHeight = 8445.001
|
||||
ClientLeft = 120
|
||||
ClientTop = 465
|
||||
ClientWidth = 9285.001
|
||||
ClientWidth = 8940.001
|
||||
OleObjectBlob = "fpvt.frx":0000
|
||||
StartUpPosition = 1 'CenterOwner
|
||||
End
|
||||
@ -97,8 +97,9 @@ Private Sub butAdjust_Click()
|
||||
Exit Sub
|
||||
End If
|
||||
Case Else
|
||||
MsgBox ("not on an adjustable tab")
|
||||
Exit Sub
|
||||
doc = tbAPI.text
|
||||
'MsgBox ("not on an adjustable tab")
|
||||
'Exit Sub
|
||||
End Select
|
||||
|
||||
Call handler.request_adjust(doc, fail)
|
||||
@ -434,10 +435,31 @@ End Sub
|
||||
|
||||
Private Sub opPlugPrice_Click()
|
||||
calc_val
|
||||
If opPlugPrice.value = True Then
|
||||
opPlugPrice.BackColor = -2147483624
|
||||
Else
|
||||
opPlugPrice.BackColor = -2147483644
|
||||
End If
|
||||
If opPlugVol.value = True Then
|
||||
opPlugVol.BackColor = -2147483624
|
||||
Else
|
||||
opPlugVol.BackColor = -2147483644
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub opPlugVol_Click()
|
||||
calc_val
|
||||
If opPlugVol.value = True Then
|
||||
opPlugVol.BackColor = -2147483624
|
||||
Else
|
||||
opPlugVol.BackColor = -2147483644
|
||||
End If
|
||||
If opPlugPrice.value = True Then
|
||||
opPlugPrice.BackColor = -2147483624
|
||||
Else
|
||||
opPlugPrice.BackColor = -2147483644
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub sbpd_Change()
|
||||
@ -737,6 +759,18 @@ Private Sub UserForm_Activate()
|
||||
pickSWAP.list = Application.transpose(Worksheets("mdata").Range("F2:F1672"))
|
||||
Call x.frmListBoxHeader(Me.lbSWAPH, Me.lbSWAP, "Original", "Sales", "Replacement", "Fit")
|
||||
|
||||
'---------price volume radio button colors----------
|
||||
If opPlugPrice.value = True Then
|
||||
opPlugPrice.BackColor = -2147483624
|
||||
Else
|
||||
opPlugPrice.BackColor = -2147483644
|
||||
End If
|
||||
If opPlugVol.value = True Then
|
||||
opPlugVol.BackColor = -2147483624
|
||||
Else
|
||||
opPlugVol.BackColor = -2147483644
|
||||
End If
|
||||
|
||||
Call handler.month_tosheet(month, basket)
|
||||
Application.StatusBar = False
|
||||
|
||||
@ -771,7 +805,7 @@ Sub crunch_array()
|
||||
|
||||
ReDim mload(UBound(month, 1), 5)
|
||||
For i = 0 To UBound(month, 1)
|
||||
mload(i, 0) = Format(month(i, 0), "#,###")
|
||||
mload(i, 0) = month(i, 0)
|
||||
mload(i, 1) = Format(month(i, 1), "#,###")
|
||||
mload(i, 2) = Format(month(i, 4), "#,###")
|
||||
mload(i, 3) = Format(month(i, 5), "#,###")
|
||||
|
Loading…
Reference in New Issue
Block a user