From 19021da028139a6957366e6e4a18c4262a4ee7ea Mon Sep 17 00:00:00 2001 From: pt Date: Fri, 6 Mar 2020 00:32:12 -0500 Subject: [PATCH] price volume colors --- fpvt.frm | 42 ++++++++++++++++++++++++++++++++++++++---- fpvt.frx | Bin 22552 -> 22552 bytes 2 files changed, 38 insertions(+), 4 deletions(-) diff --git a/fpvt.frm b/fpvt.frm index 5c04c65..ce5fbeb 100644 --- a/fpvt.frm +++ b/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), "#,###") diff --git a/fpvt.frx b/fpvt.frx index 440fa2b1b51fe374430ac4294c195a3af2d6c860..6b821d65d5f2ff6748b59db7df2396d457a4d880 100644 GIT binary patch delta 1488 zcmZWpe@q)?82-NRj=~yNx;cJK23$)i6c`jJaAi=Sg$dYUfdVs{Z7tNXcu-bhn{ESi zY78;P`53b~GdE{8P0X@+#w`9=_Mb*gW^_bxX3m%;CX2~7eX@L+bT~73LnGuwn!p$%x^@}o35$XI+l!tk!F;0xI)#^P9#D|iSM zX~umx?NN!v87`+eMI(b`>XRZ=YuMCZ?lu_Ml2L#;*fpNwrNBZ4#PXOH9q8x`k7@en zrWhB8TlA)k9@%6)8vQQuqduQ$;`|&Au6)q4ZFUPG3;e=Y5o5({Nl2E-lPOFIZzBxz zs}hz}y1?6BNkZn;2}>$nhUWhV>E=6Lkf}$Vl(3}I1%4YcD+voT8N3TT74>=L1Q*)Fs4?5oXMcp> z#3%MjUW{MuHO4qAi%ahe8KbGZ-A>xb$VPL6^lZa;@ip>_37Z`W^gD8J)nOMA4RVPe zkCkjdcZnAh-9=a|spT3nop$=*YG;`8$DO0FmgZ!**(D<1nT{(?TYAXIf06O>hH`8! zeUr9kVQpEB7!M&>R!D}t#L(Kh7FR>7aH#A#QOn4L4a-I~T={>=6v=jTixkO%tl5B*zStC>m>ScVQ6~p^)u&fPV?z;bI_CB0 z7pr?^DH4rA@s#sgEVZw?G9pLc~cx?{?aNZl*NqBqW`(A{)Y&{2tW ztkM5$+QX&j&JMSK+1bg!j6fOopGGU~jngQol%Y;pk|=MU5-ykC-s z#g-A8V2jV5r1K5&xPH#(4$5k)!TyF1A zBKtf}-iRgDhCTk35*wwt`JFi5l8-jC6^ni!uY%QQgEuh4<2V;Mm6AUr;+p<#ha$t) z|i!rJ?#>kX8L%~ex6?UFX?s23dVUIW`p@8{77&{8qH|Ljpi*Ps^ZhO zEtqI`;ICjl)~hypElc%dfA2#yikrPBxl#0R$hBf5#(v9XY_C98XE!O7k=OS&o>9&C zvhM-Rbloi)>S-AF3wf-mV01r%|_o)E;aRL&l-LI&=LMO7FWz_ delta 1419 zcmZWp{ZCs}7(VCTOX;o*CL6Y!FfJ`EOGY%AF&Yvi#>6>?=d=h$Z*uQ>-{+k7 zdEfJ#_uTmSQK8dT<`@kB6eU>(&4sP&geG9Y|Y_N1H_ z7cZ{ieu|an5_RojMHz#29YvgukWJ1+^2tM*teOoZ#35oN(G#5wjiD&fzSF5xcyvUo z*0)GH66|jHVndrr(@}a8v%6nTC##(dS)ogpyZDTpJ|u2qy|+RP!_3n|=}B{io?1^p za^_Ha(%gn-{s(FD-nS(x;;Ny8#RD|-+;7+>^ck|1Iegetjrxlp8)UfkUMVrNmuPp&Oh%~E- z#$dOGSe93T9wN7sx8|ClE@Z9aTZYrHhqVrGVYf7t$5-# zVa%THshF!UxLf7gIv^4T><9&>AFZqwW*3~iZ)XY zqg-yU!IQRH1l(Sxri^)?9}9H_pjA#DwQO(1xvE_mvFKT1k9usLdzI7Jjhfp!%eh;g2k0%dR^^?rHUcZ<~+%U=I z{=Pwx5O)`%sQD)`@M9daUHeej;uD=?YuZ4|1jWylHr!}>F0trBtC5CrrFD{3=-qkU zK3@E~H;jqEFkRDr4SY;_j(38EyIxd>9~lT47m(4|46iJ~*#0GTu~UfgpV)NMdB$wv z2a(1*rBfYI0_xc)9(Q~KwKI>c%g`8||R<6MQt{%3n b(_Jmhzu7g#H+v)t?cD~fw`6G(-B;+}U?$Dd